Discussion :

[Invité]

Bonjour,

Je voudrais savoir s'il est possible de "figer" un formulaire d'accueil pour qu'il ne puisse jamais être fermé. Je ne sais pas si le terme figer est correct.
J'ai trouvé le moyen de désactiver la croix dans les propriétés, mais je voudrais également que cela fonctionne si on utilise le clic droit "tout fermer". C'est un réflexe quand on a beaucoup de choses ouvertes, mais à la fin je souhaiterais masquer le volet de navigation et j'ai donc besoin de pouvoir revenir au formulaire d'accueil a tout moment. Le fait qu'il reste ouvert serait idéal.

Merci pour votre aide.

Emilie.

[EricDgn]

Bonjour,

Une possibilité est de gérer sur formulaire d'accueil l'événement "Sur libération":

Code :

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

1
2
3
Private Sub Form_Unload(Cancel As Integer)
      Cancel = True
End Sub

Cordialement.

[Invité]

Bonjour,

Merci pour votre aide, mais cela ne fonctionne pas. Auriez-vous une autre idée ?

[EricDgn]

Bonjour,

La même chose en plus complet:

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Form_Unload(Cancel As Integer)
    Dim Frm As Form
    If MsgBox("Voulez-vous vraiment quitter l'application ?", vbYesNo, "A confirmer") = vbNo Then
        Cancel = True
        For Each Frm In Application.Forms
            Debug.Print Frm.Name
            If Frm.Name <> Me.Name Then DoCmd.Close acForm, Frm.Name
        Next Frm
    End If
End Sub

Cordialement

[Invité]

Cela n'a pas fonctionné non plus, rien ne se produit à la fermeture. Il y a peut-être quelque chose que je n'ai pas paramétré correctement.
Mais merci d'avoir essayé. Bonne journée.

[FreddyONE73]

Bonjour,

En faisant des tests, j'étais incapable de fermer Access. Je pense que c'est ce que tu veux.

tu peux mettre la propriété "Menu contextuel" sur non
et le code suivant pour le formulaire :

Code :

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

1
2
3
Private Sub Form_Unload(Cancel As Integer)
    Cancel = True
End Sub

dans un module tu ajoute le code:
cette fonctionne est appelée sur l'appui d'un bouton par exemple (mettre "fermer Me")

Code :

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

1
2
3
4
Public Sub fermer(p_form As Form)
    'On Error Resume Next'une fois le commentaire retiré, plus possible de sortir !
    DoCmd.Close acForm, p_form.Name, acSaveYes
End Sub

Est-ce que cela fonctionne pour toi ?

[Invité]

Bonjour,

Non je n'y arrive pas, mais je n'ai jamais utilisé de module auparavant alors je n'ai peut-être pas fait les choses correctement.
Je pense que je vais me contenter de laisser le volet de navigation accessible en masquant tous les objets sauf ce formulaire d'accueil pour que l'utilisateur ait la possibilité de le ré-ouvrir si il le ferme.

Merci d'avoir essayé de m'aider.

Emilie