Requete SQL en VBA Liste deroulante [Résolu/Fermé]

Signaler
Messages postés
111
Date d'inscription
lundi 4 juin 2012
Statut
Membre
Dernière intervention
5 juillet 2012
-
Messages postés
111
Date d'inscription
lundi 4 juin 2012
Statut
Membre
Dernière intervention
5 juillet 2012
-
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.

Par avance,
Merci.
lilian.tobelem@hotmail.fr




2 réponses

Messages postés
15534
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
27 janvier 2021
1 441
Re,

Je vous ais repondu sur votre sujet en cours.

Evitez de mettre une adresse @
Messages postés
111
Date d'inscription
lundi 4 juin 2012
Statut
Membre
Dernière intervention
5 juillet 2012

Bonjour,

Désolé d'être impatient... J'ai la pression car je patoge dans la semoule alors que en règle générale je me démerde plutot pas mal sous vb.net

Merci du conseil pour @!
A+