我試圖在表單加載時捕獲錯誤，以便呼叫函式。On Error Resume Next沒有發現錯誤。我正在嘗試使用Set rs = CurrentDb.OpenRecordset("SELECT DonorName FROM tblDonations"). 有沒有解決的辦法？我認為Err.Number <> 0正在回傳，0因此跳過了下一行。此代碼在 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
uj5u.com熱心網友回復：
您應該能夠解決此問題。
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
轉載請註明出處，本文鏈接：https://www.uj5u.com/shujuku/429079.html