SuppotDeSaTante Aka dje69r | Bonjour
FlorentG a écrit :
Attention, ton application ne peut pas apparaître vraiment "toute seule" à 100%, y'aura toujours obligatoirement la fenêtre Access autour.
Tu peux juste masquer la fenêtre avec la liste des tables & formulaire, mais pas l'ensemble
|
Non, d'où l'interêt du VBA... (ou de se faire ch**r avec )
pc_67 a écrit :
Ok, parce que avec Excel j'avais réussi à réduire la fenêtre Excel et à faire apparaitre juste l'application mais comme il y a les changements de code VB suivant Access et Excel, benh bien sur le code d'Excel ne fonctionne pas sur Access mais bon c'est déjà bien qu'il n'y est plus le petit menu
|
Oui avec Excel un Application.Visible=False suffit mais avec Access regarde de ce coté, il faut juste mettre ton formulaire en formulaire indépendant :
Citation :
'Déclaration API
Const SW_HIDE = 0 'Hide the window.
Const SW_MAXIMIZE = 3 'Maximize the window.
Const SW_MINIMIZE = 6 'Minimize the window.
Const SW_RESTORE = 9 'Restore the window (not maximized nor minimized).
Const SW_SHOW = 5 'Show the window.
Const SW_SHOWMAXIMIZED = 3 'Show the window maximized.
Const SW_SHOWMINIMIZED = 2 'Show the window minimized.
Const SW_SHOWMINNOACTIVE = 7 'Show the window minimized but do not activate it.
Const SW_SHOWNA = 8 'Show the window in its current state but do not activate it.
Const SW_SHOWNOACTIVATE = 4 'Show the window in its most recent size and position but do not activate it.
Const SW_SHOWNORMAL = 1 'Show the window and activate it (as usual).
Public Declare Function ShowWindow Lib "User32" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long
'minimise la fenetre access et active le formulaire
Function Fenetre_Modale(pForm As Form)
ShowWindow Application.hWndAccessApp, SW_HIDE
ShowWindow pForm.hWnd, SW_SHOWNORMAL
ShowWindow Application.hWndAccessApp, SW_SHOWMINNOACTIVE
End Function
|
Pas tetsé sous 2007, mais ca tourne en 2003, donc pas de raisons.
Cordialement Message édité par SuppotDeSaTante le 17-11-2008 à 16:41:18 ---------------
Soyez malin, louez entre voisins !
|