Run Time 3021

[Steven547]

Ok.. I'm looking at anothers code. It's a recordset. He mentioned he was receiving the 3021 error. Anyone help with this? Here is the code:

Private Sub FilesList_Click()
' Find the record that matches the control.
Me.RecordsetClone.FindFirst "[FileID] = '" & Me![FilesList] & "'"
Me.Bookmark = Me.RecordsetClone.Bookmark
Form.Refresh

End Sub

On the "me.bookmark" is the value <no current record>


Thoughts?

 

[TheAceMan1]

How are ya Steven547 . . .

And this . . . (The code requires [purple]Microsoft DAO 3.6 Object Library[/purple] to run. To [blue]check/install[/blue] the library, in any code window click [blue]Tools[/blue] - [blue]References...[/blue] In the listing find the library and [blue]make sure its checked.[/blue] Then using the up arrow, [purple]push it up as high in priority as it will go[/purple]. Click OK.):

[blue]   Dim rst As DAO.Recordset
   
   Set rst = Me.RecordsetClone
   
   If rst.BOF Then
      MsgBox "No Records!"
   Else
      rst.FindFirst "[FileID] = '" & Me![FilesList] & "'"
      
      If rst.NoMatch Then
         MsgBox "Record Not Found!"
      Else
         Me.Bookmark = rst.Bookmark
      End If
   EndIf
   
   Set rst = Nothing[/blue]

See Ya! . . . . . .

Be sure to see thread181-473997