Discussion :

[pat1545]

Bonjour,

je me suis fais un menu général qui va chercher des formulaires et de là un
ou l'autre état...
mon problème est :
quelle commande mettre pour que la fermeture du formulaire ou de l'état me
ramène toujours au menu général ?
où dois - je mettre les lignes de fermeture et ouverture, suis un peu paumé.
ps: si je reviens bien au menu général, sa fenêtre ne comporte plus que la
croix de fermeture et pas les 2 autres icones ...

Merci

menu principal vers formulaire:

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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
Function OuvreFormulaires(strNomForm As String) As Integer
' Cette fonction est utilisée par l'événement Click des boutons de
' commande qui ouvrent les formulaires dans le menu général. Utiliser une
' fonction est plus efficace que de répéter le même code dans plusieurs
' procédures événementielles.
  On Error GoTo Err_OuvreFormulaires
 
  ' Ouvre le formulaire spécifié.
  DoCmd.OpenForm strNomForm
  DoCmd.Maximize
  'DoCmd.Close acForm, Me.Name
Quitte_OuvreFormulaires:
  Exit Function
Err_OuvreFormulaires:
  MsgBox Err.Description
  Resume Quitte_OuvreFormulaires
End Function
 
autre appel vers formulaire:
Private Sub Bascule28_MouseDown(Button As Integer, Shift As Integer, X As 
Single, Y As Single)
DoCmd.OpenForm "cherche_cachet", acNormal
End Sub
 
formulaire vers état:
Private Sub Vers_Etat_Art_par_cde_Click()
On Error GoTo Err_Vers_Etat_Art_par_cde_Click
    Dim stDocName As String
    stDocName = "e_articles_par_cde"
    DoCmd.OpenReport stDocName, acViewPreview, "Requete2_copie", _
    "[doc achat]='" & Me!Nocom & "'"
    DoCmd.RunCommand acCmdZoom100
    DoCmd.Close acForm, Me.Name
Exit_Vers_Etat_Art_par_cde_Click:
    Exit Sub
Err_Vers_Etat_Art_par_cde_Click:
    MsgBox Err.Description
    Resume Exit_Vers_Etat_Art_par_cde_Click
End Sub
 
fermeture état:
Private Sub Report_Close()
DoCmd.OpenForm "menu général", acNormal
'DoCmd.Close Me
End Sub
fermeture du formulaire:
 
Private Sub Fermer_Click()
On Error GoTo Err_Fermer_Click
    DoCmd.Close
    DoCmd.OpenForm "menu général", acNormal
    DoCmd.Maximize
Exit_Fermer_Click:
    Exit Sub
Err_Fermer_Click:
    MsgBox Err.Description
    Resume Exit_Fermer_Click
End Sub

Merci d'utiliser les balises CODE - cafeine

[marot_r]

Le plus simple et de laisser le form menu toujours ouvert.

Sinon tu peux mettre dans l'événement sur fermeture de ton sous-form une commande du type.

Code :

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

1
2
 
DoCmd.OpenForm "monMenu"

Et pour ton bouton Fermer seulement

Code :

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

1
2
 
DoCmd.Close acForm,me.name:'Assure la fermeture du form qui est en train d'excuter le code.

Ca va déclencher le code associé à l'évnement Close et ainsi ouvrir ton menu.

A+
A+