Access - EFECTO AL ABRIR UN FORMULARIO

Con este codigo puedes crear un Efecto al Abrir un Formulario o Informe y asi le das un toque mas personal a tu Aplicacion

Option Compare Database
Option Explicit
'***************************************************************
'& &*
'& &*
'& &*
'& &*
'& Jefferson Jimenez (JJJT) &*
'& Cabimas - Venezuela &*
'& Julio - 2009 &*
'& &*
'& &*
'& &*
'& &*
'& &*
'***************************************************************
'Como hacer para que al abrir y al cerrar nuestros form parezcan desvanecerse
'Primero declaramos las Constantes de Efecto
Const Transp = &H2
Const Oculto = &H10000
Const Efecto = &H80000
'Establezco el color del Formulario
Const Color As Long = 12632256
'Establezco la Transparencia del Formulario
Const EfecTrans As Long = 220
'Declaro las funciones del API de Windows
Declare Function JJJTAnimar Lib "user32" Alias "AnimateWindow" _
(ByVal hwnd As Long, _
ByVal dwTime As Long, _
ByVal dwFlags As Long) _
As Long
Declare Function Ventana_JJJT Lib "user32" Alias "GetWindowLongA" _
(ByVal hwnd As Long, _
ByVal nIndex As Long) _
As Long
Declare Function TranVen_JJJT Lib "user32" Alias "SetWindowLongA" _
(ByVal hwnd As Long, _
ByVal nIndex As Long, _
ByVal dwNewLong As Long) _
As Long
Declare Function Accion_JJJT Lib "user32" Alias "SetLayeredWindowAttributes" _
(ByVal hwnd As Long, _
ByVal crKey As Long, _
ByVal bAlpha As Byte, _
ByVal dwFlags As Long) _
As Long
'Creo la Funcion del efecto al abrir
'El Formulario debe tener la Opcion Emergente = Si
Function JJJT_EfectoOpen(frm As Form)
JJJTAnimar frm.hwnd, 200, Efecto
frm.Section(0).BackColor = Color
frm.Modal = True
frm.ShortcutMenu = True
End Function
'Creo la Funcion al cerrar
Function JJJT_EfectoClose(frm As Form)
JJJTAnimar frm.hwnd, 500, Oculto Or Efecto
End Function
'Creo la Funcion Transparencia
Function JJJT_Transparencia(frm As Form)
TranVen_JJJT frm.hwnd, (-20), _
Ventana_JJJT(frm.hwnd, (-20)) _
Or &H80000
Accion_JJJT frm.hwnd, 0, _
EfecTrans, Transp
End Function
'Creo la Funcion Normal
Function JJJT_Normal(frm As Form)
TranVen_JJJT frm.hwnd, (-20), _
Ventana_JJJT(frm.hwnd, (-20)) _
Or &H80000
Accion_JJJT frm.hwnd, 0, _
255, Transp
End Function
'Creo la Funcion CierroTransp
Function JJJT_CierroTransp(frm As Form)
TranVen_JJJT frm.hwnd, (-20), _
Ventana_JJJT(frm.hwnd, (-20)) _
Or &H80000
Accion_JJJT frm.hwnd, 0, _
(EfecTrans - 120), Transp
JJJTAnimar frm.hwnd, 300, _
Efecto Or Oculto
End Function

Para descargar el Ejemplo desde la Direccion URL
Desde Venezuela
Jefferson

Hola Jefferson, puse tu codigo en un formulario y no crea ningun efecto mas sin embargo si hago clic incluso en el boton salir me marca :
La expresion al hacer clic que introdujo como valor de la propiedad de evento produjo un error.....etc.
me hara falta alguna referencia? o sera la version del access pues utilizo 2002

Debes colocar el formulario en Emergente y Modal,
En Modal lo hago por codigo VBA
En Emergente todavia no he logrado hacerlo por codigo VBA (Si lo conoces me avisas)

De todas maneras en la Direccion URL hay un ejemplo de como usarlo....

Un Saludo Amigo
Desde Venezuela
Jefferson

ya funciona si veo la diferencia pero si el efecto fuera un poco mas lento se notaria mas, como quiera gracias por los tips.

en la funcion

Function JJJT_EfectoOpen(frm As Form)
JJJTAnimar frm.hwnd, 200, Efecto
frm.Section(0).BackColor = Color
frm.Modal = True
frm.ShortcutMenu = True
End Function

le puedes colocar el Tiempo,,,,,,,!

Gracias Enrique
Desde Venezuela
Jefferson