Un debug.print qui ne marche pas
tomahawk
-
tomahawk -
tomahawk -
Bonjour,
je souhaite recupérer les types de données de plusieurs table.
je suis sous access 2003 et je developpe sous vba.
j'ai tenté un Debug.Print ch.Type.
Est sortis des chiffres pour un ceertains nombre de champs mais pas pour tous.
je comprend pas où est le problème, toute aide me sera extrèmement précieuse.
merci d'avance.
(une reponse rapide serait souhaitée)
je souhaite recupérer les types de données de plusieurs table.
je suis sous access 2003 et je developpe sous vba.
j'ai tenté un Debug.Print ch.Type.
Est sortis des chiffres pour un ceertains nombre de champs mais pas pour tous.
je comprend pas où est le problème, toute aide me sera extrèmement précieuse.
merci d'avance.
(une reponse rapide serait souhaitée)
1 réponse
pour précision voici le code:
Private Sub Commande4_Click()
Dim bdd As DAO.Database
Dim tbd As DAO.TableDef
Dim ch As DAO.Field
Set bdd = CurrentDb
For Each tbd In bdd.TableDefs
Debug.Print tbd.Name
For Each ch In tbd.Fields
Debug.Print ch.Name
Debug.Print ch.Type
Next
Next
bdd.Close
Set bdd = Nothing
Set tbd = Nothing
End Sub
Private Sub Commande4_Click()
Dim bdd As DAO.Database
Dim tbd As DAO.TableDef
Dim ch As DAO.Field
Set bdd = CurrentDb
For Each tbd In bdd.TableDefs
Debug.Print tbd.Name
For Each ch In tbd.Fields
Debug.Print ch.Name
Debug.Print ch.Type
Next
Next
bdd.Close
Set bdd = Nothing
Set tbd = Nothing
End Sub
