Egendefinert advarsel ved DELETE

Du kan lave din egen Msgbox ved f.eks. at skrive:

Dim db as Database
If MsgBox(\"Ønsker du at slette\", vbQuestion + vbYesNo, \"Slet?\") = vbYes Then
    Set db = Currentdb
    db.Execute \"DELETE FROM....\"
End if


Du kan også disable den indbyggede advarsel enten ved at benytte Docmd.Setwarnings således:

If MsgBox(\"Ønsker du at slette\", vbQuestion + vbYesNo, \"Slet?\") = vbYes Then
    Docmd.Setwarnings False
    Docmd.RunSQL \"DELETE FROM .....\"
    Docmd.SetWarnings True
End if

/Thomas