Afficher un champ sous condition

**Cantalou** · 31/01/2006, 11h40

Bonjour,

voici une question de "mise en forme" :

J'ai cherché dans le forum le possibilité d'afficher un champ a la condition qu'un autre ne soit pas vide.

J'ai trouvé un petit code que j'ai tenté d'adapter mais qui ne fonctionne pas :

Code :

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

1
2
3
4
5
6
7
8
Private Sub NO_PROF_BASE_AfterUpdate()
If Me![NO_PROF_BASE] = " " Then
[NO_ETUDE].Visible = False
Else
[NO_ETUDE].Visible = True
End If
 
End Sub

Je voudrais que le champ "NO_ETUDE" (ainsi qu'un autre champ "NO_PROFIL") ne soit visible que si le champ NO_PROF_BASE est renseigné (non vide)

Merci de vos corrections !

**stéphane_ais2** · 31/01/2006, 11h47

Bonjour,

Tu peux essayer ceci :

Code :

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

1
2
3
4
5
6
 
If Not IsNull(Champ) then
Champ1.visible = False
Else
...
End if

SE

**Cantalou** · 31/01/2006, 12h03

bon, voilà comment je viens de faire les modifs, mais ça marche toujours pas ...

Code :

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

1
2
3
4
5
6
7
8
Private Sub NO_PROF_BASE_AfterUpdate()
If Not IsNull(NO_PROF_BASE) Then
[NO_ETUDE].Visible = True
Else
[NO_ETUDE].Visible = False
End If
 
End Sub

**stéphane_ais2** · 31/01/2006, 12h13

Enlève les crochets sur tes noms de champs...

Code :

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

1
2
 
NO_ETUDE.visible = True

...

**Cantalou** · 31/01/2006, 12h23

J'ai enlevé les crochets mais ça fait rien de mieux ...

**Shakram** · 31/01/2006, 13h14

Essaye cela (le nz pour gérer le null, et surtout supprimer l'espace entre tes double-quotes) :

Code :

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

1
2
3
4
5
6
7
8
Private Sub NO_PROF_BASE_AfterUpdate()
If Nz(Me![NO_PROF_BASE], "") = "" Then
[NO_ETUDE].Visible = False
Else
[NO_ETUDE].Visible = True
End If
 
End Sub

edit : erf je n'ai pas fait assez attention aux dernières interventions... tu pourrais nous dire quel est exactement le message d'erreur que tu obtiens?

**stéphane_ais2** · 31/01/2006, 13h44

Où mets-tu ton code?

...

SE

**stéphane_ais2** · 31/01/2006, 13h48

Ou essaie :

Code :

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

1
2
3
4
5
6
 
If Me.N0_PROF_BASE = "" then
Me.N0_ETUDE.Visible = False
Else
Me.N0_ETUDE.Visible = True
End if

sur Form_Open
ou sur Form_Current

SE

**Cantalou** · 31/01/2006, 13h56

J'ai essayé le nouveau code : Rien

Je met le code dans l'évènemment après MAJ de [NO_PROF_BASE] ...

Code :

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

Private Sub NO_PROF_BASE_AfterUpdate() ...

**Cantalou** · 31/01/2006, 14h04

Le code de stéphane_ais2 mis sur Form_Open donne le message suivant:

"Erreur de compilation
Membre de méthode ou de données introuvable"

et Private Sub Form_Open(Cancel As Integer) est surligné en jaune
et .NO_PROF_BASE est surligné en Bleu...

désolé , je tente d'apprendre sur le tas mais il me manque quelques bases ...

**stéphane_ais2** · 31/01/2006, 14h18

Sur Form_Current() qui correspond à l'évenement Sur Activation des propriétés du formulaire
essaie ce code :

Code :

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

1
2
3
4
5
6
 
If Not IsNull(Me.TonChamp) then
Champ1.Visible = True
Else
Champ1.Visible = False
End if

Dans mon premier post j'avais fait une erreur...

...

SE

**Cantalou** · 31/01/2006, 14h31

Ca marche !

Merci !

Peux-tu m'expliquer ton erreur ?

Code :

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

1
2
3
4
5
6
7
Private Sub Form_Current()
If Not IsNull(Me.NO_PROF_BASE) Then
NO_ETUDE.Visible = True
Else
NO_ETUDE.Visible = False
End If
End Sub

**Cantalou** · 31/01/2006, 14h40

... encore une petite question:

Si maintenant, avec la même condition je veux afficher ou masquer 1 ou 2 autres champs, où et comment dois-je les mettre dans le code ? (sachant qu'ils s'affichent ou se masquent en même temps selon les mêmes critères) ?

**stéphane_ais2** · 31/01/2006, 14h43

J'avais oublié le mot clé

Code :

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

Me

dans le code que je te proposais...

Si ça marche tant mieux...

SE

**Cantalou** · 31/01/2006, 15h40

En fait, non, ça ne marche pas si bien car les champs devenus "invisibles" ne redeviennent visibles qu'après une petit coup de molette de souris avant - arrière ! ...

l'affichage ne "se rafraichit" pas ...

**Alexandre Sahli** · 31/01/2006, 15h55

Bonjour,

le plus simple c'est d'utiliser la méthode du formatage conditionnel.
Donc de mettre dans la zone de texte la même couleur que le fond de formulaire et de même pour la couleur de texte.

Sinon il faut créer un rectangle que l'on rend visible ou pas suivant le contenu du champ voir des exemples avec
http://www.mvps.org/accessfr/forms/frm0024.htm

c'est naturellement plus compliqué

**stéphane_ais2** · 31/01/2006, 16h01

Qu'est-ce que tu veux dire par

l'affichage ne "se rafraichit" pas ...

:

...

SE

**Cantalou** · 31/01/2006, 16h14

Bon, la table sur laquelle est basée mon formulaire contient plusieurs enregistrements.

Avec le code actuel, si le champ NO_PROF_BASE de l'enregistrement en cours dans le formulaire est renseigné, le champ NO_ETUDE est visible, si par contre le champ NO_PROF_BASE est vide NO_ETUDE n'apparait pas. Donc jusque là ça va. Par contre lorsque j'entre un nouvel enregistrement, je renseigne NO_PROF_BASE mais NO_ETUDE reste invisible.

**stéphane_ais2** · 31/01/2006, 16h29

Et oui c'est normal...

Essaie de faire ceci
Sur l'évenement AfterUpdate de ton champ sur lequel tu fais le test :

Code :

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

1
2
3
4
5
6
 
If Not IsNull(Me.Champ) then
Me.champ1.Visible = True
Else
Me.champ1.Visible = False
End if

Les deux codes sont complémentaires, l'un quand tu consultes, l'autre quand tu saisis...

...

SE

**random** · 31/01/2006, 16h44

ajoute me.recalc

Afficher un champ sous condition

Access

Discussions similaires

Partager

Partager