Formulaire Access
Louise
-
Louise -
Louise -
Bonjour,
Je débute en visual basic et j'ai un pb qui me bloque vraiment dans l'avncement de mon travail!
Mon pb est de rendre des données visibles ou invisibles dans mon formulaire Access !
Je tape dans le code évenement du champs question, dans le current formulaire:
Private Sub Form_Current()
If [Question] = "Qualité de notre accueil" Then
Me![Mauvais :Vrai/faux].Visible = True
Me![Médiocre : Vrai/Faux].Visible = True
Me![Satisfaisant : Vrai/Faux].Visible = True
Me![Bien : Vrai/faux].Visible = True
Me![Echelle de 0 à 10] = False
Me![Commentaires] = False
End If
If [Question] = "Traitement de votre demande" Then
Me![Mauvais :Vrai/faux].Visible = True
Me![Médiocre : Vrai/Faux].Visible = True
Me![Satisfaisant : Vrai/Faux].Visible = True
Me![Bien : Vrai/faux].Visible = True
Me![Echelle de 0 à 10] = False
Me![Commentaires] = False
End If
Etc...
End Sub
J'ai plusieurs pb,
1) Lorque les champs Echelle de 0 à 10 et Commentaire sont marqués comme invisibles, ils apparaissent mais avec la valeur 0 à l'intérieur !!
2) Lorsque je met dans ma 5eme boucle If, les champs [Mauvais :Vrai/faux], [Médiocre :Vrai/faux] etc. (qui sont des cases à cocher) comme étant invisible, elles s'effacent aussi dans les 4 lignes précedentes donc je n'ai plus mes données !!
Merci d'avance pour votre aide
Je débute en visual basic et j'ai un pb qui me bloque vraiment dans l'avncement de mon travail!
Mon pb est de rendre des données visibles ou invisibles dans mon formulaire Access !
Je tape dans le code évenement du champs question, dans le current formulaire:
Private Sub Form_Current()
If [Question] = "Qualité de notre accueil" Then
Me![Mauvais :Vrai/faux].Visible = True
Me![Médiocre : Vrai/Faux].Visible = True
Me![Satisfaisant : Vrai/Faux].Visible = True
Me![Bien : Vrai/faux].Visible = True
Me![Echelle de 0 à 10] = False
Me![Commentaires] = False
End If
If [Question] = "Traitement de votre demande" Then
Me![Mauvais :Vrai/faux].Visible = True
Me![Médiocre : Vrai/Faux].Visible = True
Me![Satisfaisant : Vrai/Faux].Visible = True
Me![Bien : Vrai/faux].Visible = True
Me![Echelle de 0 à 10] = False
Me![Commentaires] = False
End If
Etc...
End Sub
J'ai plusieurs pb,
1) Lorque les champs Echelle de 0 à 10 et Commentaire sont marqués comme invisibles, ils apparaissent mais avec la valeur 0 à l'intérieur !!
2) Lorsque je met dans ma 5eme boucle If, les champs [Mauvais :Vrai/faux], [Médiocre :Vrai/faux] etc. (qui sont des cases à cocher) comme étant invisible, elles s'effacent aussi dans les 4 lignes précedentes donc je n'ai plus mes données !!
Merci d'avance pour votre aide
1 réponse
Bonjour,
1) C'est normal, tu as oublié de spécifier la propriété Visible !
Me![Echelle de 0 à 10] = False
Me![Commentaires] = False
doit être
Me![Echelle de 0 à 10].Visible = False
Me![Commentaires].Visible = False
2) C'est normal aussi : tu es sur un formulaire continu. Si tu rend un champs Visible ou Non, il l'est pour chaque ligne de ton formulaire...
Manu
1) C'est normal, tu as oublié de spécifier la propriété Visible !
Me![Echelle de 0 à 10] = False
Me![Commentaires] = False
doit être
Me![Echelle de 0 à 10].Visible = False
Me![Commentaires].Visible = False
2) C'est normal aussi : tu es sur un formulaire continu. Si tu rend un champs Visible ou Non, il l'est pour chaque ligne de ton formulaire...
Manu
Louise
oui j'avais vu que j'avais oublié le visible ! merci bcp