And now for the quadruple-post 
Here is the solution, this code replaces the default popup when a record is locked.

Here is the solution, this code replaces the default popup when a record is locked.
Private Sub Form_Error(DataErr As Integer, Response As Integer)
' The error code for record locking in this case is 7787
Const conErrRequiredData = 7787
If DataErr = conErrRequiredData Then
MsgBox ("This date-record has already been changed by another user, please try again.")
Response = acDataErrContinue
Else
Response = acdatadisplay
End If
End Sub