Discussion :

[JBOFFICE]

Bonjour,

Je souhaite conditionné automatique le signe d'un champ à la valeur indiqué dans un autre champ du même enregistrement de la même table.
Exemple: dans une table le champ "type opération" affiche une liste de choix: "débit" ou "crédit"; je souhaites pouvoir rentrer un valeur dans un autre champ "montant" de type monétaire et que ce montant s'affiche automatiquement en négatif si le choix "débit" a été fait dans le champ "type opération" et positif si le choix "crédit" a été fait dans le champ "type opération".

Quelqu'un peut-il m'aider?

Cordialement,

JBOFFICE

[jimbolion]

JBoffice bonjour

et bienvenu parmi nous

Tu auras pris soin de mettre ton champ en format monétaire et sur la propriété <Après Mise à jour> de ton champ Montant appliquer ce code VBA :

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Montant_AfterUpdate()
Select Case Nz(Me.Lb_TypeEcr, "")
Case ""
    Me.Lb_TypeEcr.SetFocus ' rend le focus sur la zone sélectionnée
Case "Débit"
    Me.Montant = 0 - Val(Nz(Me.Montant, 0))
Case "Crédit"
    Me.Montant = Abs(Nz(Me.Montant, 0))
End Select
End Sub

A adapter en fonction du nom de tes champs

Cordialement

Jimbolion

[Papy Turbo]

Salut, jimbolion,

juste une petite remarque au passage : tu as bien mis Abs() pour le Crédit.
Je le mettrais aussi pour le Débit, au cas où l'utilisateur a déjà saisi une valeur négative.

[jimbolion]

Papy Turbo,

bien vu et bonne remarque

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Montant_AfterUpdate()
Select Case Nz(Me.Lb_TypeEcr, "")
Case ""
    Me.Lb_TypeEcr.SetFocus ' rend le focus sur la zone sélectionnée
Case "Débit"
    Me.Montant = 0 - abs(Val(Nz(Me.Montant, 0)))
Case "Crédit"
    Me.Montant = Abs(Nz(Me.Montant, 0))
End Select
End Sub

et on pourrait même rajouter un événement <après Mise à jour> sur la boîte liste déclenchant cette procédure au cas ou l'utilisateur vienne changer débit en crédit par exemple.

Cldt


jm