On Error msgbox ved duplicate values

På formularens VedFejl (Form_error) kan du lægge denne kode:

Private Sub Form_Error(DataErr As Integer, Response As Integer)
    Select Case DataErr
        Case 3022
            MsgBox "Du har forsøgt at oprette en person, som findes i forvejen!", vbCritical, "Dubleret primærnøgle!"
            Response = acDataErrContinue
        Case Else
            MsgBox "Fejl: " & DataErr, vbCritical, "Ukendt fejl!"
            Response = acDataErrDisplay
    End Select
End Sub

Du kan selv tilpasse beskederne, ligesom du selv kan forsøge at fremprovokere forskellige fejl, som du derved kan indsætte i select-case-strukturen