I have a problem with Form_Error.
Private Sub Form_Error(DataErr As Integer, Response As Integer) 'Declaration Const conDeleteError = 2046 Const conAddNewRecordError = 2105 Const conUpdateError = 3314 Dim strMsg As String 'Check and Message Select Case DataErr Case conDeleteError MsgBox "You canīt delete a blank record!", vbCritical, "Not Possible" Exit Sub Case conAddNewRecordError MsgBox "A new Record is open, you canīt open another one!", vbCritical, "Not Possible" Exit Sub Case conUpdateError MsgBox "Please Enter First- and Last name before you update!", vbCritical, "Not Possible" Exit Sub End Select End Sub
I get still a default access message for error code: 2046, 2105, 3314.
Why? I supposed a problem with my On Error GoTo Function for the objects, i set the function off, but still the same problem.
I hope someone can help me.
Regards,
Tobias