Rendre un champs visible sous conditions.
Résolu
Said
-
Said -
Said -
Bonjour, je crée une base de données de gestion des résultats d'analyses médicales, j'ai un formulaire et un sous-formulaire.
Pour le formulaire j'ai un champs, NORMES, alimenté par une liste de choix avec trois valeurs: NORMEA, NORMEF et NORMEB.
Pour le sous-formulaire , en mode feuille de données et pour chaque examen, exemple: Glycémie, j'ai aussi trois champs: VALEUREA, VALEUREF et VALEUREB.
je voudrai que à chaque fois que je sélectionne une norme sur le formulaire je retrouve uniquement la valeur qui correspond au niveau du sous-formulaire.
J'ai essayé de rendre visible et invisible chaque champs par exemple pour le Champs VALEURA :
En mode création sur la feuilles des propriétés du contrôle:
- sur format, visible = NON
- sur événement, Après MAJ, j'ai fais appel au générateur de code:
Private Sub VALEURA_AfterUpdate()
If [NORMES] = "NORMEA" then
[VALEURA].Visible=True
Else
[VALEURA].Visible=False
End If
End Sub
Héals, ça fonctionne pas, j'ai toujours mon champs VALEURA bien visible sur mon sous-formulaire!!!
Comment faire svp?
Mercie pour votre aide précieuse.
Pour le formulaire j'ai un champs, NORMES, alimenté par une liste de choix avec trois valeurs: NORMEA, NORMEF et NORMEB.
Pour le sous-formulaire , en mode feuille de données et pour chaque examen, exemple: Glycémie, j'ai aussi trois champs: VALEUREA, VALEUREF et VALEUREB.
je voudrai que à chaque fois que je sélectionne une norme sur le formulaire je retrouve uniquement la valeur qui correspond au niveau du sous-formulaire.
J'ai essayé de rendre visible et invisible chaque champs par exemple pour le Champs VALEURA :
En mode création sur la feuilles des propriétés du contrôle:
- sur format, visible = NON
- sur événement, Après MAJ, j'ai fais appel au générateur de code:
Private Sub VALEURA_AfterUpdate()
If [NORMES] = "NORMEA" then
[VALEURA].Visible=True
Else
[VALEURA].Visible=False
End If
End Sub
Héals, ça fonctionne pas, j'ai toujours mon champs VALEURA bien visible sur mon sous-formulaire!!!
Comment faire svp?
Mercie pour votre aide précieuse.
Configuration: Windows / Chrome 95.0.4638.69
A voir également:
- Rendre un champs visible sous conditions.
- Clé usb non visible - Guide
- Comment rendre un fichier moins lourd - Guide
- Compte facebook désactivé mais toujours visible - Guide
- Excel ligne toujours visible - Guide
- Capture d'écran whatsapp visible - Accueil - Messagerie instantanée
4 réponses
yg_be
Messages postés
23541
Date d'inscription
Statut
Contributeur
Dernière intervention
Ambassadeur
1 584
bonjour,
je ne suis pas certain d'avoir tout compris.
veux-tu cacher une colonne de la feuille de données?
si j'ai compris, ton code ne retourne pas d'erreur, et il ne fait pas ce que tu souhaites.
j'essaierais plutôt, pour cacher la colonne:
et
Donc, jouer sur
Je n'ai pas testé.
je ne suis pas certain d'avoir tout compris.
veux-tu cacher une colonne de la feuille de données?
si j'ai compris, ton code ne retourne pas d'erreur, et il ne fait pas ce que tu souhaites.
j'essaierais plutôt, pour cacher la colonne:
.ColumnHidden = True
et
.ColumnHidden = Falsepour la montrer.
Donc, jouer sur
.ColumnHiddenplutôt que sur
.Visible.
Je n'ai pas testé.
Bonjour,
Il n'est pas nécessaire d'envoyer ton fichier, d'abord parce que je peux te dire d'emblée que tu ne peux pas masquer un contrôle en affichage feuille de données, ou alors en jouant sur la largeur de la colonne; mais là, je ne connais pas la commande en VBA.
Tu ne peux utiliser la commande Visible =true ou False que sur l'affichage en mode formulaire.
Deuxièmement, tu dois savoir que lorsque tu actives la commande Visible =true ou False, c'est tous les formulaires affichés, en mode continu dont le contrôle est à afficher ou masquer qui seront affichés et masqués en même temps. Il ne faut pas t'attendre à avoir les uns masqués les autres affichés selon la valeur des données des différents enregistrements.
Troisièmement, ton code n'est pas bon et ne sert à rien. Si tu veux que seules les valeurs que tu as choisies apparaissent, il te faut une requête qui te sélectionne les enregistrements dont les données correspondent à tes critères de sélection. Tel que tu poses ton problème, je ne vois pas d'autre solution.
En plus, je ne vois pas bien l'intérêt de ton code. Il indique qu'à peine ta donnée entrée dans le contrôle "ValeurA", celle-ci doit être masquée si elle ne correspond pas à la norme choisie. Étonnant ! Et puis après ? Quand tu auras entré une valeur acceptée par ta norme, c'est toutes tes valeurs qui réapparaitront.
Bon courage !
Il n'est pas nécessaire d'envoyer ton fichier, d'abord parce que je peux te dire d'emblée que tu ne peux pas masquer un contrôle en affichage feuille de données, ou alors en jouant sur la largeur de la colonne; mais là, je ne connais pas la commande en VBA.
Tu ne peux utiliser la commande Visible =true ou False que sur l'affichage en mode formulaire.
Deuxièmement, tu dois savoir que lorsque tu actives la commande Visible =true ou False, c'est tous les formulaires affichés, en mode continu dont le contrôle est à afficher ou masquer qui seront affichés et masqués en même temps. Il ne faut pas t'attendre à avoir les uns masqués les autres affichés selon la valeur des données des différents enregistrements.
Troisièmement, ton code n'est pas bon et ne sert à rien. Si tu veux que seules les valeurs que tu as choisies apparaissent, il te faut une requête qui te sélectionne les enregistrements dont les données correspondent à tes critères de sélection. Tel que tu poses ton problème, je ne vois pas d'autre solution.
En plus, je ne vois pas bien l'intérêt de ton code. Il indique qu'à peine ta donnée entrée dans le contrôle "ValeurA", celle-ci doit être masquée si elle ne correspond pas à la norme choisie. Étonnant ! Et puis après ? Quand tu auras entré une valeur acceptée par ta norme, c'est toutes tes valeurs qui réapparaitront.
Bon courage !
yg_be
Messages postés
23541
Date d'inscription
Statut
Contributeur
Dernière intervention
Ambassadeur
1 584
suggestion:
Private Sub NORMES_AfterUpdate()
Dim sfd As SubForm, nrm As String, na As Boolean, nb As Boolean, ne As Boolean
nrm = Me.Normes
Set sfd = Me.Parent.[Examens sous-formulaire].Controls("[Details sous-formulaire]")
na = True
nb = True
ne = True
Select Case nrm
Case "NORMEA":
na = False
Case "NORMEB":
nb = False
Case "NORMEE":
ne = False
End Select
sfd.Controls("VALEURA").ColumnHidden = na
sfd.Controls("VALEURB").ColumnHidden = nb
sfd.Controls("VALEURE").ColumnHidden = ne
End Sub
Bonjour,
Votre code fonctionne très bien, sauf qu'il y'a toujours un soucis:
Quand je sélectionne une NORME pour un patient c'est tous les autres patients qui auront la même norme.
Comment surmonter ce soucis svp?
https://drive.google.com/file/d/1T1TcYS2jJy1FAMPwXCt5ho9eMwj_wlO1/view?usp=sharing
Merci beaucoup pour votre aide.
Votre code fonctionne très bien, sauf qu'il y'a toujours un soucis:
Quand je sélectionne une NORME pour un patient c'est tous les autres patients qui auront la même norme.
Comment surmonter ce soucis svp?
https://drive.google.com/file/d/1T1TcYS2jJy1FAMPwXCt5ho9eMwj_wlO1/view?usp=sharing
Merci beaucoup pour votre aide.
Oui je veux cacher une colonne de la feuille de données.
je viens de tester Columnhidden, hélas ça fonction pas
Merci
Avec plaisir, juste il faut que je trouve comment le partager.
Je suis nouveau ici.
Je vais voir ça rapidement.
C'est vraiment gentil.
Si tu veux même le recevoir par email?
Voici le mien:
***@***
Merci
https://drive.google.com/file/d/1g5R-0tjmWaB5jCL56xll5x4OHyPSHkXl/view?usp=sharing
merci bien