Discussion :

[patito1975]

Bonjour,
j'ai un formulaire lié à une requête ou des calculs sont effectués.
J'aimerai que sur mon formulaire une alerte ou une erreur apparait lorsque je dépasse un certain montant.
Exemple,
dans mon champs "Cumul" je ne veux pas dépasser 200 donc lorsque je tape une valeur susceptible a dépasser 200 une erreur apparait pour me signaler et me refuser l'entrée de la donnée.
A savoir qu'un calcul est fait dans ma requête sur le champ Cumul.

Code :

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

Cumul: CDbl(SomDom("[test]";"tbl_test";"[La_date]<=" & DateUS([La_date])))

Merci à vous.

[jimbolion]

patito1975,

Tu peux contrôler la saisie en mettant <=200 dans la propriété du champ (valide si)

Autre solution, contrôler la valeur en sortie (evenement après mise à jour)

Cordialement

jimbolion

[patito1975]

Bonjour,
j'ai déjà essayé mais sans succès.
Même quand j'inscris <=200 il me fait le calcul et je tombe en négatif.
Mon formulaire est basé sur cette requête.
200 est la valeur par défaut de mon champ Q_Dispo.

[Renardo]

bonjour
ton champ test est au format numérique ou texte dans ta table?

[patito1975]

Bonjour,
Il est en numérique

[User]

patito1975,

Tu peux contrôler la saisie en mettant <=200 dans la propriété du champ (valide si)
...
jimbolion

Tu as bien mis la condition <=200 sur la propriété "Valide Si" de ta zone de texte reliée à ce champ dans ton formulaire ?

Cdlt,

[patito1975]

Oui pourtant ...

[jimbolion]

patito1975,

Attention il n'y a pas d'effets rétroactifs, les valeurs précédemment injectées ne seront pas contrôlées !



jimbolion

[patito1975]

Rien n'y fait, même en inscrivant les valeurs je peux dépasser ...

Voici le DB
test_valeur.zip

La valeur par défaut est dans la table tbl_test, champ Q_Dispo.

[jimbolion]

Patito1975,

Tu peux contrôler cette valeur sur la propriété <AprèsMiseàJour> de ton champ test ainsi le code ressemblerait à çà :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub test_AfterUpdate()
    Me.Refresh  ' recalcul les quantités restantes après saisie des quantités utilisées
    '
    ' la valeur renseignée est-elle > au cumul des entrées
    '
    If Me.test > Me.Restant Then
        MsgBox "erreur de saisie"   ' affichage d'un message
        Me.test = 0                 ' remise à zéro de la valeur saisie
        Me.Refresh                  ' force le calcul des quantités restantes
    End If
End Sub

jimbolion