form multiple combo code problem

  • Thread starter Thread starter AJ
  • Start date Start date
A

AJ

Can someone tell me what is wrong with this code? Or a better way??

Dim Rs As Object

Set Rs = Me.RecordsetClone
Rs.FindFirst "[Product]=""" & Me![Product] & """" And "[Strength]=""" &
Me![Strength] & """" And "[DoseForm]=""" & Me![DoseForm] & """" And
"[Distributor]""" & Me![Distributor] & """"

If Not Rs.EOF Then Me.Bookmark = Rs.Bookmark


All I want to do is filter a form by 4 fields in order to get to the one
record that needs updating via the form.

Thanks in advance.
 
AJ said:
Can someone tell me what is wrong with this code? Or a better way??

Dim Rs As Object

Set Rs = Me.RecordsetClone
Rs.FindFirst "[Product]=""" & Me![Product] & """" And "[Strength]=""" &
Me![Strength] & """" And "[DoseForm]=""" & Me![DoseForm] & """" And
"[Distributor]""" & Me![Distributor] & """"

If Not Rs.EOF Then Me.Bookmark = Rs.Bookmark


All I want to do is filter a form by 4 fields in order to get to the one
record that needs updating via the form.
Click to expand...


I see a couple of things wrong. First, your quoting appears to be
incorrect, so that you have part of the criteria expression effectively
outside the quotes. If all your fields are in fact text fields, as your
quoting implies, then try this:

Rs.FindFirst _
"[Product]=""" & Me![Product] & _
""" And [Strength]=""" & Me![Strength] & _
""" And [DoseForm]=""" & Me![DoseForm] & _
""" And [Distributor]=""" & Me![Distributor] & """"

I also replaced a missing "=" sign in the above. If any of those fields is
not a text field, then the quoting in that expression will need to be
adjusted.

Also, in this line:
If Not Rs.EOF Then Me.Bookmark = Rs.Bookmark
Click to expand...

.... you should *not* be testing Rs.EOF to see if you have a match or not.
Instead, test the recordset's NoMatch property:

If Not Rs.NoMatch Then Me.Bookmark = Rs.Bookmark
 
Back
Top