Remplir une ComboBox avec des fichiers

**Flo88** · 22/02/2008, 11h46

Bonjour,

Voila mon souci :
A l'ouverture de mon application j'ai fait une combo pour que l'utilisateur choissisent sur quelle base travaillée. Pour trouver les bases, j'ai développé une procédure qui fonctionne très bien :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Dim Chemin As String
    Dim Ctr As Integer
    Chemin = CurrentProject.Path
    'MsgBox Chemin
 
    With Application.FileSearch
 
        .NewSearch
        .RefreshScopes
        .LookIn = Chemin
        .FileName = "vet_base_*.mdb"
        .Execute
 
        'For Ctr = 1 To .FoundFiles.Count
            'MsgBox .FoundFiles(Ctr)
        'Next
 
    End With

Voila par contre je ne sais pas comment faire pour que dans ma combo apparaissent les bases disponibles.

Merci d'avance,

**mouaa** · 22/02/2008, 12h54

essaye avec ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

combo.RowSource = valeurs

où valeurs contient une liste sous forme "ligne1;ligne2;ligne.....;"

**Flo88** · 22/02/2008, 22h32

Je n'ai pas bien compris dsl...

peux tu me renseigner sachant que ma combo s'appelle lstSite et que le résultat de ma boucle est des MsgBox :
C:\......\vet_base_colmar
C:\....\vet_base_mulhouse
C:\....\vet_base_strasbourg

et le mieux encore serait d'afficher dans la Combo juste Colmar, Mulhouse, Strasbourg (c'est optionnel cela)

Merci

**Flo88** · 24/02/2008, 00h07

Envoyé par mouaa

essaye avec ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

combo.RowSource = valeurs

où valeurs contient une liste sous forme "ligne1;ligne2;ligne.....;"

J'ai essayé cela mais ca ne marche pas :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
       'For Ctr = 1 To .FoundFiles.Count
            combo.RowSource = FoundFiles(Ctr)
        'Next

Quelqu'un peut il m'aider ?

**LedZeppII** · 24/02/2008, 17h47

Bonjour,

Il faut contruire le contenu de la comboBox, celle-ci étant configurée en mode "liste de valeurs".
Dans le code ci-dessous on crée la liste de valeurs dans la variable strList, puis on l'affecte à la propriété RowSource (Contenu) de la comboBox.

Code vb :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Dim Chemin As String
    Dim Ctr As Integer
    Dim strList As String	
    Chemin = CurrentProject.Path
    'MsgBox Chemin
 
    With Application.FileSearch
 
        .NewSearch
        .RefreshScopes
        .LookIn = Chemin
        .FileName = "vet_base_*.mdb"
        .Execute
 
        For Ctr = 1 To .FoundFiles.Count
            strList = strList & .FoundFiles(Ctr) & ";"
        Next
        if Len(strList)>0 Then strList = Left(strList, Len(strList)-1)
    End With
 
    ' Source des lignes de la comboBox
    NomDeLaComboBox.RowSource = strList

Est-ce que ce code s'exécute bien dans le formulaire contenant la comboBox ?
Autrement il faut changer la derniere ligne de code

Code vb :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
    ' Source des lignes de la comboBox
    Forms("NomDuFormulaire").NomDeLaComboBox.RowSource = strList

A+

**mouaa** · 25/02/2008, 08h04

Envoyé par LedZeppII

Bonjour,

Il faut contruire le contenu de la comboBox, celle-ci étant configurée en mode "liste de valeurs".
Dans le code ci-dessous on crée la liste de valeurs dans la variable strList, puis on l'affecte à la propriété RowSource (Contenu) de la comboBox.

Code vb :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Dim Chemin As String
    Dim Ctr As Integer
    Dim strList As String	
    Chemin = CurrentProject.Path
    'MsgBox Chemin
 
    With Application.FileSearch
 
        .NewSearch
        .RefreshScopes
        .LookIn = Chemin
        .FileName = "vet_base_*.mdb"
        .Execute
 
        For Ctr = 1 To .FoundFiles.Count
            strList = strList & .FoundFiles(Ctr) & ";"
        Next
        if Len(strList)>0 Then strList = Left(strList, Len(strList)-1)
    End With
 
    ' Source des lignes de la comboBox
    NomDeLaComboBox.RowSource = strList

Est-ce que ce code s'exécute bien dans le formulaire contenant la comboBox ?
Autrement il faut changer la derniere ligne de code

Code vb :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
    ' Source des lignes de la comboBox
    Forms("NomDuFormulaire").NomDeLaComboBox.RowSource = strList

A+

Si ça ne fonctionne pas, tu peux rajouter ça :
Pour une liste simple dans le combo :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
NomDeLaComboBox.RowSourceType = "Liste valeurs"
'et ensuite tu donnes la source, comme l'a dit LedZeppII:
NomDeLaComboBox.RowSource = strList

**mouaa** · 25/02/2008, 08h12

Envoyé par Flo88

Je n'ai pas bien compris dsl...

peux tu me renseigner sachant que ma combo s'appelle lstSite et que le résultat de ma boucle est des MsgBox :
C:\......\vet_base_colmar
C:\....\vet_base_mulhouse
C:\....\vet_base_strasbourg

et le mieux encore serait d'afficher dans la Combo juste Colmar, Mulhouse, Strasbourg (c'est optionnel cela)

Merci

Pour faire ça, tu dois créer un jeu d'enregistrement, avec 2 champs: l'un contient le nom de la ville (Colmar, Mulhouse, Strasbourg), l'autre le chemin (C:\......\vet_base_colmar).

