Poner nueva aplicación como activa
Publicado por karea (1 intervención) el 17/05/2012 13:37:08
Hola:
Me gustaría que una aplicación de access que abro desde el programa Autocad mediante vb.net aparezca como aplicación activa en primer plano en vez de que aparezca "debajo" de la aplicación de autocad:
Para ello he intentado 2 caminos:
**** **Creando un nuevo objeto
Dim oaccess As Access.Application
oaccess = CreateObject("Access.Application")
oaccess.OpenCurrentDatabase(nombreBD, False)
oaccess.DoCmd.OpenForm(formulario, Access.AcFormView.acNormal, , criterio)
oaccess.Visible = True
'El problema es que me aparece debajo de la aplicación de autocad
***** Utilizando followhyperlink (en vba me funciona)
Dim instance As Access.Application
Dim Address As Object
Dim SubAddress As Object
Dim NewWindow As Object
Dim AddHistory As Object
Dim ExtraInfo As Object
Dim Method As Object
Dim HeaderInfo As Object
instance.FollowHyperlink(Address, SubAddress, NewWindow, AddHistory, ExtraInfo, Method, HeaderInfo)
' Me aparece el siguiente problema
Error 4 Reference required to assembly 'Interop.Microsoft.Office.Core, Version=2.2.0.0, Culture=neutral, PublicKeyToken=null' containing the type 'Microsoft.Office.Core.MsoExtraInfoMethod'. Add one to your project.
¿Cómo puedo seguir?
gracias,
Me gustaría que una aplicación de access que abro desde el programa Autocad mediante vb.net aparezca como aplicación activa en primer plano en vez de que aparezca "debajo" de la aplicación de autocad:
Para ello he intentado 2 caminos:
**** **Creando un nuevo objeto
Dim oaccess As Access.Application
oaccess = CreateObject("Access.Application")
oaccess.OpenCurrentDatabase(nombreBD, False)
oaccess.DoCmd.OpenForm(formulario, Access.AcFormView.acNormal, , criterio)
oaccess.Visible = True
'El problema es que me aparece debajo de la aplicación de autocad
***** Utilizando followhyperlink (en vba me funciona)
Dim instance As Access.Application
Dim Address As Object
Dim SubAddress As Object
Dim NewWindow As Object
Dim AddHistory As Object
Dim ExtraInfo As Object
Dim Method As Object
Dim HeaderInfo As Object
instance.FollowHyperlink(Address, SubAddress, NewWindow, AddHistory, ExtraInfo, Method, HeaderInfo)
' Me aparece el siguiente problema
Error 4 Reference required to assembly 'Interop.Microsoft.Office.Core, Version=2.2.0.0, Culture=neutral, PublicKeyToken=null' containing the type 'Microsoft.Office.Core.MsoExtraInfoMethod'. Add one to your project.
¿Cómo puedo seguir?
gracias,
Valora esta pregunta


0