"使用 OnError Resume Next 处理表单加载错误"

Question

我试图在表单加载时捕获错误，以便调用函数。 On Error Resume Next<\/code>未捕获错误。 我正在尝试使用Set rs = CurrentDb.OpenRecordset("SELECT DonorName FROM tblDonations")<\/code>来捕获错误。 有没有解决的办法？ 我在想Err.Number <> 0<\/code>返回0<\/code>因此跳过下一行。 此代码在 access 2019 和 365 中运行良好，但在 access 2016 中运行良好。请参见下文：

Private Sub Form_Load()
On Error Resume Next
Dim rs As DAO.Recordset

Set rs = CurrentDb.OpenRecordset("SELECT DName FROM tblDonations")
If Err.Number <> 0 Then
    MsgBox "Error Number: " & Err.Number & " " & Err.Description & " Please relink to Backend file!", , "Backend missing"
    Call RelinkTables
End If
rs.Close
Set rs = Nothing

DoCmd.Close acForm, Me.Name
DoCmd.OpenForm "frmMainform"
End Sub

Answer 1

您应该能够解决此问题。

Private Sub Form_Load()

Dim rs As Object

On Error Resume Next
Set rs = CurrentDb.OpenRecordset("SELECT DName FROM tblDonations")
On Error GoTo 0

If rs Is Nothing Then
    MsgBox "rs Is Nothing", , "Backend missing"
    Call RelinkTables
End If

'...

End Sub