Un debug.print qui ne marche pas

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)
Configuration: Windows XP
Internet Explorer 7.0

1 réponse

  1. tomahawk
     
    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
    0