Before Deleting record message

[kevinbotes]

Hi

I have a subform which is shown i data view. if i select a record to delete via the record selectors, ms access pops up a message to confirm. This message is rather complicated for th end user to read.

how can i supress this message and insert my own message for the end user to see ?

Regards

Kev

 

[rjoubert]

In the BeforeDelConfirm event of your subform, SetWarnings to False and pop up your own msgbox...

Private Sub Form_BeforeDelConfirm(Cancel As Integer, Response As Integer)
   DoCmd.SetWarnings False
   MsgBox ("My own delete message")
End Sub

 

[Remou]

You may also wish to use Form_Error:

Private Sub Form_BeforeDelConfirm(Cancel As Integer, Response As Integer)
    Response = acDataErrContinue
    Cancel = MsgBox("Delete?", vbYesNo) = vbNo
End Sub

Private Sub Form_Error(DataErr As Integer, Response As Integer)
     Const RELATEDRECORD_VIOLATION = 3200
      If DataErr = RELATEDRECORD_VIOLATION Then
         MsgBox "No can do."
         Response = acDataErrContinue
      End If
End Sub

 

[kevinbotes]

Thanks

used first example. second one seems a bit long to get same result.

thanks for the help guys.