Problème remplir ComboBox avec champs d'une table

Tophe45 - 19 févr. 2022 à 23:49
 Tophe45 - 22 févr. 2022 à 08:46
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

4 réponses

dysorthographie Messages postés 95 Date d'inscription jeudi 27 janvier 2022 Statut Membre Dernière intervention 10 juin 2024 5
20 févr. 2022 à 01:17
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
0
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.
0
dysorthographie Messages postés 95 Date d'inscription jeudi 27 janvier 2022 Statut Membre Dernière intervention 10 juin 2024 5
20 févr. 2022 à 18:47
j'ai fais beaucoup de modification sur ton fichier afin de modéliser la gestion des données!

https://www.cjoint.com/c/LBurUYiCTS4
0
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é.
0
Rejoignez-nous