Par exemple, tu peux créer une table temporaire, et rajouter un enregistrement dedans à chaque fois que tu trouves une BDD (dans ton code tu renvoies un MsgBox pour le moment).
Pour remonter le nom, je vois que le nom de tes BDD finissent tous par le nom de la ville, donc tu peux récupérer les caractères qui se situent après le "_" dans chemin de chaque BDD, tu rajoutes une majuscule à la première lettre, et tu insères le nom dans la table temporaire, en même temps que tu insères le chemin.

une fois que c'est fait, tu n'as plus qu'à faire ça:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
TaCombo.RowSourceType = "Table/Requête"
TaCombo.RowSource = "ta_table_temporaire"

Voilà, si je ne me suis pas trompée, ça devrait être bon.

Il y a probablement des façons plus simples, si quelqu'un a une suggestion....

**Flo88** · 25/02/2008, 08h24

Envoyé par mouaa

Si ça ne fonctionne pas, tu peux rajouter ça :
Pour une liste simple dans le combo :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
NomDeLaComboBox.RowSourceType = "Liste valeurs"
'et ensuite tu donnes la source, comme l'a dit LedZeppII:
NomDeLaComboBox.RowSource = strList

Ceci ne fonctionne pas

J'ai essayé tes deux formules...

**mouaa** · 25/02/2008, 08h27

que contient ta "strList" au moment où tu l'associes au rowsource de ta combo ?
sur quelle ligne access bloque-t-il ?
quelle est son message d'erreur ?

**Flo88** · 25/02/2008, 08h48

Envoyé par mouaa

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
TaCombo.RowSourceType = "Table/Requête"
TaCombo.RowSource = "ta_table_temporaire"

Voilà, si je ne me suis pas trompée, ça devrait être bon.

Il y a probablement des façons plus simples, si quelqu'un a une suggestion....

Ceci fonctionne... Plus qu'à essayer de faire le insert into pour remplir la base

**Flo88** · 25/02/2008, 09h03

Envoyé par mouaa

Pour faire ça, tu dois créer un jeu d'enregistrement, avec 2 champs: l'un contient le nom de la ville (Colmar, Mulhouse, Strasbourg), l'autre le chemin (C:\......\vet_base_colmar).

Par exemple, tu peux créer une table temporaire, et rajouter un enregistrement dedans à chaque fois que tu trouves une BDD (dans ton code tu renvoies un MsgBox pour le moment).
Pour remonter le nom, je vois que le nom de tes BDD finissent tous par le nom de la ville, donc tu peux récupérer les caractères qui se situent après le "_" dans chemin de chaque BDD, tu rajoutes une majuscule à la première lettre, et tu insères le nom dans la table temporaire, en même temps que tu insères le chemin.

une fois que c'est fait, tu n'as plus qu'à faire ça:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
TaCombo.RowSourceType = "Table/Requête"
TaCombo.RowSource = "ta_table_temporaire"

Voilà, si je ne me suis pas trompée, ça devrait être bon.

Il y a probablement des façons plus simples, si quelqu'un a une suggestion....

Cela fonctionne bien... Cependant, je n'arrive pas à faire ma requête d'ajout... J'ai fait cela et cela bugge :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
        For Ctr = 1 To .FoundFiles.Count
 
            SQL = "INSERT INTO SITE(Code, Chemin) " _
            & "VALUES (" & Ctr & ", " & .FoundFiles(Ctr) & ")"
            DoCmd.RunSQL (SQL)
 
        Next

**mouaa** · 25/02/2008, 09h08

tu peux faire un debug.print sur ta string SQL afin qu'on puisse voir le contenu de ta requête ?

**Flo88** · 25/02/2008, 09h20

Ca a l'air de bien fonctionné pourtant :

INSERT INTO SITE(Nom, Chemin) VALUES (1, C:\Documents and Settings\5STAGE5\Bureau\ACCESS_vetement\vet_base_colmar.mdb)
INSERT INTO SITE(Nom, Chemin) VALUES (2, C:\Documents and Settings\5STAGE5\Bureau\ACCESS_vetement\vet_base_mulhouse.mdb)

Le message d'erreur est le suivant : Erreur d'exécution '3075' : Erreur de syntaxe(opérateur absent) dans l'expression 'C:\Doc......

**mouaa** · 25/02/2008, 09h25

Commence par encadrer tes valeur par des quotes simples dans ta requête, ça devrait aller mieux :
Comme ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
        For Ctr = 1 To .FoundFiles.Count
 
            SQL = "INSERT INTO SITE(Code, Chemin) " _
            & "VALUES ('" & Ctr & "', '" & .FoundFiles(Ctr) & "')"
            DoCmd.RunSQL (SQL)
 
        Next

**Flo88** · 25/02/2008, 09h33

Merci beaucoup cela fonctionne beaucoup mieux !!!
Le must serait maintenant si possible au lieu d'avoir des numéros comme clé primaire, avoir les noms des villes qui sont à la fin et du champs (après le _ mais je ne sais pas tester)
mais aussi de mettre ceci dans la combo et non le chemin

MERCI MERCI MERCI

Vous êtes énorme !

**mouaa** · 25/02/2008, 09h41

Pour remonter le nom, je vois que le nom de tes BDD finissent tous par le nom de la ville, donc tu peux récupérer les caractères qui se situent après le "_" dans chemin de chaque BDD, tu rajoutes une majuscule à la première lettre, et tu insères le nom dans la table temporaire, en même temps que tu insères le chemin.

C'est ça que tu veux faire ?

**Flo88** · 25/02/2008, 09h46

oui

dsl

Remplir une ComboBox avec des fichiers

VBA Access

Discussions similaires

Partager

Partager