Discussion :

[Hydex]

Dans mon formulaire principal se trouvent 4 formulaires. Dans chacun il y a 3 ou 4 champs où peut se trouver un nom (facultatif).
A la fin de mon formulaire principal, j'ai un bouton qui permet d'envoyer un certain résultat par mail, je voudrais que ce mail arrive à tous ceux dont le nom est dans au moins un des champs des sous formulaires.
J'ai une table avec les noms qui sont susceptibles d'apparaître et leur adresse mail.
Comment pourrais-je avoir dynamiquement, pour chaque enregistrement, la liste des noms (et donc la liste des mails qui va avec) pour pouvoir faire ma liste de diffusion.

J'ai pensé à une variable globale où seraient concaténés les noms quand ils existent. Je pourrais ensuite faire un split sur la variable, et pour chaque case de mon tableau, trouver le mail correspondant au nom. Cela dit, ça me paraît bien compliqué , et je suis même pas sûr que ça marche (comment lancer l'analyse sur un enregistrement où il n'y pas d'update, juste l'appui du bouton en bas? ...).

S'il y a une solution, j'aimerais bien la connaître,
merci !

[jean-paul lepetit]

Salut,

Tes sous formulaires ont des champs Père/Fils je suppose ?

Tu peux donc te créer un recordset avec comme critère la valeur de ton champ père

[Hydex]

Euh, oui, il y à bien des champs père/fils.
Par contre,...

Tu peux donc te créer un recordset avec comme critère la valeur de ton champ père

Je n'ai pas tout compris là...

[jean-paul lepetit]

un recordset est une "table virtuelle"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Dim MaBd as Database
Dim Rst as Recordset
Dim StrSql as String
StrSql="SELECT Champ1,Champ2, etc.. FROM Matable WHERE MonChamp= " & MonCritere & ";"
Set MaBd=CurrentDb
Set Rst=MaBd.openRecordset (StrSql, dbOpendynaset)
With Rst
   .MoveFirst
   DO
      MaVariable=!Monchamp2
      'etc.....
      'traitement de tes données
   Loop until rst.EOF
   .Close
End With

[Hydex]

Ah oui. Ah ben ça doit être bon, ma requete fait 10 lignes de code, mais ça a l'air de marcher (cette partie, du moins). merci!

[jean-paul lepetit]

j'ai oublié un MoveNext sinon tu va tourner en rond...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Dim MaBd as Database
Dim Rst as Recordset
Dim StrSql as String
StrSql="SELECT Champ1,Champ2, etc.. FROM Matable WHERE MonChamp= " & MonCritere & ";"
Set MaBd=CurrentDb
Set Rst=MaBd.openRecordset (StrSql, dbOpendynaset)
With Rst
   .MoveFirst
   DO
      MaVariable=!Monchamp2
      'etc.....
      'traitement de tes données
     .MoveNext
   Loop until rst.EOF
   .Close
End With