Chargement des tables dans un Combo

Question

Bonjour,

Je veux charger toutes mes propres tables (matable1, matable2,..) de ma base ".MDB" dans un Combo dès l'ouverture de ma form.
j'ai utilisé le code ci-dessous, mais je trouve dams le combo les tables suivantes :

MSysAccessObjects, MSysAccessXML, MSysACEs, MSysObjects, MSysRelationships, MSysQueries, etc...

    Dim intCompteur As Integer
    Dim strControle As String
    Dim strMessage As String    'Contenu du message
    Dim strStyle As String      'Contenu du style du message
    Dim strTitreMsg As String   'Contenu du titre du message
    Dim strReponse As String    'Contenu de la réponse du message

    Set strBD = DBEngine.OpenDatabase(App.Path & "\MaBase.mdb")
    Dim td As TableDef

    For intCompteur = 1 To strBD.TableDefs.Count
        cboListeTables.AddItem strBD.TableDefs(intCompteur - 1).Name
    Next intCompteur

    strBD.Close
    cboListeTables.ListIndex = 0

Merci

ShareVB · Answer

salut

tu ajoutes :

if strBD.TableDefs(intCompteur - 1).attributes <> dbSystemObject then cboListeTables.AddItem .......

et au passage tu retire le intcompteur de next intcompteur (ca permettra d'aaler plus vite dans la boucle)

voila

ShareVB

Chargement des tables dans un Combo

1 réponse

Discussions similaires