Trop peu de parametres. 1 attendu.

Bonjour,

Quand j'exécute le code avec

'chSQL = "SELECT T_Tjudo.mail" & _
'" FROM T_Tjudo" & _
'" GROUP BY T_Tjudo.mail" & _
'" HAVING (((T_Tjudo.mail)='domhervouin@aol.com'));"
ça marche mais c'est pas ce que je veux

ce que je veux c'est récupérer une adresse mail suivant un nom choisi dans une liste modifiable comme le fait la requete suivante
chSQL = "SELECT listenoms.Nomprenom, listenoms.mail" & _
" FROM listenoms" & _
" WHERE (((listenoms.Nomprenom)=formulaires!Menu!modifiable37));"

mais je n'y arrive pas j'ai le message suivant :
" Trop peu de parametres. 1 attendu. "

Function Envoi_fiche_inscription1()

On Error GoTo Envoi_fiche_inscription1_Err

Dim Qry As dao.QueryDef
Dim Rs As dao.Recordset
Dim chSQL As String

chSQL = "SELECT listenoms.Nomprenom, listenoms.mail" & _
" FROM listenoms" & _
" WHERE (((listenoms.Nomprenom)=formulaires!Menu!modifiable37));"

'chSQL = "SELECT T_Tjudo.mail" & _
'" FROM T_Tjudo" & _
'" GROUP BY T_Tjudo.mail" & _
'" HAVING (((T_Tjudo.mail)='domhervouin@aol.com'));"


Set tb = CurrentDb.OpenRecordset(chSQL)
adresse = tb.mail

Set Qry = Nothing
Set Rs = Nothing

DoCmd.SendObject acReport, "F indiv", "RichTextFormat(*.rtf)", adresse, "", "", "Inscription judo", "Bonjour," , True, ""

Envoi_fiche_inscription1_Exit:
Exit Function

Envoi_fiche_inscription1_Err:
MsgBox Error$
Resume Envoi_fiche_inscription1_Exit

End Function