Discussion :

[spacesheep]

Bonjour Tout le monde,

Comment faire pour minimiser le formulaire N°1 à l'ouverture du formulaire N°2 et Comment maximiser le formulaire N°1 à la fermeture du formulaire N°2.

j'ai utilisé le code

Code :

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

docmd.minimize

Mais ca minimise plutôt le formulaire qui va s'ouvrir.

Comment faire?

Je vous remercie par avance de votre aide d^_^b

[Zeltron24]

Code :

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

1
2
3
4
Private Sub Form_Open(Cancel As Integer)
' Agrandir un formulaire lors de son ouverture
DoCmd.Maximize
End Sub

Code :

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

1
2
3
4
Private Sub Form_Close(Cancel As Integer)
' Restaurer la taille initiale des fenêtres lors de la fermeture du formulaire
DoCmd.Restore
End Sub

Si cela peut te convenir
zeltron24

[spacesheep]

le code

Code :

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

DoCmd.Restore

ne fonctionne pas enfin rien ne se passe à la fermeture du formulaire
mais j'ai mis

Code :

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

docmd.minimize

quand on clique sur le bouton pour ouvrir le formulaire N°2

[bruno28]

Bonjour.

Peut être peut tu faire autrement. Pourquoi ne pas passer ton formulaire en mode invisible plutôt que de le minimiser??

Code :

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

DoCmd.OpenForm "MonForm",,,,,acHidden

Salutations.

Bruno

[spacesheep]

Il me cache le formulaire N°2 et pas le formulaire N°1
Du coup on ne vois que le formulaire N°1 au lieu de ne voir que le formulaire N°2 et cacher le formulaire N°1

[spacesheep]

J' ai fait autrement d^_^b et ca marche aussi bien au lieu de me casser la tête.

Du coup avant d'ouvrir le formulaire N°2 je ferme le formulaire N°1.
Et quand je quitte le formulaire N°2, il ouvre le formulaire N°1.

qui me fait pour N°1

Code :

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

1
2
DoCmd.Close
DoCmd.OpenForm ("frm_N°2")

et pour le N°2

Code :

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

1
2
DoCmd.Close
DoCmd.OpenForm "frm_N°1"

Merci de votre aide.
Si vous avez d'autre proposition je suis prenant

[bruno28]

Bonjour.

Même pas besoin de fermer.
Cici fonctionne (évènement formulaire2)

Code :

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

1
2
3
4
5
6
7
8
 
Private Sub Form_Open(Cancel As Integer)
    DoCmd.OpenForm "Formulaire1", , , , , acHidden
End Sub
 
Private Sub Form_Close()
    DoCmd.OpenForm "Formulaire1", , , , , acWindowNormal
End Sub

Cordialement

[spacesheep]

Merci beaucoup bruno28,

Ça fonctionne nickel chrome