Bonjour, alors voici mon problème :  
 
je voudrai savoir comment faire pour récuperer le résultat d'une requête (en VBA). Voici mon bout de code, et ce que j'aimerai faire (vous comprendrez peut être mieu) :
 
Private Sub cboLibelleMF_Change()
Dim strSQL As String
Me.cboLibelleRF.RowSourceType = "Table/Requête"
strSQL = "SELECT RegionFonctionnelle.numRF,RegionFonctionnelle.libelleRF FROM RegionFonctionnelle INNER JOIN MacroFonction " _
& "ON RegionFonctionnelle.numRF=MacroFonction.numRF " _
& "WHERE MacroFonction.numMF=" & Me.cboLibelleMF
Me.cboLibelleRF.RowSource = strSQL
Me.cboLibelleRF.Requery
End Sub
 
voila, donc j'ai une combo (cbo.LibelleMF), et lorsque je clique dessus, j'aimerai qu'elle mette automatiquement le résultat de ma requête dans une autre combo (cboLibelleRF), sachant que le résultat de ma requête est un entier (et un seul, par exemple 4). Mon code ici ne fait que charger le résultat de ma requête dans ma deuxième combo (cboLibelleRF).  
J'éspère que quelq'un pourra m'aider, sinon, si vous pouviez m'orienter vers un topic du même genre (j'ai déja chercher mais en vain).
 
Je vous dit aussi ce que j'ai essayer et qui n'a pas fonctionner :
 
à la place de : Me.cboLibelleRF.RowSource = strSQL, j'ai essayer :
 
- Me.cboLibelleRF = strSQL , mais la il me charge toute la requête dans ma deuxième combo
 
Merci d'avance.

avec ce code, je ne suis pas étonné de voir la requete entiere balancée. Par contre je c po koi proposer  si ce n'est de te faire une variable globale que tu modifies avec ta requete et que tu récupères dans l'autre combo

salut, tout d'abbord merci d'avoir répondu : mais j'ai déja essayer ta solution (enfin si j'ai bien compris) : le problème, c'est que ca ne répond pas à ma question. comment je fait ensuite pour récuperer le résultat de marequête, et pour le stocker dans ma variable globale ??  
désolé si j'ai mal interpreté ta solution , mais je suis plutot long à la détente.  

ben ton résultat strSQL non?
tu créées une globale useless de type String
et useless = strSQL
mais je connais pas SQL donc je c po trop  

oui, c'est bien ca, mais ca ne marche pas. merci quand même. n'hésite pas si tu as une autre idée.

ben alors tu mets ca (avec Cbo le nom de ta 2e combobox)
 Cbo.value = strSQL

non, déja essayer, c'est ca qui balance toute la requête (chaine de caractère) dans ma combo.

si quelqu'un peut compléter  

Bonsoir,
J'essai actuellement de créer une recherche intuitive en récupérant le texte de Texte0 une fois la touche du clavier sur ce champ de texte relevée afin de rechercher dans un tableau de données tous les champs correpondant éventuellement à la recherche effectuée...
 
Voila peut-etre que ça intéressera certain d'entre vous et que l'on poura m'aider (j'ai fait ya 4ans du visual basic et là je redébarque dans Access erfff)
 
 
Option Compare Database
 
Public rqt As String
 
Private Sub Texte0_KeyUp(KeyCode As Integer, Shift As Integer)
 
rqt = "Select NomLatin from Plantes where NomCommun='" & Texte0.Text & "*'"
Modifiable4.Recordset = rqt /////ICI CE TROUVE L'ERREUR///
 
End Sub

up

http://www.vb-helper.com/AdoTalk/AdoTalk.zip