Discussion :

[DurDur]

Bonjour,

Je réalise une appli de PUBLIPOSTAGE.

Après avoir fait une sélection, je me retrouve avec la requête suivante:

Code :

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

select distinctrow [rqs_publipostage].*from [rqs_publipostage] where (([rqs_publipostage].[nom1] like "BE*"));

Je la transforme en variable

Code :

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

jc_TRI="select distinctrow [rqs_publipostage].*from [rqs_publipostage] where (([rqs_publipostage].[nom1] like "BE*"));"

là, il y a déjà des problèmes avec les 'qottes'
et je voudrais l'insèrée dans mon code de cette manière

Code :

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

1
2
3
4
5
With DOC.MailMerge
        .OpenDataSource Name:=DbNAME, SQLStatement:= jc_TRI
        .Destination = wdSendToPrinter
        .Execute
    End With

Pour vérifier, j'ai procédé de cette manière:

Code :

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

1
2
3
4
5
6
7
jc_Tri = "BE*"
 
    With DOC.MailMerge
        .OpenDataSource Name:=DbNAME, SQLStatement:="select distinctrow [rqs_publipostage].*from [rqs_publipostage] where (([rqs_publipostage].[nom1] like " & Chr(34) & jc_Tri & Chr(34) & "));"
        .Destination = wdSendToPrinter
        .Execute
    End With

Mais pas d'impression (pas de message d'erreur).

Merci de votre aide.

JC57

[Jean-Philippe André]

salut

Code :

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

jc_TRI="select distinctrow [rqs_publipostage].*from [rqs_publipostage] where (([rqs_publipostage].[nom1] like 'BE*'));"

[DurDur]

Merci pour cette réponse rapide,

Mais déjà fait et réessayé sans résultat (pas d'impression).

Est ce qu'il y a un moyen pour faire se dérouler le programme pas à pas ?

JC57

[Invité]

Bonjour

Dans un premier temps, il manque un espace avant le From.

Passes ta requête Select dans une MsgBox pour voir son contenu.

Starec

[Jean-Philippe André]

juste des fois que : le résultat de la requête n'est pas vide ?
et pense à mettre des espaces dans la requete.
Enfin, pour le problème lié à l'imprimante, une tache d'impression est lancée ou pas du tout ?

[DurDur]

Bonsoir à tous,

Pour la requête, elle est formulée par le tutoriel de LOUFAB avec contrôle du contenu de la reqête, elle n'est pas vide.

J'ai remplacé les 'double quotte' par des simples pour le critère LIKE.

J'ai ajouté les 'double quotte' au début et à la fin de la requête.

Cette requête se présente bien dans un MSGBOX.

Et il se passe bien quelque chose (tache d'impression ?), mais c'est trop vite et je ne vois pas ce qui se passe.

JC57