vba - 为什么 'On Error' 总是像键为空一样触发？

Question

我正在尝试在连接到 SQL Server 后端的 Access 应用程序中设置错误处理，以防止 Access 将空主键传递给服务器。

我正在使用 BeforeUpdate 和基于 Properly Handling Errors in VBA (Excel) 的代码

如果用户将 S_ID 设置为空(或在创建新记录时将其保留为空)，我的代码应该运行 ErrHandler 代码。但它始终运行 ErrHandler 代码。

Private Sub S_ID_BeforeUpdate(Cancel As Integer)

Dim trigger As Integer

On Error GoTo ErrHandler

If Me.S_ID Is Null Then
    trigger = 1 / 0
End If

Exit Sub

ErrHandler:
    MsgBox ("Key was null, fix it")
Resume Resume_spot

Resume_spot:

End Sub

我还没有编写发生错误时我希望 Access 执行的操作的代码，因此 MsgBox 没有用，Resume_spot 之后也没有任何内容。在此之前，我想让错误处理正确触发。

Answer 1

你需要使用IsNull

改变:

If Me.S_ID Is Null Then

收件人:

If IsNull(Me.S_ID) Then