Discussion :

[moilou2]

Bonjour à tous, je voudrais que si une valeur est tapée dans un champs, même si celle ci a été rentrée positivement, elle se transforme après validation en valeur négative, en revanche, si quelqu'un rentre une valeur negative je veux qu'elle reste négative.

PS: C'est dans un formulaire que la personne rentre cette valeur!

Merci à tous

[Gabout]

Bonjour,

Tu peux essayer ceci en changeant val par le nom de ton champ

Code :

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

1
2
3
Private Sub val_Exit(Cancel As Integer)
    Me.val = -Abs(Me.val)
End Sub

[Renardo]

Bonjour
tu peux faire quelque chose comme cela

Code :

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

1
2
3
4
5
Private Sub MonChamp_AfterUpdate()
If Me.Monchamp > 0 Then
Me.Monchamp = Me.Monchamp- Me.Monchamp - Me.Monchamp
End If
End Sub

[Renardo]

La solution de Gabout est aussi efficace et plus simple

[Heureux-oli]

Le tout est de savoir si on préfère Exit ou AfterUpdate
L'un se produit tout le temps, alors que l'autre ne se produit que lorsqu'il y a changement.