Acceso formulario de access vía VB
Ya he probado varios códigos y no tengo suerte, la bd esta realizada en access 2002 (el que viene en el office XP) aunque he probado con otros formatos.
Intente realizar desde visual lo siguiente:
Dim App As Object
Set App = CreateObject("Access.Application")
App. OpenCurrentDatabase nomBD
App. DoCmd. OpenReport nomInforme, acViewPreview
MsgBox Err.Description
App. CloseCurrentDatabase
App. Quit
Set App = Nothing
Tambien probe tratando de ejecutar una macro que habra el formulario.. Pero en ambos caso se ejecuta, ¿no da errores pero no me aparece nada
alguien me peude ayudar?
Intente realizar desde visual lo siguiente:
Dim App As Object
Set App = CreateObject("Access.Application")
App. OpenCurrentDatabase nomBD
App. DoCmd. OpenReport nomInforme, acViewPreview
MsgBox Err.Description
App. CloseCurrentDatabase
App. Quit
Set App = Nothing
Tambien probe tratando de ejecutar una macro que habra el formulario.. Pero en ambos caso se ejecuta, ¿no da errores pero no me aparece nada
alguien me peude ayudar?
1 Respuesta
Respuesta de chiquilin06
1
Como abrir un formulario de access en vb 6.0
Porque tu llamas al método OpenRepor
Y debes llamar a OpenForm
Este es un ejemplo:
Dim strRuta As String
Dim objAccess As Object
Set objAccess = CreateObject("Access.Application")
strRuta = "C:\bd2.mdb"
objAccess.OpenCurrentDatabase (strRuta)
'abrimos el formulario
objAccess.DoCmd.OpenForm "frmA", acNormal
' lo maximizamos para mostrarlo mejor
objAccess.DoCmd.Maximize
'establesemos la propiedad en true para verlo
objAccess.Application.Visible = True
Porque tu llamas al método OpenRepor
Y debes llamar a OpenForm
Este es un ejemplo:
Dim strRuta As String
Dim objAccess As Object
Set objAccess = CreateObject("Access.Application")
strRuta = "C:\bd2.mdb"
objAccess.OpenCurrentDatabase (strRuta)
'abrimos el formulario
objAccess.DoCmd.OpenForm "frmA", acNormal
' lo maximizamos para mostrarlo mejor
objAccess.DoCmd.Maximize
'establesemos la propiedad en true para verlo
objAccess.Application.Visible = True
