Figer un formulaire d'accueil

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.

Bonjour,

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

Code:

---

1 2 3

Private Sub Form_Unload(Cancel As Integer) Cancel = True End Sub

---

Cordialement.

Bonjour,

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

Bonjour,

La même chose en plus complet:

Code:

---

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

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.

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:

---

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:

---

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 ?

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