Discussion :

[swissmade]

Bonjour,
J'ai une check box et j'aimerai que si elle n'est pas cochée que l'on ne vois pas un champ du formulaire
voici mon code:

Code :

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

1
2
3
4
5
6
7
Private Sub BVE_Enter()
If BVE.Value = True Then
[Numéro de code bve].Visible = True
Else
[Numéro de code bve].Visible = False
End If
End Sub

Mais ca n'as pas l'air de fonctionnner

D'avance merci

[mouaa]

mets ce code dans l'évenement after update de ta case à cocher.

et essaye avec la valeur -1 pour true et 0 pour false

en gros :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Private Sub BVE_AfterUpdate()
 
If Me.BVE = -1 Then 
Me.[Numéro de code bve].Visible = True 
Else 
Me.[Numéro de code bve].Visible = False 
End If 
 
End Sub

[Renardo]

Ne pas oublier de mettre le code sur la propriete activation du form

[swissmade]

mets ce code dans l'évenement after update de ta case à cocher.

et essaye avec la valeur -1 pour true et 0 pour false

en gros :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Private Sub BVE_AfterUpdate()
 
If Me.BVE = -1 Then 
Me.[Numéro de code bve].Visible = True 
Else 
Me.[Numéro de code bve].Visible = False 
End If 
 
End Sub

Parfait ca marche quand je change la valeur du checkbox.
Mais comment faire pour que ce soit invisible lorsqu'on lance le formulair?

[Lou Pitchoun]

Salut,

Si la valeur par défaut de la case à cocher est False, il suffit de définir la propriété Visible du champ texte à Non en mode création.

[swissmade]

Salut,

Si la valeur par défaut de la case à cocher est False, il suffit de définir la propriété Visible du champ texte à Non en mode création.

je comprend pas vraiment ce que vu veux dire par la...
Mais j'ai créé une macro qui se lance au démarage du formulaire.
Pour le checkbox "BVE" pas de problème ca mache. Ca deviens invisible lorsque c est pas coché.
Par contre pour la cas "UBS" il me met un erreur:"Propriété ou méthode non gérée par cet objet" (ligne 11) pourquoi?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Function Code_Open_Formulaire()
 
If Forms![ADMINISTRATEUR/BASE]!BVE.Value = -1 Then
Forms![ADMINISTRATEUR/BASE]![Numéro de code bve].Visible = True
Else
Forms![ADMINISTRATEUR/BASE]![Numéro de code bve].Visible = False
End If
If Forms![ADMINISTRATEUR/BASE]!UBS.Value = -1 Then
Forms![ADMINISTRATEUR/BASE]![Numéro de code UBS].Visible = True
Else
Forms![ADMINISTRATEUR/BASE]![Numéro de code UBS].Visible = False
End If

merci de m'aider

[Lou Pitchoun]

je comprend pas vraiment ce que vu veux dire par la...

C'est simple.
Lorsque tu crées ton champ, tu définis dès le départ la valeur de Visible à Non.

[Heureux-oli]

De toute façon, c'est pas sur Open du formulaire qu'il faut le faire, mais sur le current.
Sur le Open, la vérification ne se produit qu'une seule fois.

Code :

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

1
2
 
Forms![ADMINISTRATEUR/BASE]![Numéro de code bve].Visible = Forms![ADMINISTRATEUR/BASE]!BVE

En plus court

Code :

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

1
2
 
Me.[Numéro de code bve].Visible = Me.BVE

[swissmade]

C'est simple.
Lorsque tu crées ton champ, tu définis dès le départ la valeur de Visible à Non.

ah ouais juste bien vu. Mais cette technique ne marche que si tu n'as pas encore d'entrée dans ta base de donnée ce qui n'est pas mon cas. Il faudrai que je clique pour chaque client...

Bref y a toujours un truc qui merde avec l'insctruction:

Code :

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

Forms![ADMINISTRATEUR/BASE]![Numéro de code UBS].Visible = Forms![ADMINISTRATEUR/BASE]!UBS

je comprend pas d'ou ca viens!

Bon tempis je vais essayer autre chose.

Merci du coup de main

[Heureux-oli]

Si tu as des champs vides

Code :

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

1
2
 
Me.[Numéro de code bve].Visible = Nz(Me.BVE, true)

[swissmade]

ok merci beaucoup