Cita:
Iniciado por rolano 
como puedo ingresar con un cuadro de control formulario excel a un archivo de access
como puedo ingresar con un cuadro de control formulario excel a un archivo de access
con este ejemplo puedo ingresar a un archivo de excel con contraseña, pero para abrir un archivo de access con contraseña no puedo
Private Sub CommandButton1_Click()
Workbooks.Open Filename:= _
"C:\Documents and Settings\Usuario\Mis documentos\Liderman Premiun\J&V_Visitas_ADO.xls", Password:="Gehova"
End Sub
con hipervinculos si se puede desde una hoja de excel
C:\Documents and Settings\Usuario\Mis documentos\Liderman Premiun\BD\BDVisitas.mdb
Esta es la respuesta
Private Sub CmdAccess_Click()
Dim DbPath As String
Dim oApp As Access.Application
Dim Password As String
DbPath = "C:\Documents and Settings\Usuario\Mis documentos\Liderman Premiun\BD\BDVisitas.mdb"
Password = "cesar"
' instanciamos una nueva ventana de Access
Set oApp = New Access.Application
With oApp
' la hacemos visible
.Visible = True
' abrimos la base de datos
.OpenCurrentDatabase DbPath, False, Password
' abrimos una tabla de esa base de datos
.DoCmd.OpenTable "Visitas"
'abrimos un formulario de esa base de datos (opcional)
'.DoCmd.OpenForm "Areas"
' abrimos un informe de esa base de datos
'.DoCmd.OpenReport "Informe1", acViewPreview
' ejecutamos una función de esa base de datos
'.Run "MiFuncion"
End With
Set oApp = Nothing
End Sub
