Access - Formulario ejecutable

 
Vista:

Formulario ejecutable

Publicado por Alvaro (1 intervención) el 22/04/2010 11:38:00
Buenas,
A ver si sois capaz de ayudarme!
Tengo un formulario en access 2007, y quería que se ejecutase desde el escritorio como si fuese un acceso directo,pero sin que carge el access ni la base de datos de fondo.
Fui capaz de crear una macro autoexec, pero como menciono, acaba por ejecutarse la bbdd
Un saludo y 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:Formulario ejecutable

Publicado por Jefferson (135 intervenciones) el 24/04/2010 02:40:29
Hola Alvaro

Imposible, eso es como tratar de volar en un avion sin piloto. No se puede Access forma parte de todo el sistema del form.

Lo puedes hacer con VB6, asi si.....

Otra forma seria, haciendo invisible la ventana Access.....
Option Compare Database
Option Explicit

'Autor de la función base: Indeterminado
'Declaraciones
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _
(ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _
(ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetLayeredWindowAttributes Lib "user32" _
(ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long

'Constantes
Private Const GWL_EXSTYLE = (-20)
Private Const WS_EX_LAYERED = &H80000
Private Const LWA_ALPHA = &H2

Function OcultarVentanaAccess(Ocultar As Boolean) As Boolean
'Adaptación: Byron Contreras, diciembre-09, [email protected]
'Objetivo: Ocultar/Mostrar la ventana principal de Access
' La función trabaja con la transparencia
'.............................................................................
Dim lngHwnd As Long
Dim bytNivel As Byte
lngHwnd = Application.hWndAccessApp
bytNivel = IIf(Ocultar, 0, 255)
SetWindowLong lngHwnd, GWL_EXSTYLE, GetWindowLong(lngHwnd, GWL_EXSTYLE) Or WS_EX_LAYERED
SetLayeredWindowAttributes lngHwnd, 0, bytNivel, LWA_ALPHA
OcultarVentanaAccess = True
End Function

'Ejemplo de uso:
'Ocultar;
'Call OcultarVentanaAccess(True)
'Mostrar;
'Call OcultarVentanaAccess(False)

Luego creas un acceso directo en el escritorio

Desde Venezuela
Jefferson
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