Quisiera solicitar de su amable colaboración en un pequeño inconveniente que estoy teniendo. Estoy siguiendo un tutorial para un sistema de facturación, pero me he quedado atorado en un proceso, el cual es el siguiente:
Según el instructor, para continuar con el tutorial se debe descargar un archivo que él dejo en un ejecutable, y que supuestamente me guarda una Dll entre mis archivos, la Dll se llama DllAdo.dll, la cual permitirá realizar una conexión entre Excel y Access, y que todo quedará según él más rápido. La cuestión es que nos indica que se debe crear un módulo de conexión con la siguiente función:
'''''''''''DLL ADO ''''''''''
Public Cadena As New ClsAdo
'----------------------------
'------------------------------------------------
'Cadena de Conexión de Excel a Access
'------------------------------------------------
Function Servidor()
With Cadena
.Ruta = ThisWorkbook.Path & "\Base\"
.Base = "BFactura.accdb"
.Clave = ""
.Tipo = 1
End With
End Function
Y que en el Workbook, en el evento Open se cree la llamada al Servidor
Private Sub Workbook_Open()
Call Servidor
End Sub
El problema se me da al querer llamar al servidor, pues me marca la palabra "Cadena" en amarillo, y me dice que el control Activex no puede crear el objeto, y al pasar el mouse por la palabra Cadena, me dice Objeto o Variable With no establecido.
Según el tutorial, se debía seleccionar en Referencias la dll que él facilitó en su ejecutable, pero aunque ya la tengo marcada me sigue saliendo el error.
Ustedes me podrían ayudar a solucionar este inconveniente, o por lo menos indicarme cuál es el error, y cómo corregirlo.
Muy buen día, tarde, noche.
Quisiera solicitar de su amable colaboración en un pequeño inconveniente que estoy teniendo. Estoy siguiendo un tutorial para un sistema de facturación, pero me he quedado atorado en un proceso, el cual es el siguiente:
Según el instructor, para continuar con el tutorial se debe descargar un archivo que él dejo en un ejecutable, y que supuestamente me guarda una Dll entre mis archivos, la Dll se llama DllAdo.dll, la cual permitirá realizar una conexión entre Excel y Access, y que todo quedará según él más rápido. La cuestión es que nos indica que se debe crear un módulo de conexión con la siguiente función:
'''''''''''DLL ADO '''''''''' Public Cadena As New ClsAdo '---------------------------- '------------------------------------------------ 'Cadena de Conexión de Excel a Access '------------------------------------------------ Function Servidor() With Cadena .Ruta = ThisWorkbook.Path & "\Base\" .Base = "BFactura.accdb" .Clave = "" .Tipo = 1 End With End Function
Y que en el Workbook, en el evento Open se cree la llamada al Servidor
Private Sub Workbook_Open() Call Servidor End Sub
El problema se me da al querer llamar al servidor, pues me marca la palabra "Cadena" en amarillo, y me dice que el control Activex no puede crear el objeto, y al pasar el mouse por la palabra Cadena, me dice Objeto o Variable With no establecido.
Según el tutorial, se debía seleccionar en Referencias la dll que él facilitó en su ejecutable, pero aunque ya la tengo marcada me sigue saliendo el error.
Ustedes me podrían ayudar a solucionar este inconveniente, o por lo menos indicarme cuál es el error, y cómo corregirlo.
De antemano muchas gracias por su ayuda.
Facturacion.rar