
Fallo consulta Combinación Correspondencia Access_Word
Publicado por Juan (8 intervenciones) el 08/05/2024 14:32:44
Tengo un botón en un formulario(Matrículas) con un subformulario (Convenios) que me envía datos a un word. El proceso se realiza pero sin ejecutar correctamente la consulta de selección de datos. Este es parte del código:
Aunque yo selecciono uno de varios convenios de esta matrícula, el me genera el word por todos los convenios de la misma. Puede que el error estén en la conexión o en el Select. Necesito ayuda por favor.
'AppWord.Visible = True
DocWord.MailMerge.OpenDataSource NAME:=CurrentDb.NAME, _
ConfirmConversions:=False, _
ReadOnly:=False, _
LinkToSource:=True, _
AddToRecentFiles:=False, _
PasswordDocument:="", _
PasswordTemplate:="", _
WritePasswordDocument:="", _
WritePasswordTemplate:="", _
Revert:=False, _
Format:=wdOpenFormatAuto, _
Connection:="QUERY Convenios Info", _
SQLStatement:= _
"SELECT * FROM [Convenios Info] WHERE IdMatrícula=" & Me.IdMatrícula & " and Idconvenio=" & Me.NConv, _
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[/code] texto[/code]
Aunque yo selecciono uno de varios convenios de esta matrícula, el me genera el word por todos los convenios de la misma. Puede que el error estén en la conexión o en el Select. Necesito ayuda por favor.
'AppWord.Visible = True
DocWord.MailMerge.OpenDataSource NAME:=CurrentDb.NAME, _
ConfirmConversions:=False, _
ReadOnly:=False, _
LinkToSource:=True, _
AddToRecentFiles:=False, _
PasswordDocument:="", _
PasswordTemplate:="", _
WritePasswordDocument:="", _
WritePasswordTemplate:="", _
Revert:=False, _
Format:=wdOpenFormatAuto, _
Connection:="QUERY Convenios Info", _
SQLStatement:= _
"SELECT * FROM [Convenios Info] WHERE IdMatrícula=" & Me.IdMatrícula & " and Idconvenio=" & Me.NConv, _
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[/code] texto[/code]
Valora esta pregunta


0