Database - Legge Campi Di Tabelle

Tabelle # 'questa funzione legge i nomi delle tabelle e delle query dal database selezionato, ignorando pero' le tabelle di sistema nascoste.
'**********************************

Dim dbscurrente As database, tdftable As tabledef, qdfquery As querydef
Dim db As database
Set db = workspaces(0).opendatabase("\protocol\protocollo.mdb")
Set dbscurrente = db
For Each tdftable In db.tabledefs
If ((tdftable.attributes And dbsystemobject) Or (tdftable.attributes And dbhiddenobject)) Then
' ignora questa tabella di sistema

Else
Print chr(9) & "tabella di servizio " & tdftable.name
End If
Next
For Each qdfquery In db.querydefs
Print chr(9) & "query di servizio " & qdfquery.name
Next