Message Box Displays Twice

[annie52]

I'm trying to prevent my users from changing a field on the record but my message box displays twice. Any thoughts?

Private Sub XrefGroupNum_Change()
On Error GoTo Err_XrefGroupNum_Change

MsgBox "Changes to the Tracking # must be" & vbCrLf _
& "accomplished from the Main Menu." & vbCrLf _
& "Please see your Team Leader for assistance.", vbOKOnly, _
"RPP Tracking System"
DoCmd.RunCommand acCmdUndo

Exit_XrefGroupNum_Change:
Exit Sub

Err_XrefGroupNum_Change:
pstrProcName = "XrefGroupNum_Change()"
pstrObjectName = "frmMilstripIssues"
Call RPPErrorHandler

End Sub

 

[dhookom]

The On Change might not be appropriate since it fires with every key stroke that changes the value. Why not just lock and/or disable the control so users don't attempt to change the value?

Duane
Hook'D on Access
MS Access MVP