bonjour ,
ci joint mon code pour fusionner entre word et access vous remarquez que
j'ai une seule condition ( Where [imprimer O/N]=1) mon souci c'est que je
souhaite rajouter une 2eme condition avec AND mais ca marche pas .
Exemple : where [Imprime O/N]= 1 and [code Iden]= initial
sachnat que le type du [code iden] serait du texte
Merci de votre aide.
Private Sub Impression_AF()
Dim oApp As Word.Application
Dim DOC As Word.Document
Dim DBName As String
Const DocName = "AF1.Doc"
Set oApp = CreateObject("Word.Application")
oApp.Visible = False
Set DOC = oApp.Documents.Open(Application.CurrentProject.Path & "\Docs\" &
DocName)
DBName = Application.CurrentDb.Name
With DOC.MailMerge
.OpenDataSource Name:=DBName, SQLStatement:="SELECT * FROM
[TABLE APPELS FONDS] WHERE [IMPRIMER O/N] =1"
.Destination = wdSendToPrinter
.Execute
End With
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Eric
Bonjour,
as tu essayé avec : SQLStatement:="SELECT * FROM [TABLE APPELS FONDS] WHERE [IMPRIMER O/N] =1 AND [code Iden]='" & initial & "';"
Dans le cas où initial est une variable String déclarée et renseignée dans la procédure.
NB: initial ne doit pas contenir de ' . Si c'est le cas alors il te faudra doubler les "" à la place de la ' autour de la variable initial du genre :
... AND [code Iden]=""" & initial & """;"
A+ Eric
bonjour , ci joint mon code pour fusionner entre word et access vous remarquez que j'ai une seule condition ( Where [imprimer O/N]=1) mon souci c'est que je souhaite rajouter une 2eme condition avec AND mais ca marche pas . Exemple : where [Imprime O/N]= 1 and [code Iden]= initial sachnat que le type du [code iden] serait du texte
Merci de votre aide.
Private Sub Impression_AF() Dim oApp As Word.Application Dim DOC As Word.Document Dim DBName As String
Const DocName = "AF1.Doc"
Set oApp = CreateObject("Word.Application") oApp.Visible = False Set DOC = oApp.Documents.Open(Application.CurrentProject.Path & "Docs" & DocName) DBName = Application.CurrentDb.Name
With DOC.MailMerge .OpenDataSource Name:ÛName, SQLStatement:="SELECT * FROM [TABLE APPELS FONDS] WHERE [IMPRIMER O/N] =1" .Destination = wdSendToPrinter .Execute End With
as tu essayé avec :
SQLStatement:="SELECT * FROM
[TABLE APPELS FONDS] WHERE [IMPRIMER O/N] =1 AND [code Iden]='" &
initial & "';"
Dans le cas où initial est une variable String déclarée et renseignée
dans la procédure.
NB: initial ne doit pas contenir de ' . Si c'est le cas alors il te
faudra doubler les "" à la place de la ' autour de la variable initial
du genre :
... AND [code Iden]=""" & initial & """;"
A+
Eric
bonjour ,
ci joint mon code pour fusionner entre word et access vous remarquez que
j'ai une seule condition ( Where [imprimer O/N]=1) mon souci c'est que je
souhaite rajouter une 2eme condition avec AND mais ca marche pas .
Exemple : where [Imprime O/N]= 1 and [code Iden]= initial
sachnat que le type du [code iden] serait du texte
Merci de votre aide.
Private Sub Impression_AF()
Dim oApp As Word.Application
Dim DOC As Word.Document
Dim DBName As String
Const DocName = "AF1.Doc"
Set oApp = CreateObject("Word.Application")
oApp.Visible = False
Set DOC = oApp.Documents.Open(Application.CurrentProject.Path & "Docs" &
DocName)
DBName = Application.CurrentDb.Name
With DOC.MailMerge
.OpenDataSource Name:ÛName, SQLStatement:="SELECT * FROM
[TABLE APPELS FONDS] WHERE [IMPRIMER O/N] =1"
.Destination = wdSendToPrinter
.Execute
End With
as tu essayé avec : SQLStatement:="SELECT * FROM [TABLE APPELS FONDS] WHERE [IMPRIMER O/N] =1 AND [code Iden]='" & initial & "';"
Dans le cas où initial est une variable String déclarée et renseignée dans la procédure.
NB: initial ne doit pas contenir de ' . Si c'est le cas alors il te faudra doubler les "" à la place de la ' autour de la variable initial du genre :
... AND [code Iden]=""" & initial & """;"
A+ Eric
bonjour , ci joint mon code pour fusionner entre word et access vous remarquez que j'ai une seule condition ( Where [imprimer O/N]=1) mon souci c'est que je souhaite rajouter une 2eme condition avec AND mais ca marche pas . Exemple : where [Imprime O/N]= 1 and [code Iden]= initial sachnat que le type du [code iden] serait du texte
Merci de votre aide.
Private Sub Impression_AF() Dim oApp As Word.Application Dim DOC As Word.Document Dim DBName As String
Const DocName = "AF1.Doc"
Set oApp = CreateObject("Word.Application") oApp.Visible = False Set DOC = oApp.Documents.Open(Application.CurrentProject.Path & "Docs" & DocName) DBName = Application.CurrentDb.Name
With DOC.MailMerge .OpenDataSource Name:ÛName, SQLStatement:="SELECT * FROM [TABLE APPELS FONDS] WHERE [IMPRIMER O/N] =1" .Destination = wdSendToPrinter .Execute End With
