Discussion Locked

Access 97 New Record problem

0 helpful

4 replies

by mra2 Aug 30, 2004 last reply Sep 3, 2004

Closed to new repliesThis discussion is closed. It stays readable, but it takes no new replies.

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

4 replies

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!

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

Poster rated this answer.

This question was closed by the author

This discussion is closed to new replies.