Abrir un documento de Word desde access
Tengo una bd que elabora contratos, lo twngo vinculado con un doc de word, cuando tengo que imprimir el contrato que he dado de alta tengo que abrir el word y filtrar por numero de clente y registro, mi pregunta es si existe la manera de que desde in botón en el formulario del registro me abriera el documento de Word en ese registro en específico y no tener que abrir word, filtrar e imprimir
1 Respuesta
Respuesta de Eduardo Pérez Fernández
1
Si puede hacer con vba, debe crear un botón en tu formulario y usar este código VBA en el evento Click.
Private Sub btnAbrirContrato_Click()
Dim objWord As Object
Dim docWord As Object
Dim strRutaDoc As String
Dim strFiltro As String
' Ruta del documento de Word (ajústela según la ubicación real)
strRutaDoc = "C:\Ruta\Contrato.docx"
' Filtrar por el número de cliente y registro
strFiltro = "[NumeroCliente] = " & Me.NumeroCliente & " AND [Registro] = " & Me.IDRegistro
' Iniciar Word
Set objWord = CreateObject("Word.Application")
objWord.Visible = True ' Mostrar Word
' Abrir el documento
Set docWord = objWord.Documents.Open(strRutaDoc)
' Actualizar los datos de la correspondencia
docWord.MailMerge.OpenDataSource _
Name:=CurrentProject.FullName, _
AddToRecentFiles:=False, _
LinkToSource:=True, _
Connection:="TABLE NombreDeSuTabla", _
SQLStatement:="SELECT * FROM NombreDeSuTabla WHERE " & strFiltro
' Ejecutar la combinación de correspondencia (si es necesario)
docWord.MailMerge.Execute
' Liberar memoria
Set docWord = Nothing
Set objWord = Nothing
End Sub
Haga los respectivos reemplazos por el nombre de su tabla y nombre de los campos.
