sql, clause where et variable publique

Bonjour,

J'ai récupéré le tuto pour faire du publipostage access/word.

J'ai des petit soucis dans la rédaction d'une ligne sql.

J'ai besoin de passer une variable publique (strFiltreall) dans une clause WHERE :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Sub MergeIt() Dim objWord As Word.Document Set objWord = GetObject("C:\Local_datas\Access\Publipostage\Publipostage.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_datas\Access\database\Contacts_Direction.mdb", _ LinkToSource:=True, _ Connection:="TABLE Tb_contacts", _ SQLStatement:="SELECT * FROM [Tb_contacts]WHERE strFiltreall" ' Exécution de la fusion. objWord.MailMerge.Execute Set objWord = Nothing End Sub

---

Je m'en sort pas.. Quand je lance le publipostage, il ne prends pas compte la variable...

Si quelqu'un peut me corriger, je le remercie d'avance

seb

Hello et bienvenue sur le forum ;)

Si ton filtre (comme le str..) le laisse suggérer retourne une valeur String :

Code:

---

SQLStatement:="SELECT * FROM [Tb_contacts]WHERE '" & strFiltreall & "'"

---

bonjour,

J'ai essayé la ligne :

SQLStatement:="SELECT * FROM [Tb_contacts]WHERE '" & strFiltreall & "'"

et cela ne fonctionne pas. Je n'ai pas de message d'erreur, la fusion s'effectue sur tous les enregistrements.

la variable publique strFiltreall est de type variant.
Elle renvoie par exemple la valeur suivante :

([Type]='comédiens' AND [Zone_pays]='France')


merci pour votre aide

Seb

Pourquoi donc l'existence des ":" ? Je n'ai jamais vu ce codage... ?

Code:

---

1 2 3 4 5

objWord.MailMerge.OpenDataSource _ Name:="C:\Local_datas\Access\database\Contacts_Direction.mdb", _ LinkToSource:=True, _ Connection:="TABLE Tb_contacts", _

---

Pourquoi n'écris-tu pas :

Code:

---

1 2	SQLStatement = "SELECT * FROM [Tb_contacts]WHERE [Type]='comédiens' AND [Zone_pays]='France'"

---

Sinon, alors, divises ta variable en deux, strType =... et strZone = ...

ben... heu... pour les : ils sont dans le tuto... j'ai fait un copié-collé
http://heureuxoli.developpez.com/publipostage/#LI-B-5-a
section I-B-5-e. Ajout d'une procédure

Pourquoi je n'écris pas :

Code:

---

= "SELECT * FROM [Tb_contacts]WHERE [Type]='comédiens' AND [Zone_pays]='France'"

---

Les données de filtrage changent, si c'était figé, oui je taperais tout en dur cela m'éviterai cette prise de tête..;)


strFiltreall : je l'obtiens en concaténant plusieurs valeurs de listes modifiables. cela me permet de filtrer un sous formulaire convenablement.

c'est résolu ;-)

La syntaxe exacte est :

Code:

---

SQLStatement:="SELECT * FROM [Tb_contacts]WHERE " & strFiltreallpub

---

merci encore