CISA FotoGallery

Statistiche

Tot. visite contenuti : 927989
Home Articoli tecnici VBA Elenco delle tabelle e campi del db

Elenco delle tabelle e campi del db

Quando si sviluppa è comodo avere sott'occhio l'elenco delle tabelle e dei relativi campi e magari stamparselo.
 

Ecco una veloce procedura

Sub esportaCampi()
Dim excApp As Object
Dim excDoc As Object
Dim i As Integer
Dim l As Integer
Dim tdf As DAO.TableDef
Dim fld As DAO.Field
On Error Resume Next
Set excApp = GetObject(, "Excel.Application")
If err.Number = 429 Then
Set excApp = CreateObject("Excel.Application")
End If
Set excDoc = excApp.workbooks.Add 'apre un foglio nuovo

excApp.Visible = True

For Each tdf In CurrentDb.TableDefs
If Not Left(tdf.Name, 4) = "Msys" Then
i = i + 1
excDoc.worksheets(1).Cells(1, i) = tdf.Name
l = 1
For Each fld In tdf.Fields
l = l + 1
excDoc.worksheets(1).Cells(l, i) = fld.Name
Next fld
End If
Next

End Sub


Buon uso.