** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Access y VBA > Access y VBA
  Mensajes nuevos Mensajes nuevos RSS - error de compilación
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoerror de compilación

 Responder Responder
Autor
Mensaje
Kublai Ver desplegable
Habitual
Habitual


Unido: 11/Julio/2020
Localización: Murcia
Estado: Sin conexión
Puntos: 162
Enlace directo a este mensaje Tema: error de compilación
    Enviado: 19/Julio/2020 a las 08:59
Hola a todos.
Llevo muy poco tiempo intentando programar en VBA y estoy muy verde...
Quiero hacer una combinación de correspondencia con word desde access, y encontré por ahí este código, en el que sólo he cambiado los nombres y rutas de los archivos.
Al intentar rularlo me da un "error de compilación": me señala la primera instrucción y me dice "no se ha definido el tipo definido por el usuario".
Qué es lo que he hecho mal?.
Gracias de antemano.
Pego el código:


Sub lanzaword()

Dim AppWord As Word.Application
Dim DocWord As Word.Document
Dim m_Provider As String

'   Lanzamiento de Word
Set AppWord = New Word.Application
AppWord.Visible = True

'   Apertura de la carta modelo
Set DocWord = AppWord.Documents.Open(CurrentProject.Path & "\Certificado.docx")

'   Provider = Base Access Clientes.mdb
m_Provider = "Microsoft.ACE.OLEDB.15.0;Password="""";User ID=Admin;" _
           & "Data Source=" & CurrentProject.Path & "\PRUEBAS DE PROGRAMACION.accdb; " _
           & "Mode=Read;"
           
'   Preparación del mailing para los pedidos no pagados
With DocWord.MailMerge
    .OpenDataSource Name:= _
        CurrentProject.Path & "\PRUEBAS DE PROGRAMACION.accdb", ConfirmConversions:=False, _
        ReadOnly:=False, LinkToSource:=True, AddToRecentFiles:=False, _
        Connection:=" & m_Provider & ", _
        SQLStatement:="SELECT * FROM `CopiadeDietas`"
     .Destination = wdSendToNewDocument
     .SuppressBlankLines = True
     With .DataSource
        .FirstRecord = wdDefaultFirstRecord
        .LastRecord = wdDefaultLastRecord
     End With
'   Lanzamiento del mailing
     .Execute
End With
   
End Sub

Arriba
jilo Ver desplegable
Colaborador
Colaborador


Unido: 19/Diciembre/2004
Localización: TAFALLA
Estado: Sin conexión
Puntos: 959
Enlace directo a este mensaje Enviado: 19/Julio/2020 a las 09:12
Hola

Activa la referencia Microsoft Word xx.0 Object Library
Espero te sirva !!!!!!
Iñaki
Arriba
Kublai Ver desplegable
Habitual
Habitual


Unido: 11/Julio/2020
Localización: Murcia
Estado: Sin conexión
Puntos: 162
Enlace directo a este mensaje Enviado: 19/Julio/2020 a las 09:48
Muchas gracias. Ya la he activado.

Ahora me da otro error:

Microsoft Word
Error: El usuario 'Admin' de la máquina 'DESKTOP 6MF8TDO' ha situado la base de datos en un estado que impide que sea abierta o bloqueada
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable