Customized Warning

[xolo]

How do I get rid of this warning: "The record cannot be deleted because table ... includes related records." and use my own msgBox fuction instead?

 

[ajetrumpet]

i don't think you can. but if you want to get rid of it and have the deletion go through, you might have to turn on your cascading deletes.

 

[xolo]

Never mind! I've just solved it by using this:

Private Sub Form_Error(DataErr As Integer, Response As Integer)
If DataErr = 3200 Then
MsgBox "Some message..."
Response = acDataErrContinue
End If
End Sub

 

[gemma-the-husky]

note that the err object will have a value of 0 in this instance

the standard text for the given error number can be obtained by

accesserror(dataerr)

 

[xolo]

note that the err object will have a value of 0 in this instance

the standard text for the given error number can be obtained by

accesserror(dataerr)

Thanks gemma!