Discussion :

[Oreo_]

Bonjour à tous,

Dans un formulaire j'ai attribué un controle de visibilité au champs poursuite_etude (case à cocher). Si ce champ est coché alors le champ universite apparait.
Dans l'évenement après MAJ de poursuite_etude, il y a ce code :

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub poursuite_etude_AfterUpdate()
 
  If Me.poursuite_etude.Value = True Then
      Me.universite.Visible = True
  Else
      Me.universite.Visible = False
  End If
 
End Sub

De ce fait, dans les propriétés du champ universite, j'ai rendu ce champ invisible.

Mais lorsque je fais défiler les enregistrements de mon formulaire, si je tombe sur un formulaire dont le champ poursuite_etude est coché, le champ universite reste invisible.

Comment dois-je faire pour que le champ universite apparaisse si poursuite_etude est coché sans avoir à cliqué sur la case à cocher (cette case a en fait déjà été coché lors de la saisie de l'enregistrement) ?

[marot_r]

Ajouter la procédure ci-dessous :

Code :

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

1
2
3
4
5
6
7
8
9
Private sub MasquerChamp()
 
  If Me.poursuite_etude.Value = True Then
      Me.universite.Visible = True
  Else
      Me.universite.Visible = False
  End If
 
end sub

sur l'événement Sur Activation (Current) mettre

Code :

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

call MasquerChamp

sur l'événement Après MAJ remplacer ton code par

Code :

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

call MasquerChamp

L'évnement Après MAJ ne s'éxécute pas si tu passes seulement d'un enregistrement à l'autre sans faire de changement à cet enregistrement.

A+

[Oreo_]

Merci pour votre solution mais je ne trouve pas l'évenement sur Activation, en pièce jointe une capture d'écran de tout les évenements.
Est ce que c'est touche activée ?

Encore merci!

[marot_r]

Désolé j'ai oublié de le préciser, sur activation est un événement du formulaire pas du contrôle.

A+

[Dekdek3578]

et puis plus simple encore tu peux faire

Code :

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

Me.universite.Visible = Me.poursuite_etude.Value

Au lieux de :

Code :

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

1
2
3
4
5
 If Me.poursuite_etude.Value = True Then
      Me.universite.Visible = True
  Else
      Me.universite.Visible = False
  End If

[Oreo_]

D'accord merci à vous deux, ça fonctionne!