Code en/of melding opvangen

[Sytse1]

Een samengestelde sleutel bestaat uit 2 velden.
Als de gebruiker een record invult met dezelfde gegevens krijgt hij de volgende melding:

Ik wil deze melding zelf maken met de knop ok die de esc knop nadoet.
B.v. If Error = 3022 Then

De volgende oplossing werkt maar is niet zo netjes.
Een eigen tekst zou beter zijn

Function M_RecOpsl()
'De opgegeven wijzigingen aan de tabel zijn niet aangebracht
'omdat zij dubbele waardes zouden opleveren voor de index, primaire sleutel of relatie
On Error GoTo M_RecOpsl_Err
    DoCmd.RunCommand acCmdSaveRecord
M_RecOpsl_Exit:
    Exit Function
M_RecOpsl_Err:
    MsgBox Err.Number& & Err.Description
    SendKeys "{Esc}"
    Resume M_RecOpsl_Exit
End Function

Hoe zou dit beter kunnen in Access 2016?
Sytse

 

[Sytse1]

De oplossing blijkt toch eenvoudig.
Na het verlaten van het veld blijkt dat de opgegeven wijzigingen aan de tabel zijn niet aangebracht
omdat zij dubbele waardes zouden opleveren voor de index, primaire sleutel of relatie
De actie is record opslaan. Bij de fout de Msgbox en dmv de Esc toets wordt de invulling evt. geannuleerd.

Function M_RecOpsl()
On Error GoTo M_RecOpsl_Err
    DoCmd.RunCommand acCmdSaveRecord
M_RecOpsl_Exit:
    Exit Function
M_RecOpsl_Err:
    MsgBox " U heeft het jaartal al eerder gebruik. Herstel dit"
    SendKeys "{Esc}"
    Resume M_RecOpsl_Exit
End Function