Discussion :

[Anthoto]

Bonjours à tous,

j'ai un petit soucis concernant Access ( comment ça encore ?... heu ba en faite oui... encore )

voila je cherchais à lancer mes Formulaires en masquant le lancement du logiciel Access autour, pour cela dans les options de ma base de données j'ai fais en sorte de lancer le formulaire que je souhaitais au démarrage de la base, puis dans les propriétés de ce formulaire :
-Fenêtre indépendante = Oui
-Fenêtre Modale = Oui

jusque là aucun soucis le formulaire se lance bien en premier dans une fenêtre séparé d'Access

mais en ce qui concerne la réduction de la fenêtre Access en arrière plan c'est une autre paire de manche, j'ai essayé plusieurs chose pioché de sujet similaire sur le Forum mais rien n'y fait.

j'ai essayé cette méthode :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Form_Load()
     DoCmd.RunCommand acCmdAppMinimize
End Sub

puis aussi cette méthode là ( dite Api ShowWindow ) :
- dans un module

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
'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

- et en appelant la fonction comme ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Form_Load()
   Fenetre_Modale Me
end sub

aucune de ces 2 méthodes n'a fonctionné
je n'ai pas de message d'erreur, mais rien ne se passe.
si quelqu'un avait un peu de temps a me consacrer, j'apprécierais beaucoup. Merci d'avance.

[LE VIEUX]

bonsoir,
une possibilité mettre ton formulaire en mode plein écran

mettre sur chargement de ton formulaire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub Form_Load()
DoCmd.RunCommand acCmdDocMaximize
 
End Sub

à+

[Anthoto]

Merci de ta réponse le Jeune
néanmoins ceci ne fonctionne pas.
lorsque j'insère ce code, rien ne se passe non plus. je ne comprend pas, est-ce une mauvaise façon de faire de ma part ?

ce que j'ai fais :
-aller dans le mode création de mon formulaire de démarrage
-onglet évènement=> propriété "sur chargement"=> sélectionner "Procédure évènement"
-entrer dans le code VBA qui nous aura au-préalablement ajouté ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Form_Load()
 
End Sub

ajouter ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Form_Load()
DoCmd.RunCommand acCmdDocMaximize
End Sub

-enregistrer et tester

il y'a t-il quelque chose que j'oublie de faire ? pars-que j'ai essayé plusieurs chose et je crois qu'il ne prend jamais en compte mon code vba...

[LE VIEUX]

bonjour,
est-ce que d'autres codes fonctionnent ?
s'il n'y en a pas d'autre mets un point d'arrêt sur la premiere ligne du code pour vérifier qu'il se lance bien au départ.

[Anthoto]

c'est bon tout est revenue dans l'ordre.
en faite le problème venait d'Access, dans les options d'Access les macros était désactivé donc il ne lancé pas mon code vba, du coup la méthode pour minimiser l'application fonctionne .
Merci pour m'avoir consacré un peu de temps.