Changing the error message on delete key

[Michael R]

Hi, in my form I can't delete certain records because of referential integrity. Therefore, when I press the delete key on those records which have child fields I get an ms-access error (No3300) message "The records can't be deleted or changed because..." . Is there any way to customize this message?

Thanks a lot for your attention.
Good day.

[nico5038]

Thta's hard as it's a jet-message.
Personally I try to prevent this by blocking the records that can't be deleted.
When you check in the OnCurrent event of the (sub)form or a related record is present, then disable the [Del] button on your form, else enable it.
That way the user has visual feedback or deletion is an option..
Nic;o)

[MSeda]

You didn't exactly specify how your form works but you should be able to enter some code in the forms beforedeleteconfim event to test for related records before the delete occurs and insert your own msgbox. This will cancel the delete before accesses error message.

If Not IsNull(DLookup("[Qu Quoted by]", "[Quote Table]", "[QU Quoted by] = '" & Me.EmpCode & "'")) Then

MsgBox "Can Not Delete Record Because Associated Records Exist."
Cancel = True

End If

you can add addition dlookups to test for records in other tables by use AND in the one if Statement or use nested ifs.

[Michael R]

Dear Nico and Mseda. Both your advices are helpful. I'll go for Mseda's one as it takes less computer power as the user very seldom has to delete a record.

[ADezii]

Hi, in my form I can't delete certain records because of referential integrity. Therefore, when I press the delete key on those records which have child fields I get an ms-access error (No3300) message "The records can't be deleted or changed because..." . Is there any way to customize this message?

Thanks a lot for your attention.
Good day.

In the Form's Error() Event, you can set the Response Parameter = acDataErrContinue then your own Custom Error Message. Your Error Message will be displayed while the built in Access Error Message will not.

[Michael R]

In the Form's Error() Event, you can set the Response Parameter = acDataErrContinue then your own Custom Error Message. Your Error Message will be displayed while the built in Access Error Message will not.

Thanks, it sounds the most convinient way,
please tell me how exactly do I set the Response Parameter

Michael.

[ADezii]

Hi, in my form I can't delete certain records because of referential integrity. Therefore, when I press the delete key on those records which have child fields I get an ms-access error (No3300) message "The records can't be deleted or changed because..." . Is there any way to customize this message?

Thanks a lot for your attention.
Good day.

The correct way to do exactly what you are requesting is by entering code in the Form's Error() Event which can replace the Standard Access Error Message with one that you can customize:

Private Sub Form_Error(DataErr As Integer, Response As Integer)
    If DataErr = 3200 Then      'Can't Delete because of RI
       MsgBox "You cannot DELETE this Record because of Child Records",   vbExclamation, "Delere Notification"
       Response = acDataErrContionue
    End If
End Sub

[missinglinq]

Should Response = acDataErrContionue
Be Response = acDataErrContinue

[ADezii]

Should Response = acDataErrContionue
Be Response = acDataErrContinue

By all means it should! Thanks for pointing out the typo.

[missinglinq]

You'd hate to get an error message on an error message!

[ADezii]

You'd hate to get an error message on an error message!

Would that be an Error Error Message?

[nico5038]

I hate error messages in general. Thus my proposal to prevent them on forehand <LOL>

Nic;o)