Abrir formulario de Access
Publicado por Javier Moran (1 intervención) el 11/08/2004 10:17:01
Hola a todos.
Mi problema es el siguiente: Abro un formulario de una base de datos en Access 2000, y después lo cierro. Hasta aquí todo perfecto. El problema ocurre cuando intento abrirla por segunda vez, entonces me dá el siguiente error:
Error '462' en tiempo de ejecución: El equipo servidor remoto no existe o no está disponible.
El código que tengo es el siguiente:
Dim bd As Access.Application
Private Sub Abrir_Click()
Set bd = New Access.Application
bd.OpenCurrentDatabase App.Path & "\" & "Base.mdb", False
bd.Visible = True
DoCmd.OpenForm "Formulario", acNormal
End Sub
Private Sub Cerrar_Click()
DoCmd.Close acForm, "Formulario", acSaveNo
bd.CloseCurrentDatabase
bd.Quit
Set bd = Nothing
End Sub
Gracias a todos.
Mi problema es el siguiente: Abro un formulario de una base de datos en Access 2000, y después lo cierro. Hasta aquí todo perfecto. El problema ocurre cuando intento abrirla por segunda vez, entonces me dá el siguiente error:
Error '462' en tiempo de ejecución: El equipo servidor remoto no existe o no está disponible.
El código que tengo es el siguiente:
Dim bd As Access.Application
Private Sub Abrir_Click()
Set bd = New Access.Application
bd.OpenCurrentDatabase App.Path & "\" & "Base.mdb", False
bd.Visible = True
DoCmd.OpenForm "Formulario", acNormal
End Sub
Private Sub Cerrar_Click()
DoCmd.Close acForm, "Formulario", acSaveNo
bd.CloseCurrentDatabase
bd.Quit
Set bd = Nothing
End Sub
Gracias a todos.
Valora esta pregunta
0