Styring af standard fejlmelding

Sub ()
on error goto Fejl
' din kode

Fejl:
if error = 3022 then
msgbox "Kan ikke gemes da nøglen er der i forvejen"
end if
if error = (Et eller andet fejlnummer) then
msgbox "En eller anden tekst"
end if


End sub

Hvor skal jeg placere koden?

Jaa, når jeg taster ind i access, er det via en ubundet formular.
I den formular har jeg forskellige tekstbokse, som jeg taster ind i.
Når jeg er tilfreds med det indtastede trykker jeg på en knap, og det er i koden under denne knap jeg gemmer data i tabellen.

I stedet for en fejlmelding foretrækker jeg at tælle antal poster i tabellen, hvis indhold matcher formularens felt. Denne kode tæller det antal poster i tabellen's felt1, hvor dette felt er = formularen's felt1 (Me.felt1). Koden gælder for et alfanumerisk felt. Hvis antal poster i tabellen er > 0, er det jo fordi den netop indtastede post findes i forvejen, hvis dette er tilfældet annulleres indtastningen:

If DCount("[felt1]", "Tabel1", "[felt1] = '" & Me.felt1 & "'") > 0 Then
MsgBox "Posten er allerede oprettet." & vbNewLine & "Indtastningen annulleres."
Me.Undo
End If

mlhave > Er dit problem blevet løst?