Discussion :

[Brice1981]

Voila j'ai un formulaire avec une liste déroulante (forms!mailing2!listegroupe) qui contient l'idgroupe et le nom du groupe j'ai creer un sub pour l'envois de mail, Ce que je voudrais c que l'envois des mail soit envoyé uniquement au groupe qui as été selectionné dans la liste déroulante mais ca ne marche pas
Voici le code qui fonctionne et m'envois donc les mail uniquement a l'idgroupe adu

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Public Sub envoiMultiple()
Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim strmsg As String
 
Set cnn = CurrentProject.Connection
Set rst = New ADODB.Recordset
rst.ActiveConnection = cnn
Dim mySQL As String
mySQL = "select [joueurs].[idGroupe],[joueurs].[mail],[joueurs].[Prénom]"
mySQL = mySQL + "from [joueurs] "
 
mySQL = mySQL + "where  not isNull (joueurs.Mail)and (joueurs.idgroupe)='adu'"

ce que je voudrais c que a la place de 'adu' il aille me chercher le = a au formulaire mais ca ne fonctionne pas en faisant

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Public Sub envoiMultiple()
Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim strmsg As String
 
Set cnn = CurrentProject.Connection
Set rst = New ADODB.Recordset
rst.ActiveConnection = cnn
Dim mySQL As String
mySQL = "select [joueurs].[idGroupe],[joueurs].[mail],[joueurs].[Prénom]"
mySQL = mySQL + "from [joueurs] "
 
mySQL = mySQL + "where  not isNull (joueurs.Mail)and (joueurs.idgroupe)=(forms!mailing2!listegroupe) "

Merci de m'aider

[pgz]

Bonjour,

Tu peux esayer cela:

Code :

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

mySQL = mySQL & "where  not isNull joueurs.Mail and joueurs.idgroupe= '" & Forms!mailing2.listegroupe & "';"

Bon courage,

PGZ

[Brice1981]

Merci parfait ca a marché juste qu'il faut mettre joueurs.mail et joueurs.id entre parenthèse mais merci bcp Suis trop content j'ai fini mon memoire now