MS Access數據庫VBA後端檢查，使項目停止

Question

我試圖查找如果後端數據庫位於正確 後，我跑我的代碼，如果它與返回錯誤，一切都很好，但是當涉及沒有錯誤返回，因此它使整個應用程序停止。 以下是我的VBA代碼：

Function CheckLinkedDb() 
cDBPath = Application.CurrentProject.Path 
Set db = CurrentDb 
Dim Relink_Tables 
Dim rsCheckLink As Recordset 
Relink_Tables = False 
For Each tdf In db.TableDefs 
     If Len(tdf.Connect) > 0 Then 
     ''Linked table - test link is current 
      DoCmd.SetWarnings False 
      On Error Resume Next 'Do not stop script on error 
      Set rsCheckLink = db.OpenRecordset(tdf.Name) ' OPEN TABLE 
      DoCmd.Echo False, "Checking link for table " & tdf.Name 
      DoCmd.SetWarnings True 
      If Err Then ' COULD NOT OPEN TABLE 
       Relink_Tables = True 
       'GoTo Relink_Tables ' RECONNECT TO APPROPIATE DATABASE 
      Else 
       rsCheckLink.Close ' CLOSE TABLE THAT DID OPEN 
       Set rsCheckLink = Nothing 
     End If 
    End If 
Next 

If Relink_Tables = True Then 
    goto RelinkT.... 
End Function 

Answer 1

我看不出有什麼明顯的錯誤，也不能確定什麼是「它使整個應用程序停止」的意思 - 一個無限循環？

您應該刪除DoCmd.SetWarnings False/True陳述，並不需要他們。

而且這是一個好習慣使用On Error Resume Next時可能出現的錯誤線後立即檢查錯誤。並且：始終儘快重置，不要在沒有錯誤處理的情況下運行多個代碼行。

所以，你的代碼應該是：

For Each tdf In db.TableDefs 
    If Len(tdf.Connect) > 0 Then 
     ''Linked table - test link is current 
      DoCmd.Echo False, "Checking link for table " & tdf.Name 
      On Error Resume Next 'Do not stop script on error 
      Set rsCheckLink = db.OpenRecordset(tdf.Name) ' OPEN TABLE 
      If Err.Number <> 0 Then ' COULD NOT OPEN TABLE 
       On Error Goto 0 
       Relink_Tables = True 
       'GoTo Relink_Tables ' RECONNECT TO APPROPIATE DATABASE 
      Else 
       On Error Goto 0 
       rsCheckLink.Close ' CLOSE TABLE THAT DID OPEN 
       Set rsCheckLink = Nothing 
      End If 
    End If 
Next 

如果問題仍然存在，使用：How to debug VBA code