Publipostage vord : prob. avec une clause Where

Le
seb.....
Bonjour,

J'ai un module publipostage avec le code suivant :

Sub MergeIt()
Dim objWord As Word.Document
Set objWord =
GetObject("C:Local_datasAccessPublipostagePublipostage.doc",
"Word.Document")
' Rend Word visible important puisque la fusion se fait à l'écran.
objWord.Application.Visible = True
' Sélectionne .la base de données Contacts_Direction comme source de données
pour la fusion
objWord.MailMerge.OpenDataSource _
Name:="C:Local_datasAccessdatabaseContacts_Direction.mdb", _
LinkToSource:=True, _
Connection:="TABLE Tb_contacts", _
SQLStatement:="SELECT * FROM [Tb_contacts]WHERE strFiltreallpub "
' Exécution de la fusion.
objWord.MailMerge.Execute
Set objWord = Nothing

End Sub

J'ai une variable publique strFiltreallpub qui renvoie une valeur string
(par ex : [Type]='comédiens' AND [Zone_pays]='France' )

Avec la ligne : SQLStatement:="SELECT * FROM [Tb_contacts]WHERE
strFiltreallpub" la variable n'est pas prise en compte, je n'ai pas de
message d'erreur.

J'ai testé avec la commande en dur : SQLStatement:="SELECT * FROM
[Tb_contacts]WHERE [Type]='comédiens' AND [Zone_pays]='France'" et cela
fonctionne.

alors pourquoi cela ne fonctionne pas avec la variable strFiltreallpub ??

merci d'avance

seb
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Thierry (ze Titi)
Le #6332201
Bonjour seb..... !

objWord.MailMerge.OpenDataSource _
Name:="C:Local_datasAccessdatabaseContacts_Direction.mdb", _
LinkToSource:=True, _
Connection:="TABLE Tb_contacts", _
SQLStatement:="SELECT * FROM [Tb_contacts]WHERE " & strFiltreallpub

devrait mieux fonctionner...

Message du lundi 05/11/2007

Bonjour,

J'ai un module publipostage avec le code suivant :

Sub MergeIt()
Dim objWord As Word.Document
Set objWord =
GetObject("C:Local_datasAccessPublipostagePublipostage.doc",
"Word.Document")
' Rend Word visible important puisque la fusion se fait à l'écran.
objWord.Application.Visible = True
' Sélectionne .la base de données Contacts_Direction comme source de données
pour la fusion
objWord.MailMerge.OpenDataSource _
Name:="C:Local_datasAccessdatabaseContacts_Direction.mdb", _
LinkToSource:=True, _
Connection:="TABLE Tb_contacts", _
SQLStatement:="SELECT * FROM [Tb_contacts]WHERE strFiltreallpub "
' Exécution de la fusion.
objWord.MailMerge.Execute
Set objWord = Nothing

End Sub

J'ai une variable publique strFiltreallpub qui renvoie une valeur string (par
ex : [Type]='comédiens' AND [Zone_pays]='France' )

Avec la ligne : SQLStatement:="SELECT * FROM [Tb_contacts]WHERE
strFiltreallpub" la variable n'est pas prise en compte, je n'ai pas de
message d'erreur.

J'ai testé avec la commande en dur : SQLStatement:="SELECT * FROM
[Tb_contacts]WHERE [Type]='comédiens' AND [Zone_pays]='France'" et cela
fonctionne.

alors pourquoi cela ne fonctionne pas avec la variable strFiltreallpub ??

merci d'avance

seb


--
Cordialement,
Thierry

Tout pour réussir avec Access :
http://www.mpfa.info

seb.....
Le #6331581
Merci Thierry,

effectivement, avec la syntaxe correcte ca va tout de suite beaucoup mieux
;-)

Bonne journée


"Thierry (ze Titi)" message de news:
Bonjour seb..... !

objWord.MailMerge.OpenDataSource _
Name:="C:Local_datasAccessdatabaseContacts_Direction.mdb", _
LinkToSource:=True, _
Connection:="TABLE Tb_contacts", _
SQLStatement:="SELECT * FROM [Tb_contacts]WHERE " & strFiltreallpub

devrait mieux fonctionner...

Message du lundi 05/11/2007

Bonjour,

J'ai un module publipostage avec le code suivant :

Sub MergeIt()
Dim objWord As Word.Document
Set objWord >> GetObject("C:Local_datasAccessPublipostagePublipostage.doc",
"Word.Document")
' Rend Word visible important puisque la fusion se fait à l'écran.
objWord.Application.Visible = True
' Sélectionne .la base de données Contacts_Direction comme source de
données
pour la fusion
objWord.MailMerge.OpenDataSource _
Name:="C:Local_datasAccessdatabaseContacts_Direction.mdb", _
LinkToSource:=True, _
Connection:="TABLE Tb_contacts", _
SQLStatement:="SELECT * FROM [Tb_contacts]WHERE strFiltreallpub "
' Exécution de la fusion.
objWord.MailMerge.Execute
Set objWord = Nothing

End Sub

J'ai une variable publique strFiltreallpub qui renvoie une valeur string
(par
ex : [Type]='comédiens' AND [Zone_pays]='France' )

Avec la ligne : SQLStatement:="SELECT * FROM [Tb_contacts]WHERE
strFiltreallpub" la variable n'est pas prise en compte, je n'ai pas de
message d'erreur.

J'ai testé avec la commande en dur : SQLStatement:="SELECT * FROM
[Tb_contacts]WHERE [Type]='comédiens' AND [Zone_pays]='France'" et cela
fonctionne.

alors pourquoi cela ne fonctionne pas avec la variable strFiltreallpub ??

merci d'avance

seb


--
Cordialement,
Thierry

Tout pour réussir avec Access :
http://www.mpfa.info





Publicité
Poster une réponse
Anonyme