Web Development·12,052 discussions

Access 97 New Record problem

Locked

I’ve been using the code below for about 2 years with no problem. Now I get a Run Time Error # 3021 – No Current Record

Any Ideas what happened???

***** CODE BEGINS****
Private Sub Form_Current()

Dim recClone As Recordset
Dim intNewRecord As Integer

Set recClone = Me.RecordsetClone
‘ But we need to check if there are no records. If so,
‘ we disable all the buttons except for the

If recClone.RecordCount = 0 Then
[CMDNextDepend].Enabled = False
[Cmd Previous].Enabled = False
Else

‘Synchonise the current pointer in the two recordsets
recClone.Bookmark = Me.Bookmark

recClone.MovePrevious
[Cmd Previous].Enabled = Not (recClone.BOF)
recClone.MoveNext

recClone.MoveNext
[CMDNextDepend].Enabled = Not (recClone.EOF)
recClone.MovePrevious

End If

recClone.Close
End Sub
***** CODE ENDS *****

Thanks!
Alan

Topic

Reply To: Access 97 New Record problem

In reply to Access 97 New Record problem

The strangest thing is if you place a navigation bar on the form, you can add a new record with NO PROBLEM.

Also when you get the error, if you click Exit, you can enter a new record and it works!

Reply To: Access 97 New Record problem

In reply to Access 97 New Record problem

Maybe you can test to add some
recClone.Requery or recClone.Refresh just after the set recClone = …

Reply To: Access 97 New Record problem

In reply to Reply To: Access 97 New Record problem

Poster rated this answer.

Reply To: Access 97 New Record problem

In reply to Access 97 New Record problem

This question was closed by the author

[Author]

Replies