Možda ovo pomogne.
http://www.elitesecurity.org/t...cces-poruku-kaskadnom-brisanju
Ja to obično radim ovako:
Private Sub VrstaDokumentaID_NotInList(NewData As String, Response As Integer)
Response = acDataErrContinue ' Sprecava poruku od accessa
MsgBox "Niste dobro ukucali vrstu dokumenta <" & NewData & ">.", vbCritical, "Pažnja"
End Sub
I'll know what I want, when I see it.