如何将VBA的错误提示替换为自已的提示

levy_rao

ACCESS 里面的错误提示不是很友好，如果换成自已的，并引用其中的提示，怎样才实现？谢谢

levy_rao

自已顶一下，请教一下高手

Henry D. Sy

Private Sub Form_Load()

   On Error GoTo Form_Load_Error

  '...............
   

   On Error GoTo 0
   Exit Sub

Form_Load_Error:
If Err.Number = 2391 Then
MsgBox "xxxxxxxx"
Else
    MsgBox "Error " & Err.Number & " (" & Err.Description & ")"
    End If
End Sub

levy_rao

搞定了，非常感谢！