Veteran
Beiträge: 290
 
Ort: München | Hallo,
drnicolas - 17.10.23 13:34
Ich bin zwar in meiner DB drin, aber ich habe keine Ahnung welche Tabellen die Timeouts verursacht hat.
Wie kann ich das auflisten?
Meinst du das mit 'auflisten'?
Public Function fctListTables()
'==============================
' Listet die verknüpften Tabellen auf.
' Erstellt am: 02.06.2005, Stand: 02.06.2005
Dim ws As DAO.WorkSpace
Dim db As DAO.Database
Dim tb As DAO.TableDef
Dim intC As Integer
Set ws = DBEngine.Workspaces(0)
Set db = ws.Databases(0)
For intC = 0 To db.TableDefs.Count - 1
Set tb = db.TableDefs(intC)
If tb.Connect <> "" Then
Debug.Print tb.Name
Debug.Print , tb.Connect
End If
Next intC
End Function
-----
Grüße aus München
Stefan |
