 |  |
 |
Nick: eLLeGi
Oggetto: re:Esperti DB Access e SQL
Data: 16/9/2008 12.6.45
Visite: 64
devi creare un modulo
e azzeccarci questa roba dentro..
poi esegui il codice con il simbolo play, e vai nel menù visualizza e abiliti la "finestra immediata" per vedere l'output
Public Sub Main()
Dim tdf As Variant
Dim fld As Variant
For Each tdf In CurrentDb.TableDefs
If Left(tdf.Name, 4) <> "MSys" Then
Debug.Print tdf.Name
For Each fld In tdf.Fields
Debug.Print fld.Name
Next fld
End If
Debug.Print
Next tdf
End Sub
I miei siti preferiti:
-Il mio blog tecnico: http://www.giuseppeliguori.it
-Il mio sito sugli anni 80: http://www.dimenticatoio.it
Il mio blog astronomico: http://astro.ellegi.net /
Il blog GAstronomico di *banShee*: -
Il sito delle recensioni cinematografiche di BigApple e Axel 980: http://www.filmissimo.com
