Recordset / Combo Box

[mrchinchin25]

I'm trying to fix a database with a missing library problem. who can tell me what this code does in english? (i'm hopeless at recordsets)

Private Sub Combo8_AfterUpdate()

Dim rs As Object

Set rs = Me.Recordset.Clone
rs.FindFirst "[ID] = " & Str(Me![Combo8])
Me.Bookmark = rs.Bookmark
End Sub

"Combo8" is the combo box where you select a value.

I'm especially interested in the "Str(Me![Combo8])" part as the code says it can't find the project/library.

Thanks

 

[KenReay]

Hi

The code is taking the clone of the forms recordset and looking for a given record, it then (if found) returns the bookmark of that record, and becasue the clone by definition is the same as the forms recordset, it allows you to position to the required record.

BUT

I suspect you have a missing reference, in any code module, look at tools \ refernces and check for any which say missing Regards

Ken Reay
Freelance Solutions Developer
Boldon Information Systems Ltd
UK

 

[mrchinchin25]

yeah i do have a missing reference, and the problem is that its stored on someone's (i have no idea whose) local hardrive.

I just thought that it was strange that this procedure wasn't working, as I couldn't see it looking at any kind of library etc.

Thanks

 

[KenReay]

Hi

Is the problem not with the str() function, I cannot remember where all these things are held, but it may be in an Office Library, rather than an Access Library Regards

Ken Reay
Freelance Solutions Developer
Boldon Information Systems Ltd
UK

 

[mrchinchin25]

I have no idea at all! I've never done anything before involving Libraries and .dlls and things.

 

[KenReay]

Hi

So can we go back a couple of posts, you said:

"yeah i do have a missing reference, and the problem is that its stored on someone's (i have no idea whose) local hardrive"

on what basis do you think that?

Have you looked at the references dialog as I suggested Regards

Ken Reay
Freelance Solutions Developer
Boldon Information Systems Ltd
UK

 

[mrchinchin25]

yeah sorry, the references menu shows that a certain carAPI active x control module is missing, and I can't seem to find it anywhere.

But we're in contact with the guy who created it.