Utiliser la valeur d'une requête SELECT dans du VBA [Résolu]

Signaler
Messages postés
59
Date d'inscription
mardi 12 septembre 2006
Statut
Membre
Dernière intervention
21 août 2009
-
Messages postés
59
Date d'inscription
mardi 12 septembre 2006
Statut
Membre
Dernière intervention
21 août 2009
-
Je chercher à réutiliser la valeur d'une requête SELECT nommée "query_nbr_noind_a_parametrer":

SELECT Count("NoInd") AS nombrenoindarenseigner
FROM Noind
WHERE Sub_fund_name is null and fund_code is null; 

afin de la réutiliser dans du vba et d'en afficher la valeur dans une msgbox:

Private Sub Form_open(Cancel as integer)

Dim nbnoindinc as string

nbnoindinc = DoCmd.RunSQL(query_nbr_noind_a_parametrer)

Msgbox "La table Noind comporte un total de : " & nbnoindinc & "Noind non renseignés", vbOKOnly

End Sub

Il semblerait qu'il ne soit pas possible de retourner la valeur d'une requête SELECT avec DoCmd.RunSQL, auriez-vous idée d'une solution annexe?

Merci

2 réponses

Messages postés
215
Date d'inscription
mercredi 2 février 2005
Statut
Membre
Dernière intervention
9 avril 2010
3
Hello ,

je passe par :

Dim rs as recordset
Dim sChaine as string
sChaine = "ma petite requête sélection SQL"
Set rs = currentdb.openrecordset(sChaine,dbopensnapshot)
with rs
   if .eof = true then 
      msgbox "Pas de valeur retournée pour ta requête" 
   else
      msgbox ![mon champ]
   end if

end with

***********  Si cette réponse vous convient, merci de valider ce post  ***********

ChaPaTa/FONT>
Messages postés
59
Date d'inscription
mardi 12 septembre 2006
Statut
Membre
Dernière intervention
21 août 2009
2
Impeccable, cela fonctionne parfaitement, merci bien.