Discussion :

[herendel]

bonjours,
à l'origine ma procédure de classe sous Access 2000 fonctionné.

Code :

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

1
2
3
4
5
6
7
8
Private Sub Resultat_recu_AfterUpdate()
'vérifie s'il doit activer le sous formulaire
If [Resultat_recu] = True Then
[F_resultats_sanitaire].Visible = True
Else
[F_resultats_sanitaire].Visible = False
End If
End Sub

[Resultat_recu] étant un champ du formulaire F_envoi
[F_resultats_sanitaire] étant le sous formulaire lié au formulaire F_envoi.

mais voilà j'aurais besoin d'en faire une procédure standard pour l'appeler par un événement externe au formulaire F_envoi, j'ai donc écrit le code suivant:

Code :

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

1
2
3
4
5
6
7
8
9
10
'vérifie s'il doit activer le sous formulaire "F_resultats_sanitaire" 'd'envoi
Public Sub resultat_sanitaire()
If CurrentProject.AllForms("F_envoi").IsLoaded And CurrentProject.AllForms("F_resultats_sanitaire").IsLoaded Then
If Forms![F_envoi]![Resultat_recu].Value = True Then
Forms![F_resultats_sanitaire].Visible = True
Else
Forms![F_resultats_sanitaire].Visible = False
End If
End If
End Sub

seulement voilà avec la procédure standard le formulaire F_resultats_sanitaire n'apparait ou disparait plus selon la valeur du champ Resultat_recu

[boubignole]

Salut

Code :

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

If CurrentProject.AllForms("F_envoi").IsLoaded And CurrentProject.AllForms("F_resultats_sanitaire").IsLoaded

d'après cette condition il faut que les 2 formulaires soient chargés en même temps. Est-ce bien le cas ? sinon faut changer le AND par OR

[herendel]

merci mais ce n'est pas sa,

mais juste comme sa si [F_resultats_sanitaire] est un sous formulaire de de [F_envoi], ils sont forcément chargé tous les 2 quand [F_envoi] et chargé non?

[micniv]

merci mais ce n'est pas sa,

mais juste comme sa si [F_resultats_sanitaire] est un sous formulaire de de [F_envoi], ils sont forcément chargé tous les 2 quand [F_envoi] et chargé non?

Alors essaie :

Code :

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

1
2
 
Form![F_envoi].Form![F_resultats_sanitaire].Form.Visible = True

Salut,

[herendel]

merci c'est sa je devais tout simplement remettre le chemin complet soit:
code] Forms![F_envoi]![F_resultats_sanitaire].Visible = True]
[/code]

merci pour votre aide