Discussion :

[qtipse]

bonjour tout le monde et félicitations pour le forum très bien fait.

J'ai trouvé beaucoup d'informations dans les tuto et faqs


bon comme j'ai écris dans le sujet je cherche comment attribuer une valeur numérique à une case à cocher , ce qui veut dire que lorsque je coche la case une valeur est additionné dans un autre champ.

exemple (sur case cochée additionne valeur x dans textebox ).

je pense qu'avec iif ca se fait mais je n'ai pas trouvé ce que je cherche dans le forum ou bien trop nul pour comprendre.


merci !

[Jean-Philippe André]

salut qtipse et bienvenue sur DVP

tu as plusieurs possibilités, mais au delà du iif qui est utilisé dans cet exemple :
http://access.developpez.com/faq/?pa...AffResultChkBx

tu peux passer par un test true/false sur la valeur retournée, et additionner le cas échéant la valeur...

[le_niak]

Salut,

Essaye quelque chose dans ce genre.

Code :

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

1
2
3
4
5
6
 
Public Sub Test()
    If Me.CaseAcocher=True Then
        Me.Textbox.Value=10
    End If
End Sub

[FreeAccess]

Bonjour,

...comment atribuer une valeur numérique à une case à cocher

Si cette valeur reste toujours la même, tu peux utiliser la propriété "Valeur par défaut" pour attribuer une valeur numérique à ta case à cocher (Cocher0).
Ensuite une petite chose comme cela pour additionner une valeur se trouvant dans un TextBox (Texte1):

Code :

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

1
2
3
If Me.Cocher0 = True Then
    Me.Texte1.Value = Me.Texte1.Value + Me.Cocher0.DefaultValue
End If

Tout dépend de ce que tu veux exactement faire et surtout quand le faire.....

[qtipse]

allo freeacces

j'aime bien ta formule et oui c'est des valeurs fixes mais elle ne fonctionne pas

message d'erreur introduction incorredte a l'intérieure d'une procedure sur if me.

[FreeAccess]

Bonjour,

Quel est le message exact....

Dans mon exemple: (qui ne reste qu'un exemple....)
- Case à cocher (Cocher0) ==> Valeur par défaut = 10

- Un champ texte (Texte1)

- Un simple bouton de commande (pour l'exemple) qui va déclencher le calcul ou non.....avec le code déjà donné:

Code :

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

1
2
3
4
5
Private Sub Commande6_Click()
If Me.Cocher0 = True Then
    Me.Texte1.Value = Me.Texte1.Value + Me.Cocher0.DefaultValue
End If
End Sub

La seule précaution à prendre ici, c'est de ne plus avoir le focus sur le champ Texte1.........sinon, au lieu d'additionner la valeur qui s'y trouve (30 + 10 = 40)....tu vas obtenir la concaténation des deux valeurs (30 + 10 = 3010)....

[qtipse]

merci ca fonctionne c'était mon erreur j'avais oublié le private sub.