Bonjour,
Dans le cadre de mon BTS SIO où je suis en 1re année je dois créer une base de données et des formulaires sous excel (userform) et je bute sur les listes déroulantes. Je vous explique:
J'ai une table Centre avec les champs : (num_centre, nom_centre)
une table Sous_Centre avec les champs : (num_sscentre,nom_sscentre,num_centre)
Et J'ai une table Sous_Sous_Centre avec les champs : (num_ss_sscentre,nom_ss_sscentre,num_sscentre)
Pour éviter le risque d'erreur je voudrais diriger l'utilisateur en faisant des listes déroulantes restreintes.
De la liste des centres cela nous donne le sous centre et du sous centre cela nous donne le sous-sous centre séléctionnées.
Après m'etre connecté à ma base de donnée Access lorsque l'user form se charge j'ai créé une requete basique :
"SELECT num_centre,nom_centre FROM Centre;" que j'ai écrit dans la procédure lorsque j'appuie sur un bouton
Private Sub BtnValider_Click()
Dim existeenreg As Boolean
Set TBon_RST = New ADODB.Recordset
reqsql = "Select num_centre, nom_centre from Centre"
nom = "R"
TBon_RST.Open reqSql, Mabase
existeenreg = TBon_RST.EOF
While existeenreg = False
x = TBon_RST.Fields(2)
CboCentre.AddItem "x"
TBon_RST.movement
Wend
Pour le champ sous-centre, je voudrais restreindre le choix suivant ce qui a été précédement choisi dans Centre.Pour le champ sous-sous-centre, je voudrais restreindre le choix suivant ce qui a été précédement choisi dans Centre et dans sous centre.
Donc je pense passé par des "IF" et quelques variables ça devrait marché... Mais lorsque je test mon bout de code décris au dessus ça m'indique : "Erreur d'éxécution '438' : Propriété ou méthode non gérée par cet objet.
Si une âme charitable en a une, je luis serais éternellement reconnaissant.
