combobox and FindFirst (Access2000)

Topic

New Reply

I’m using the following code to go to the selected record but it doesn’t work. Since the field tnCMNum is a text field, do I have all my double quotes & single quotes right? Or is something else amiss?

Private Sub cboCustNum_AfterUpdate()
Dim rst As Recordset
Set rst = Me.RecordsetClone
rst.FindFirst “tblTaxNumbers!tnCMNum = ‘ ” & Me![cboCustNum] & “‘”
If Not rst.NoMatch Then Me.Bookmark = rst.Bookmark
End Sub

Reply | Quote

Replies

When you say it doesn’t work, what do you mean? I can see one thing wrong with it–you shouldn’t fully reference the field tnCMNum in your criteria string. You’re looking for the value in the form’s recordsetclone, so you use the field name in the clone and look for the selected value in that field.

I’m assuming that you have the DAO reference turned on and the ADO reference turned off, because otherwise, you have other problems to deal with.

Reply | Quote

Charlotte,
What I meant was that it didn’t go to any record. But I did some more research on the net and found another code example. This code works for me:

If Not IsNull(Me.cboCustNum) Then
With Me.RecordsetClone
.FindFirst “[tnCMNum]=””” & Me.cboCustNum & “”””
If Not .NoMatch Then
Me.Bookmark = .Bookmark
End If
End With
End If

Thanks!

Reply | Quote

>>.FindFirst “[tnCMNum]=””” & Me.cboCustNum & “”””<<

Try to put in those extra quotes is always a problem, especially when trying to read it later. Use chr(34) instead, as in this:

.FindFirst "[tnCMNum]=" & chr(34) & Me.cboCustNum & chr(34)

Reply | Quote