Reword error message

[Pookiemeister]

I would like to reword this error message in my own message box. I would like to remove the Run-Time error message number. Thanks.

 

[saboh12617]

Hello,

You need to use the On Error statement (VBA) | Microsoft Learn
In combination with the Err object | Microsoft Learn.

Something like below. Of course you need to adapt the number 11 in the code to the one of your error. That's if you want to target a specific error, you can also check if Err.Number <> 0 which is true for all errors.

Sub Example()
  Dim myCalc As Long
  ' we expect the error after this line
  On Error Resume Next
  myCalc = 5 / 0 ' raise error
  If Err.Number = 11 Then
    ' Error message
    MsgBox "Error: trying to do a division by 0!", vbCritical
    ' handling the default values to prevent the rest of the code from crashing
    myCalc = 1
    ' resetting the error object
    Err.Clear
  End If
  On Error GoTo 0

  Debug.Print myCalc ' Prints 1
End Sub

 

[Joe4]

Here are a few other posts that show some examples of doing error handling in Access VBA:

How to Build an Error Handler in Access VBA

How to Build an Error Handler in Access VBA

skillforge.com

Microsoft Access tips: Error Handling in VBA

How to trap and log the errors reported while a Microsoft Access database is in use. (Access 95 and onwards.)

allenbrowne.com