Run-time error 3021 No current record

[sukarso]

Hi,

In the beginning of database (access database) is empty and I want to add a new record and then cancel it. But I get an error
"Run-time error 3021 No current record" when I press Cancel button. Here is the code in cmdCancel:

Private Sub cmdCancel_Click()

Data1.UpdateControls
Data1.Recordset.Bookmark = vbookmark3

End Sub

[dinesh123]

I think ur bookmark is invalid

[RGregoire]

I'e run into this problem many times, especially when you start a new database without any records in it yet.
What I usually do is to set up an Error catch for it.

Ie.

(At beginning of procedure)

On Error Goto ErrorHandler

(Procedure)

ErrorHandler:
If Err.Number = 3021 Then
Resume Next (or other code)
Else
MsgBox Err.Number & vbCrLf & Err.Description
End If


This may help - Have a good day