Opening form to add a new record produces an error

[Euphorbiaman]

Hi,
I have a form based on a query, this form also contains a subform. On the form is a combo box for selecting the name of a patient. Once the patients name is selected both the form and subform is populated with the correct data. When I try to open the form to add a new record (by selecting a name for the combo box) I get an error message 'Run-time error 3021 No current record. Here is the code.

Private Sub combo_0AfterUpdate()
Dim rs As object

Set rs=Me.Recordset.Clone
rs.FindFirst "[FULLNAME] = '" &ME![combo0] & "'"
Me.Bookmark = rs.Bookmark

End Sub

Me.Bookmark = rs.Bookmar is highlighted in yellow when running the debugger.
Thanks for your help.

 

[adalger]

It looks like FindFirst iw returning NoMatch. What's the row source for combo0?

 

[TheAceMan1]

How are ya Euphorbiaman . . .

[blue]   Set rs=Me.Recordset.Clone
  
   rs.FindFirst "[FULLNAME] = '" &ME![combo0] & "'"
   If Not rs.NoMatch Then Me.Bookmark = rs.Bookmark[/blue]

See Ya! . . . . . .