Personalised error messages 1

[Samulayo]

How would i be able to get personnalised error messages so that if say, Error 3022 (replicate record) appears, instead of giving the long list and asking to either end or debug, it would say "this is a duplicate value" then an OK button which resets the problem (in this case the date) or scrubs the record and shows a new one.

Regards
Samulayo

 

[Ed2020]

Example:

Public Sub Test()
On Error GoTo TrapErr

'Main code goes here.

ExitHere:
Exit Sub

TrapErr:
Select Case Err.Number
Case 3022
msgbox "Duplicate record entered!",vbOkOnly,"Error."
Case Else
msgbox err.description
End Select

End Sub

Please do not feed the trolls.....

 

[Samulayo]

thank you very much ed2020, thats exactly what i've been looking for, but i didnt expect it to be such a simple command though. Have a star for being so helpful (did that sound patronising)

Regards

Samulayo

 

[Ed2020]

Nope, not patronising at all. Thanks for the star.

Please do not feed the trolls.....