Error combinación correspondencia access/word con password en access
Publicado por Juan (8 intervenciones) el 23/12/2022 21:54:00
Tengo un módulo en una base de datos access que combina datos con word. Mi problema es que si le pongo una clave de acceso a la base de datos la combinación de correspondencia deja de funcionar.
Adjunto parte del código que utilizo por si alguien me puede indicar las modificaciones necesarias para que funcione al tener la base de datos una clave de acceso al arrancar.
Adjunto parte del código que utilizo por si alguien me puede indicar las modificaciones necesarias para que funcione al tener la base de datos una clave de acceso al arrancar.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Dim AppWord As word.ApplicationDim DocWord As word.DocumentSet AppWord = New word.Application
AppWord.Visible = False
'--------------------------------------------------------------------------------------------------------Set DocWord = AppWord.Documents.Open(Ruta & "Plantillas\ConvenioFCT.doc")
'---------------------------------------------------------------------------------------------------------'AppWord.Visible = TrueDocWord.MailMerge.OpenDataSource Name:=CurrentDb.Name, _
ConfirmConversions:=False, _
ReadOnly:=False, _
LinkToSource:=True, _
AddToRecentFiles:=False, _
PasswordDocument:="", _
PasswordTemplate:="", _
WritePasswordDocument:="", _
WritePasswordTemplate:="", _
Revert:=False, _
Format:=wdOpenFormatAuto, _
Connection:=mprovider, _
SQLStatement:= _
"SELECT * FROM [Convenios Info] WHERE IdMatrícula=" & Me.IdMatrícula, _
SQLStatement1:=""
With DocWord.MailMerge.Destination = wdSendToNewDocument
.MailAsAttachment = False
.MailAddressFieldName = ""
.MailSubject = ""
.SuppressBlankLines = True
With .DataSource.FirstRecord = wdDefaultFirstRecord
.LastRecord = wdDefaultLastRecord
End With
.Execute Pause:=True
End With
Valora esta pregunta
0