Rendre un champs visible sous conditions. Résolu

Question

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. 

Configuration: Windows / Chrome 95.0.4638.69

yg_be · Answer

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:
.ColumnHidden = True
et
.ColumnHidden = False pour la montrer.
Donc, jouer sur .ColumnHidden plutôt que sur .Visible.
Je n'ai pas testé.

Tessel75 · Answer

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 !

yg_be · Answer

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

Said · Answer

Bonsoir,
Votre code fonctionne bien avec trois valeurs.
Avec six valeurs, on peut toujours utiliser "iif"?

merci

Rendre un champs visible sous conditions.

4 réponses

Discussions similaires

Newsletters