No current record?

This problem cleared when I opened it in A2003 on another machine, and made
an mde file. I was using A2007 on my machine, becuase Office 2007 isn't
Office 2002 friendly and blew it away. I had to changed libraries from
Outlook 12.0 to Outlook 11.0. I don't know if this was associated with the
issue, but mentioning it.

This is a problem were there was no err number (3021), so I couldn't trap
it.


"Mark A. Sam" wrote in message
...
Hello,

In a textbox of a continuous subform I have this code in the BeforeUpdate
event:

Private Sub EmailAdddress_BeforeUpdate(Cancel As Integer)
On Error GoTo errSec

If GetUserLevel() "admin" Then
Cancel = True
MsgBox "Only an Administrator can change email addresses from this form!"
Me.Undo
End If

exitSec:
Exit Sub

errSec:
MsgBox "Error " & Err & ": " & Err.Description
Resume Next

End Sub


When this runs and the user is not "admin" I get a message box which says,

"No current record." w/o quotes and no err number. The problem is the
undo method. I have tried, DoCmd.RunCommand acCmdUndo and
[EmailAdddress].Undo with the same result. This is an A2002 mdb database,
opened with A2007.

Thanks for any help and God Bless,

Mark A. Sam