[PB][Débutant] Sélection dans un Combobox

Sélection dans un Combobox [PB][Débutant] - VB/VBA/VBS - Programmation

Marsh Posté le 05-02-2004 à 13:58:25    

Bonjour tout le monde,    
alors voilà j'ai un problème avec ma sélection de mon combobox nommé "Combo1". Je suis dans une Facturationn, j'aimerai en clair sélectionner le libellé de mes formations parmi celles qui sont rattachés dans la Table type_formation.  
Ce dernier contient 2 champs: numformation et libelle!  
Comment faire pour sélectionner uniquement le libbelé des mes formations  
Voici mon code:  
 

Code :
  1. Private Sub Combo1_Click()
  2. Dim db As Database
  3. Dim rs As Recordset
  4. Dim rqt As String
  5. Set db = OpenDatabase("contrat_qualif97.mdb" )
  6. rqt = "SELECT * FROM type_formation WHERE libelle = " & Combo1.Text & ""
  7. Set rs = db.OpenRecordset(rqt)
  8. End Sub

 
Comment faire pour sélectionner dans cette liste déroulante!
Dsl je suis débutant... :)  
Merci pour votre aide! ;)

Reply

Marsh Posté le 05-02-2004 à 13:58:25   

Reply

Marsh Posté le 05-02-2004 à 14:06:54    

rqt = "SELECT * FROM type_formation WHERE libelle = " & Combo1& ""  
 
Mettre dans le ".text"
 
 

rony95 a écrit :

Bonjour tout le monde,    
alors voilà j'ai un problème avec ma sélection de mon combobox nommé "Combo1". Je suis dans une Facturationn, j'aimerai en  
clair sélectionner le libellé de mes formations parmi celles qui sont rattachés dans la Table type_formation.  
Ce dernier contient 2 champs: numformation et libelle!  
Comment faire pour sélectionner uniquement le libbelé des mes formations  
Voici mon code:  
 

Code :
  1. Private Sub Combo1_Click()
  2. Dim db As Database
  3. Dim rs As Recordset
  4. Dim rqt As String
  5. Set db = OpenDatabase("contrat_qualif97.mdb" )
  6. rqt = "SELECT * FROM type_formation WHERE libelle = " & Combo1.Text & ""
  7. Set rs = db.OpenRecordset(rqt)
  8. End Sub

 
Comment faire pour sélectionner dans cette liste déroulante!
Dsl je suis débutant... :)  
Merci pour votre aide! ;)  


---------------
Je Suis En Phase Creative...
Reply

Marsh Posté le 05-02-2004 à 14:36:17    

J'ai pas bien compris lorsque tu parles de ".text"? :??:

Reply

Marsh Posté le 05-02-2004 à 15:08:48    

ben tu ne mets pas l'extension '.text' dans ta requete


---------------
Je Suis En Phase Creative...
Reply

Marsh Posté le 05-02-2004 à 15:18:01    

Dsl je l'ai retiré et ça ne fonctionne toujours pas! En exécution, j'essai de sélectionner mais la liste déroulante ne se lance pas....

Reply

Marsh Posté le 05-02-2004 à 16:19:32    

tu le fais en access ou avec Visual?


---------------
Je Suis En Phase Creative...
Reply

Marsh Posté le 05-02-2004 à 16:37:32    

Avec les 2 en fait! C'est en sélectionnant le Combo1, ça me déroule toutes les données de ma base de donnée Access contrat_qualif.mdb de la table type_formation!

Reply

Marsh Posté le 05-02-2004 à 17:10:24    

d'accord en fait ta table est dans access et tu codes dans vb?
 
je crois que qd tu sélectionnes un element dans la combobox, tu dois avoir un numero d'index de l'element sélectionné
et apres tu travaille avec cet index


---------------
Je Suis En Phase Creative...
Reply

Marsh Posté le 05-02-2004 à 17:54:03    

Exactement!!
Le pb c'est qu'en sélectionnant le n° d'index ça ne me référence pas les données que je veux de l'autre table...

Reply

Marsh Posté le 05-02-2004 à 19:26:16    

rony95 a écrit :

Exactement!!
Le pb c'est qu'en sélectionnant le n° d'index ça ne me référence pas les données que je veux de l'autre table...


 
je teste ca et je te le dirai... c pressé?


Message édité par ki2koo le 05-02-2004 à 19:26:57
Reply

Marsh Posté le 05-02-2004 à 19:26:16   

Reply

Marsh Posté le 05-02-2004 à 20:29:13    

un petit peu, c'est pour lasuite de mon projet (Form: facture)!
Merci de ton aide

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed