嘗試刪除鏈接表時出現錯誤 3125

Question

我正在嘗試刪除前端中的所有鏈接表，但它在第一個表上失敗並顯示錯誤：3125“'attendeesSearch' 不是有效名稱。確保它不包含無效字符或標點符號，並且不會太長。”。

此表包含一個多值字段。 我包括這個，因為它可能是一個問題。

我試過使用“刪除表...”SQL 和 DoCmd.DeleteObject 方法。

我的日常：

Sub relinkRequestHelp()
   Const csConnnectPrefix  As String = ";DATABASE="
   Dim bLenConnectPrefix   As Byte
   Dim db As dao.Database
   Dim tbl As dao.TableDef
   Dim s As String

   On Error GoTo eh
   bLenConnectPrefix = Len(csConnnectPrefix)
   Set db = CurrentDb()
   For Each tbl In db.TableDefs
      If Left(tbl.Connect, bLenConnectPrefix) = csConnnectPrefix Then
'         s = "DROP TABLE " & tbl.Name & ";"
'         Debug.Print s
'         db.Execute s, dbFailOnError
'         Debug.Print , db.RecordsAffected
         DoCmd.DeleteObject acTable, tbl.Name
      End If
   Next

   Exit Sub

eh: Debug.Print Err.Number, Err.Description
End Sub

有什么建議？

Answer 1

從集合中刪除當前對象。 這對我行得通：

For Each tbl In db.TableDefs
    If Left(tbl.Connect, bLenConnectPrefix) = csConnnectPrefix Then
        db.TableDefs.Delete tbl.Name
    End If
Next

Answer 2

在這篇文章中，Daniel Pineault 建議我從所有關系中刪除有問題的表格。

一旦我這樣做了，我就能夠刪除鏈接表。