Fonction ME publipostage access
bono53
Messages postés
17
Statut
Membre
-
bono53 Messages postés 17 Statut Membre -
bono53 Messages postés 17 Statut Membre -
Bonjour,
je suis sur un publipostage que je souhaite faire sur access via un formulaire et j'ai une erreur sur la fonction ME, je ne la comprends pas.
voici le code que j'utilise :
Sub MergeIt()
Dim objWord As Word.Document
Set objWord = GetObject("C:\Documents and Settings\hchibani\Bureau\noms.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 Comptoir comme source de données pour la fusion
objWord.MailMerge.OpenDataSource _
Name:="C:\Documents and Settings\hchibani\Mes documents\Base de données1.accdb", _
LinkToSource:=True, _
Connection:="essai CDOS", _
SQLStatement:="SELECT * FROM [Publipostage] WHERE [Num] = " & Me.[Num]
' Exécution de la fusion.
objWord.MailMerge.Execute
Set objWord = Nothing
End Sub
Le module se nomme Publipostage et mon ID de ma table essai CDOS est Num
Pouvez vous me dire pourquoi j'ai une erreur sur le ME [Num] ?
je suis sur un publipostage que je souhaite faire sur access via un formulaire et j'ai une erreur sur la fonction ME, je ne la comprends pas.
voici le code que j'utilise :
Sub MergeIt()
Dim objWord As Word.Document
Set objWord = GetObject("C:\Documents and Settings\hchibani\Bureau\noms.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 Comptoir comme source de données pour la fusion
objWord.MailMerge.OpenDataSource _
Name:="C:\Documents and Settings\hchibani\Mes documents\Base de données1.accdb", _
LinkToSource:=True, _
Connection:="essai CDOS", _
SQLStatement:="SELECT * FROM [Publipostage] WHERE [Num] = " & Me.[Num]
' Exécution de la fusion.
objWord.MailMerge.Execute
Set objWord = Nothing
End Sub
Le module se nomme Publipostage et mon ID de ma table essai CDOS est Num
Pouvez vous me dire pourquoi j'ai une erreur sur le ME [Num] ?
