Discussion :

[parab]

Bonjour,

Dans une zone de texte, je fais des textes sur la date saisie, je veux que après le test, le curseur reste sur la même zone, j'ai essayé .SetFocus mais cela marche si je mets le nom d'une autre zone mais pas sur la zone testée.

Auriez-vous une solution SVP?

Merci d'avance.

[Gabout]

Bonjour,

Montre-nous ce que tu testes et comment.

A+

[parab]

Bonjour,

J'ai écris le code comme ci-dessous :

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
20
 
Private Sub DateNaissance_AfterUpdate()
    Dim NbAnnée As Integer
    NbAnnée = DateDiff("yyyy", Me.DateNaissance, Date)
    Select Case NbAnnée
        Case Is > 80
            MsgBox "La date de naissance ne peut pas être supérieure à 80 ans de l'année en cours."
            Me.DateNaissance.SetFocus
            Me.DateNaissance = ""
        Case Is = 0
            MsgBox "La date de naissance ne peut pas être dans l'année en cours."
            Me.DateNaissance.SetFocus
            Me.DateNaissance = ""
        Case Is < 16
            MsgBox "La date de naissance ne peut pas être inférieure à 16 ans de l'année en cours."
            Me.DateNaissance.SetFocus
            Me.DateNaissance = ""
    End Select
 
End Sub

Dès que je saisie une date incorrecte, il focus passe à la zone de texte suivante, je ne sais pas comment faire autrement...

[Gabout]

Bonjour,

Essaie de traiter tes tests Avant mise à jour

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub DateNaissance_BeforeUpdate()
    Dim NbAnnée As Integer
    NbAnnée = DateDiff("yyyy", Me.DateNaissance, Date)
    Select Case NbAnnée
        Case Is > 80
            MsgBox "La date de naissance ne peut pas être supérieure à 80 ans de l'année en cours."
        Case Is = 0
            MsgBox "La date de naissance ne peut pas être dans l'année en cours."
        Case Is < 16
            MsgBox "La date de naissance ne peut pas être inférieure à 16 ans de l'année en cours."
    End Select
    Me.DateNaissance.SetFocus
    Me.DateNaissance = "" 
End Sub

[parab]

Bonjour Gabout,

J'ai fait ce que tu m'as dis, j'ai l'erreur suivante :

"Erreur d'exécution '2108'. Vous devez enregistrer le champ avant d'exécuter la méthode SetFocus".

Merci d'avance.

[parab]

Après quelques recherches sur google, j'ai trouvé une solution avec

Code :

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

Cancel = True

Voici mon code de nouveau pour ceux qui pourrons avoir le même problème.

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
20
21
22
23
 
Private Sub DateNaissance_BeforeUpdate(Cancel As Integer)
    DoCmd.SetWarnings False
    NbAnnée = DateDiff("yyyy", Me.DateNaissance, Date)
    Select Case NbAnnée
        Case Is > 80
            MsgBox "La date de naissance ne peut pas être supérieure à 80 ans de l'année en cours."
            DateNaissance.SelStart = 0
            DateNaissance.SelLength = Len(DateNaissance.Value)
            Cancel = True
        Case Is = 0
            MsgBox "La date de naissance ne peut pas être dans l'année en cours."
            DateNaissance.SelStart = 0
            DateNaissance.SelLength = Len(DateNaissance.Value)
            Cancel = True
        Case Is < 16
            MsgBox "La date de naissance ne peut pas être inférieure à 16 ans de l'année en cours."
            DateNaissance.SelStart = 0
            DateNaissance.SelLength = Len(DateNaissance.Value)
            Cancel = True
    End Select
    DoCmd.SetWarnings True
End Sub

Cordialement.