Discussion :

[Carmiel]

Bonjour,
J'ai un formulaire principal que je voudrais être le seul affiché, en masquant toutes les fenêtres standards de Access.
Au démarrage de l'appli j'exécute dans une macro Autoexec le code suivant :

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
23
24
25
26
27
28
29
30
 
Public Function SetOption()
Dim dbDatabase As Object
    Set dbDatabase = CurrentDb
    Application.SetOption "Confirm Action Queries", False
    Application.SetOption "Confirm Document Deletions", False
    Application.SetOption "Confirm Record Changes", False
    Application.SetOption "Default find/replace behavior", 1
    Application.SetOption "Move After Enter", 1
    Application.SetOption "Behavior Entering Field", 0
    Application.SetOption "Default Direction", 0
    Application.SetOption "Cursor Movement", 1
    Application.SetOption "Cursor Stops at First/Last Field", -1
    Application.SetOption "ShowWindowsInTaskbar", False
 
    If Dir(Environ$("USERPROFILE") & "\Pictures\lagedor.ico") <> "" Then _
            dbDatabase.Properties("AppIcon") = Environ$("USERPROFILE") & "\Pictures\lagedor.ico"
 
    gModeDebug = Nz(DFirst("ModeDebug", "[tblParams]", "ID = 1"), "")
    If gModeDebug Then
        Application.SetOption "Show Hidden Objects", True
        DoCmd.ShowToolbar ("Ribbon"), acToolbarYes
        dbDatabase.Properties("StartUpShowDBWindow") = True
   Else
        Application.SetOption "Show Hidden Objects", False
        DoCmd.ShowToolbar ("Ribbon"), acToolbarNo
        dbDatabase.Properties("StartUpShowDBWindow") = False
    End If
    Set dbDatabase = Nothing
End Function

Au lancement ça marche très bien, mais dès que je clique sur l'icone Access dans la barre des tâches ou que certaines erreurs non gérées se produisent, j'ai les fenêtres qui reviennent. Notamment la fenêtre principale d'Access.
Même si je rééxecute ce code depuis le formulaire ça ne masque pas les fenêtres.
Le problème c'est que ça perturbe l'utilisateur qui se retrouve avec l'interface complète.

J'ai essayé plein de truc, au petit bonheur la chance, mais sans doute pas la bonne solution.
Avez-vous une idée pour mon problème ?
Merci d'avance

[marot_r]

Bonjour.

Pourquoi ne pas simplement afficher ton formulaire en mode "plein écran" dans la fenêtre de Access ?

Et comme tu es avec Access 2007, tu peux choisir l'affichage en mode "onglets" ce qui veut dire qu'à part les formulaires qui sont en mode pop up, tous tes formulaires s'affiche en mode plein écran sans aucune autre modif à la l'appli.

Pour le reste, tu peux cacher les fenêtres de navigation et le ruban et je ne pense pas qu'ils reviendront en cas d'erreur.

A+

[Carmiel]

Bonjour,
merci de la suggestion. Il faudrait que je teste, pas certain que ça convienne mais il faut essayer.

[morobaboumar]

Bonjour,
merci de la suggestion. Il faudrait que je teste, pas certain que ça convienne mais il faut essayer.

Bonsoir Carmiel,
Voici un lien qui pourrait t'aider.
https://access.developpez.com/faq/?p...#SupprBarrMenu

Bonne continuation.

[Carmiel]

Bonjour,
merci de la suggestion.
Malheureusement ça ne résout pas le problème. Par contre j'ai utilisé le code pour tester quelle barre est visible et...aucune.
En fait c'est la fenêtre "Microsoft Access" qui est affichée mais impossible de la fermer, même dbDatabase.Properties("StartUpShowDBWindow") = False ne marche pas alors qu'au démarrage ça marche.
Je ne sais pas trop comment faire pour la fermer.