Discussion :

[kuhnden]

Bonjour,

Dans un formulaire j'ai 2 texte box (Texte92 et Texte94).

Je souhaite que Texte92 soit invisible s'il est vide et que Texte94 soit invisible si le champs est égale à 0.

Je crois qu'il y a un code à faire mais je n'arrive pas à trouver la fonction pour dire invisible

Pouvez-vous m'aidre ?

Merci

Nicolas

[smotte76]

Tu créer cette procédure :

sub test()
if Isnull(Texte92) then
Texte92.visible=true
else
Texte92.visible=false
end if
end sub

puis Tu associes cette procédure au chargement du formulaire :

call test

sans oublier de l'associer à Texte92 après MAJ :
call test

puis sur texte94, tu créais cette procédère après MAJ :

if texte94=0 then
texte94.visible = false
else
texte94.visible = true
end if

Bon courage

[kuhnden]

Bonjour,

J'ai crée un code dans le chargement du formulaire dans lequel j'ai mis

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
sub test() 
if Isnull(Texte92) then 
Texte92.visible=false
else 
Texte92.visible=true
end if 
if texte94=0 then 
texte94.visible = false 
else 
texte94.visible = true 
end if 
end sub

puis j'ai mis

Code :

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

1
2
3
4
5
6
7
8
 
sub test() 
if Isnull(Texte92) then 
Texte92.visible=false
else 
Texte92.visible=true
end if
end sub

dans après mise à jour de Texte92 et

Code :

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

1
2
3
4
5
6
if texte94=0 then 
texte94.visible = false 
else 
texte94.visible = true 
end if 
end sub

dans après mise à jour de Texte94.

mais j'ai un message d'erreur : l'expression du code n'est pas correct

[pgz]

Bonjour,

Attention aux noms de tes procédures. Tu peux essayer

Code :

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

1
2
3
4
5
6
7
 Private Sub Texte92_AfterUpDate()
Me.Texte.92.Visible = Not IsNull(Me.Texte92)
End sub
 
Private Sub Texte94_AfterUpDate()
Me.Texte94.Visible = Not Me.Texte94 = 0
End Sub

D'ailleurs, pour saisir ton code, il faut passer par la fenêtre des propriétés des contrôles 92 et 94, onglet évènement, sur mise à jour.

Le code marchera si le curseur est déjà parti du contrôle.

pgz

[kuhnden]

Ca ne marche pas, j'ai toujours les texte box de visible.

Nicolas

[pgz]

Cela veut dire qu'il ne se passe rien, ou que tu as un msg d'erreur?

Recopie le code d'un des deux contrôles et dis moi ce que tu lis :
dans les propriétés du contrôle, onglet évènement, sur la ligne 'après mise à jour'.

A+

pgz

[kuhnden]

Je n'ai pas de message d'erreur mais il ne se passe rien, j'ai pour le Texte92 sur la ligne après MAJ

Code :

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

[Procédure événementielle]

dans lequel j'ai mis

Code :

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

1
2
3
4
Private Sub Texte92_AfterUpDate()
 
Me.Texte92.Visible = Not IsNull(Me.Texte92)
End Sub

Pour le texte94 j'ai mis le code

Code :

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

1
2
3
Private Sub Texte94_AfterUpDate()
Me.Texte94.Visible = Not Me.Texte94 = 0
End Sub

[pgz]

Tu ne m'as pas répondu à :

et dis moi ce que tu lis :
dans les propriétés du contrôle, onglet évènement, sur la ligne 'après mise à jour'.

A+

pgz

[kuhnden]

Pour le formulaire en lui même rien, uniquement pour les texte box ou j'ai [Procédure événementielle]

[Arkham46]

hello

c'est pas d'un formulaire en mode continu dont on parle là?

sinon si le formulaire est en mode simple, il faut mettre le code sur l'événement "sur activation" pour que ça se déclenche au changement d'enregistrement.

ça doit marcher mais il faut trouver les bons événements en fonction de ton formulaire.

[pgz]

Je viens de faire l'essai, tu devrais avoir une erreur, car comme je le craignais, le focus est encore là.

Essaie ça sur 94:

Code :

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

1
2
3
4
5
6
Private Sub Texte94_AfterUpDate()
MsgBox "Exécution Sub Texte94_AfterUpDate()"' pour test
SendKeys "{TAB}"
DoEvents
Me.Texte4.Visible = Not Me.Texte4 = 0
End Sub

C'est pas très joli, mais bon ça marche. Sinon, tu peux effectivement attendre la prochaine activation.

[kuhnden]

il s'agit d'un formulaire en continu

[kuhnden]

Je viens de faire l'essai, tu devrais avoir une erreur, car comme je le craignais, le focus est encore là.

Essaie ça sur 94:

Code :

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

1
2
3
4
5
6
Private Sub Texte94_AfterUpDate()
MsgBox "Exécution Sub Texte94_AfterUpDate()"' pour test
SendKeys "{TAB}"
DoEvents
Me.Texte4.Visible = Not Me.Texte4 = 0
End Sub

C'est pas très joli, mais bon ça marche. Sinon, tu peux effectivement attendre la prochaine activation.

Ca ne me fait rien

[pgz]

La question était bonne!

Si c'est un formulaire continu, laisse tomber le VBA. Si tu masque un contrôle, il disapaît dans tous les enr.

Tu ne peux utiliser que la mise en forme conditionnelle du contrôle, et jouer sur la couleur de police.


A+

pgz