De l'usage des boîtes de dialogue

Bonjour,
essaie en transformant la procedure Distribuer_formulaire en fonction qui
renvoie
une chaine de caracteres

Dans un module standard ecrire :
Public DestListeSQL
Function Distribuer_Formulaire () As string
DoCmd.OpenForm "liste des destinataires", acNormal, , , , acDialog
Distribuer_FormulaireÞstListeSQL
End Function

Dans le Formulaire "Liste des destinataires"
Sub Form_Close
DestListeSQL="SELECT *..... WHERE ....' le sql correspondant aux destinataires
End sub ' choisis

Maintenant pour appeler et recuper les destinataires dans un recordset
ecrire :
Set rstDestinataire=CurrentDb.OpenCurrent(Distribuer_Formulaire)

Cette derniere ligne ouvre le formulaire "Liste Destinataire", renvoie le
sql correspondant et crée le recordset associé.

Tu dois transformer la liste des destinataires en requete SQL
soit dans le form "Liste ..." ou dans la fonction "Distribuer....

Bonjour à tous,

Dans le cadre de l'automatisation de le distribution d'un formulaire, je
souhaite créer une boîte de dialogue qui me renverrait une chaîne contenant
l'instruction sql définissant la liste des destinataires...
le pb :
Comment récupérer une valeur à partir d'une boîte de dialogue?
Actuellement je suis sur qqch comme :

sub distribuer_formulaire

DoCmd.OpenForm "liste des destinataires", acNormal, , , , acDialog, strsql
' et ici j'aimerais recupérer mes infos dans strsql
'pour les utiliser dans ma fonction

sendmail rstDestinataires ....
'(ou rstDestinataires représente le recordset obtenu
'à partir de ma requête sql ....)


Merci de vos réponses


endsub