新建From1(窗体),新建Command1(按钮CommandButton),代码:
Private Sub Command1_Click()
Dim lngA As Long
On Error Resume Next
lngA = 1 / 2
Debug.Print Err.Number: Err.Clear
lngA = 1 / 0
Debug.Print Err.Number: Err.Clear
End Sub
运行结果:
0
11
0就是没错误。