Access - Aplicacion Independiente

 
Vista:

Aplicacion Independiente

Publicado por Maite (2 intervenciones) el 15/02/2006 13:01:54
Hola a todos! necesito ayuda urgente!!!
Mi problema es que tengo una base de datos hecha en Access 2003 y necesito que esa base de datos parezca una aplicación independiente a Access, es decir, que access no se vea, sino que se vae la aplicación como un ejecutable.

No se si me he explicado bien...
Muchas gracias de antemano.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Aplicacion Independiente

Publicado por Manuel (268 intervenciones) el 15/02/2006 14:27:27
Con lo siguiente la ventana de access desaparecera y solo te quedara el formulario:

Copia este codigo en un modulo

Option Compare Database
Option Explicit
Global Const SW_HIDE = 0
Global Const SW_SHOWMINIMIZED = 2
Global Const SW_SHOWMAXIMIZED = 3
Private Declare Function apiShowWindow Lib "user32" _
Alias "ShowWindow" (ByVal hwnd As Long, _
ByVal nCmdShow As Long) As Long
Function fSetAccessWindow(nCmdShow As Long)
Dim loX As Long
Dim loForm As Form
loX = apiShowWindow(hWndAccessApp, nCmdShow)
End Function

Y lo puedes llamar desde el formulario de inicio en la funcion al abrir poniendo lo siguiente:

fSetAccessWindow (0)

Pruebalo y me cuentas
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar