Fonction ME publipostage access
bono53
Messages postés
12
Date d'inscription
Statut
Membre
Dernière intervention
-
bono53 Messages postés 12 Date d'inscription Statut Membre Dernière intervention -
bono53 Messages postés 12 Date d'inscription Statut Membre Dernière intervention -
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] ?
A voir également:
- Fonction ME publipostage access
- Fonction si et - Guide
- Publipostage mail - Accueil - Word
- Access runtime ✓ - Forum Access
- Fonction miroir - Guide
- Publipostage date inversée - Forum Excel