Discussion :

[Anonymouse]

Bonjour

Je dois mettre à l'aide de code VBA, un masque de saissie et une condition de validité sur un champ texte.

Voila comment je procède.

Code :

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

1
2
3
 
Me.textMontant.InputMask = "00.0;;_"
Me.textMontant.ValidationRule = "<8.1"

Malheureusement si chacune des solutions appliquées une par unee marche réunie il m'est impossible de renter dans le champ texte un nombre > à 00.08?

Merci d'avance de votre aide

[Invité]

Bonjour

Dans ton InputMask, rajoute un 0, et pourquoi 2 séparateurs ?

Est-ce que cela ne te suffit pas ?

Code :

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

 Me.textMontant.InputMask = "00.00"

Starec

[Anonymouse]

Bonjour

Dans ton InputMask, rajoute un 0, et pourquoi 2 séparateurs ?

Est-ce que cela ne te suffit pas ?

Code :

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

 Me.textMontant.InputMask = "00.00"

Starec

Nan ça ne change rien:

J'ai aussi essayé en vain cela:

Code :

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

1
2
        Me.textMontant.InputMask = "00.00"
        Me.textMontant.ValidationRule = "<08.10"

Les deux séparateurs ";;" c'est par ce que quand je le fais à la main Access me les rajoutes automatiquement.

Le problème reste le même impossible de mettre un nombre > à 00,08.
Est-ce un bug d'Access qui ne tient pas compte des décimales?

[FreeAccess]

Bonjour....

...impossible de mettre un nombre > à 00,08.

...c'est normal, c'est ce que tu demande a ACCESS dans le contrôle de validité......
.à corriger

Code :

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

1
2
3
4
Private Sub Form_Current()
    Me.TextMontant.InputMask = "00.00;_"
    Me.TextMontant.ValidationRule = ">00.08"
End Sub

[EDIT] Propriété du champ:
...Format = nombre général
...Décimal = 2

Ici, ton nombre saisie devra être supérieur à 00,08

[Anonymouse]

Bonjour....


...c'est normal, c'est ce que tu demande a ACCESS dans le contrôle de validité......
.à corriger

Code :

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

1
2
3
4
Private Sub Form_Current()
    Me.TextMontant.InputMask = "00.00;_"
    Me.TextMontant.ValidationRule = ">00.08"
End Sub

[EDIT] Propriété du champ:
...Format = nombre général
...Décimal = 2

Ici, ton nombre saisie devra être supérieur à 00,08

Ce que je veux c'est qu'il ne puisse être plus grand que "08.10".
Donc il est valide si "<08.10"
Avec le masque il ne prenait que le dernier chiffre pour établir sa comparaison:
Je pouvais donc rentrer:
-00,01.
-00,02
...
-00,08
Et plus rien après.

Mais grâce à ton post qui m'a fait découvrir la propriété format j'ai résolu mon problème.
En fait mon champ est monétaire j'ai donc utilisé la propriété .Format = "Euro" et .ValidationRule = "<8.1".

Merci à toi et "Starec" d'avoir résolut mon problème.