Discussion :

[kimar]

Bonjour, je suis confronté à un problème apparament classique puisque la solution est dans la FAQ: mon état souvre en second plan, car mon formulaire est ouvert en mode acDialog. La solution proposé est donc de passer le formulaire en mode Visible = False lors de l'ouverture de l'Etat, et de le repasser en Visible = True lors de la fermeture de l'Etat.
Seulement voilà, étant débutant en VBA, je suis completement perdu, et j'essaye un peu tout sans résultat. Faut-il:

- Mettre le code dans le formulaire ? du style:

Code :

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

1
2
3
4
5
Private Sub Report_Open(Cancel As Integer)
 
Me.Visible = False
 
End Sub

- Mettre le code dans l'Etat ? du style:

Code :

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

1
2
3
4
5
Private Sub Report_Open(Cancel As Integer)
 
Formulaire1.Visible = False
 
End Sub

Je me doute que dans les deux cas il doit yavoir une erreur de synthaxe puisque ca marche pas...
Merci de votre aide.

[Lou Pitchoun]

Salut,
As tu essayé d'accéder au formulaire comme ceci :

Code :

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

Forms![NomFormulaire].visible =False

Edit : tu mets le code sur ouverture et fermeture de l'état. (enfin c'est ce que je ferais)

[kimar]

Ca marche ! Merci. Je sais pas ce que je ferais sans ce forum ...

Peut-on faire l'inverse et écrire dans le formulaire quelque chose du style:

Code :

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

1
2
3
4
5
Private Sub Reports![Print]_Open(Cancel As Integer)
 
Me.Visible = False
 
End Sub

[cafeine]

Hello,

il est possible de gérer ça avec l'événement Timer du premier 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
Private Sub Form_Timer()

    On Error GoTo FTimer01
    
    If Forms("frmSecond").Name = "frmSecond" Then
        Me.Visible = False
    End If

FTimer01:
Select Case Err.Number
    Case "2450"
        Me.Visible = True
        Err.Clear
        Exit Sub
End Select

End Sub

[kimar]

Merci de votre aide à tous deux ! Tout roule pour l'instant