Problème remplir ComboBox avec champs d'une table

Question

Bonjour tout le monde, je suis débutant en base de données, j'ai une base de données avec trois tables.
Gestion, Historique et Prix. J'ai un userForm avec une Listbox remplie selon le choix d'un ComboBox sur la table Historique qui fonctionne. Je souhaite faire deux autres userForm avec des ListBox remplies selon les choix de ComboBox sur la table Gestion et la table Prix.
Or impossible de les faire fonctionner. Quelqu'un pourrait-il jeter un coup d'oeuil.
Merci par avance.

https://www.cjoint.com/c/LBtwXwpkH4m

dysorthographie · Answer

Bonjour,
j'ai fait quelques aménagement à toi de voir ce qui est judicieux!
Private Sub UserForm_Initialize()

Me.ComboBox1.Column = Get_ComboEtat("Gestion", "Champs3")
'    Filtre
End Sub

Function Get_ComboEtat(Tbl As String, Chps As String) As Variant()

Req = "SELECT DISTINCT " & Chps & " FROM [" & Tbl & "]" & _
            " ORDER BY " & Chps
Dim d
d = MyQuery(Req, 0)
    If TypeName(d) <> "Booleant" Then Get_ComboEtat = d
  '  Else: Get_ComboEtat = Array("")
End Function
 Function MyQuery(Req As String, Optional Head As Byte = 1) As Variant
  With CreateObject("ADODB.Connection")
        .Provider = "MSDASQL"
        .Open "DRIVER={Microsoft Access Driver (*.mdb, *.accdb)}; DBQ=" & BDD
            With .Execute(Req)
                If Not .EOF Then
                    MyQuery = .getrows
                Else
                    MyQuery = False
                End If
                .Close
            End With
        .Close
    End With

End Function

Tophe45 · Answer

Bonjour 
dysorthographie, merci pour votre réponse, ça fonctionne pour la table Gestion.
Un grand merci je vais pouvoir avancer sur ce point.
Par contre pouvez vous m'expliquer le code pour que je l'adapte pour la table Prix ou je dois remplir le combobox de l'userform Usf_Prix avec les champs de la table.

dysorthographie · Answer

j'ai fais beaucoup de modification sur ton fichier afin de modéliser la gestion des données!

 https://www.cjoint.com/c/LBurUYiCTS4

Tophe45 · Answer

Bonjour dysorthographie, désolé je n'avais pas vu votre dernier message.(vu grace à un autre forum ou je suis en parallèle).
J'ai utilisé votre prmier code qui fonctionne très bien mais qui ne me renvoyait pas les valeurs dans les bonnes colonnes dans la ListBox. Je me suis aperçu qu'il y avait un problème dans mon code d'enregistrement sur la BDD. C'est rectifié et ça fonctionne.
J'ai testé le fichier que vous avez modifié, cela fonctionne aussi mais les code d'enregistrement et d'historique ne fonctionnent plus.
J'ai donc gardé ma version avec votre premier code.
Un grand merci pour le temps passé et pour m'avoir débloqué.

Problème remplir ComboBox avec champs d'une table

4 réponses

Votre réponse