Discussion :

[olivll]

Bonjour, malgré mes recherches dans ACCESS, dans la FAQ et même plus, je n'arrive pas à empecher le focus de passer au controle suivant tout en ayant tester la valeur saisie.

J'ai un controle numérique et je désire que la valeur soit comprise dans une fourchette. J'ai donc mis une condition dans l'evenement BEFORE_UPDATE avec MSGBOX d'avertissement. Cela fonctionne, le curseur reste sur le controle mais en surbrillance et il sufit de VALIDER DE NOUVEAU (ENTER) pour passer au controle suivant, malgré le test.....

Voici mon code (BEFORE_UPDATE) :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub IdPRDeb_BeforeUpdate(Cancel As Integer)
 
If IsNull(Me![IdPRDeb]) Or Me![IdPRDeb].Value <> "" Then
    If CDbl(Me![IdPRDeb].Value) < PRdeb.Value Or CDbl(Me![IdPRDeb].Value) > PRfin.Value Then
        MsgBox ("hors des limites : " & PRdeb.Value & " et " & PRfin.Value)
        Me![IdPRDeb].Undo
        Cancel = True
    End If
Else
    MsgBox ("veuillez renseigner le PR de début !")
    Cancel = True
    Me![IdPRDeb].Undo
End If
If Me![IdPRDeb].Value <> "" And Me![IdPRFin].Value <> "" Then
    If CDbl(Me![IdPRFin].Value) <= PRfin.Value And CDbl(Me![IdPRFin].Value) >= PRdeb.Value And CDbl(Me![IdPRDeb].Value) >= PRdeb.Value And CDbl(Me![IdPRDeb].Value) <= PRfin.Value Then
    End If
End If
 
End Sub

Merci d'avance pour vos réponses

[helas]

Pourquoi ,ne pas mettre la condition dans la propriété Valide si du champ, dans ce cas il est difficile de quitter le champ si la valeur entrée est incorrecte.

[olivll]

Mais oui bien sur, autant pour moi...

Merci HELAS

Pourquoi ,ne pas mettre la condition dans la propriété Valide si du champ, dans ce cas il est difficile de quitter le champ si la valeur entrée est incorrecte.