Discussion :

[atech]

Bonjour,

J'ai fait un peu de VB6 il y a quelques temps et je découvre ACCESS 2007 depuis peu.

Mon souci :
J'ai un formulaire dans lequel il y a plusieurs zones de texte (textbox) dans lesquels apparaissent les champs d'une requête.
Selon la valeur d'une textbox, je voudrais rendre visible ou non d'autres textbox du formulaire.

J'ai donc créé un petit code tout bête lié à un événement Change sur une textbox.
Or, quand je fais défiler mes enregistrements (avec boutons du formulaire en bas à gauche) et que mes valeurs changent, l'évènement Change n'est pas pris en compte ??

Du coup, je tenterais bien de gérer l'évènement Click sur les boutons de défilement des enregistrements évoqués ci-dessus mais apparemment, on ne peut pas coder cet évènement ??

Y a t-il des astuces ?

[miamou]

Bonjour,
essayes de placer ton code sur l'évènement "Après MAJ"

[atech]

Bonjour,
essayes de placer ton code sur l'évènement "Après MAJ"

Idem, pas pris en compte...

Du coup, j'espérais pouvoir associer un évènement au click sur la barre de défilement des enregistrements en bas du formulaire mais à priori pas possible.

[Invité]

Bonjour

Sur l'évènement Change on récupère la propriété Text et non Value, et comme tu ne nous donnes pas ton code ce n'est pas évident de savoir ce qui peut se passer.

Philippe

[miamou]

Ne faudrait il pas mettre ton code dans l'évènement 'Form_Load'.puisque tu fais parcourir tes enregistrements par les boutons de déplacement???
je tatone tu peux tester

[Domi2]

Bonsoir,

Il faut utiliser l'événement Sur activation du formulaire (Form_Current()).

Il se produit à l'ouverture du formulaire et lors de chaque changement d'enregistrement.

Domi2

[atech]

Bonsoir,

Il faut utiliser l'événement Sur activation du formulaire (Form_Current()).

Il se produit à l'ouverture du formulaire et lors de chaque changement d'enregistrement.

Domi2

Bingo, merci !

Code :

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

1
2
3
4
5
6
7
Private Sub Form_Current()
If textbox1.Value = "xxx" Then
 textbox2.Visible = False
Else
 textbox2.Visible = True
End If
End Sub