Utiliser la valeur d'une requête SELECT dans du VBARésolu

Question

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

cs_chapata · Accepted Answer

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>

cs_Famas54 · Answer

Impeccable, cela fonctionne parfaitement, merci bien.

Utiliser la valeur d'une requête SELECT dans du VBA

2 réponses

Votre réponse

Discussions similaires