Herkunft verknüpfter Tabellen auflisten
StefanWirrer
Gesendet: 19.10.23 09:58
Betreff: RE: Herkunft verknüpfter Tabellen auflisten


Veteran

Beiträge: 288
100100252525
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
Top of the page Bottom of the page