Discussion :

[Zebulon777]

Bonjour à tous.

j'utilise le code suivant :

Code :

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

1
2
3
4
5
6
7
 
Private Sub C_OACI_LostFocus()
    If C_OACI.Value = "" Or IsNull(C_OACI) Then
        MsgBox "Le code OACI est obligatoire."
        C_OACI.SetFocus
    End If
End Sub

mais le problème c'est que lorsque je quitte le champ avec la touche TAB, le curseur se positionne sur le champ suivant malgré le setfocus.
Quelqu'un à une idée ?

[Frank]

il te faut gérer la tabulation dans ton formulaire, au niveau de chaque contrôle.

[Zebulon777]

Je ne comprend pas.
Si la condition n'est pas remplie, je voudrai afficher le message d'erreur et rester dans le champ en cours mais pas passer au suivant.

[Frank]

Je ne comprend pas.
Si la condition n'est pas remplie, je voudrai afficher le message d'erreur et rester dans le champ en cours mais pas passer au suivant.

Oups, j'ai lu en diagonale..

tu es sur des valeurs que tu testes ?
as tu quand même le message qui s'affiche ?

[Zebulon777]

Non le message ne s'affiche pas, par contre j'ai bien le message de la clause ValideSi qui s'affiche !!!

[Arkham46]

salut,

J'ai comme l'impression que le lostfocus est déclenché avant la tabulation.

Pas sûr de comprendre exactement la finalité du code mais pourquoi ne pas essayer de mettre ton message dans l'événement beforeupdate du formulaire?

[Sinclar]

Salut,
Il me semble que c'est parce que le focus est déjà perdu et qu'il est donné à un autre champ. A mon humble avis ça ne marchera pas sur LostFocus.
Par contre ça fonctionnera si tu mets l'évènement sur GotFocus du champs suivant.

[Zebulon777]

Sinclair, ça me parait très compliqué, car dans ce cas, il faudrait que je le fasse sur tous les champs du formulaire.
Arkham46 , même sur le beforeupdate, l'exécution du code n'est pas stoppée.
Voici le nouveau code :

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
24
25
26
27
28
29
30
31
32
33
34
 
Private Function Trt_Existe(Code_Oaci As String) As Boolean
    Dim RS As Recordset
 
    On Error GoTo Err_Num
 
    WCode_OACI = Trim(UCase(Code_Oaci))
    WRequete = "Select * from COM where COM.C_OACI = '" & WCode_OACI & "'"
    Set RS = CurrentDb.OpenRecordset(WRequete, 2)
 
    With RS
        .OpenRecordset
        If .RecordCount > 0 Then
            Trt_Existe = True
        End If
        .Close
    End With
 
Sortie_Num:
    Set RS = Nothing
    Exit Function
Err_Num:
    Trt_Existe = False
    Resume Sortie_Num
End Function
 
 
Private Sub C_OACI_BeforeUpdate(Cancel As Integer)
    If Trt_Existe(C_OACI.Value) Then
        MsgBox "Ce code OACI existe déjà dans la table."
        Cancel = True
        C_OACI.SetFocus
    End If
End Sub

Normalement, si la fonction Trt_Existe renvoie TRUE, le curseur doit rester dans le champ C_OACI or, il passe quand même dans le champs suivant ou là où l'utilisateur clique...
Au secours....

[Sinclar]

Arkham46 parlait du BeforeUpdate du form pas du contrôle; sur ton code il est sur le contrôle.
Ou alors AfterUpdate du Contrôle;
A part le mettre sur GotFocus du champs suivant je ne vois pas.

Bon courage

[Zebulon777]

Ok, effectivement sur le form ça à l'air de fonctionner comme je le souhaite.

Par contre, est-ce qu'il est possible de ne pas valider un formulaire par la touche TAB lorsqu'on sort du dernier champs, mais en forçant l'utilisation d'un bouton de validation ou sur la touche ENTREE ?

[Sinclar]

Et bien tu peux utiliser l'évènement keypress et condamner la touche TAB par son code keyascii

http://access.developpez.com/faq/?page=Ctrl#ctrlSaisie

ou alors boucler le form sur un enreg et non pas tous dans la fenêtre propriété du form dans l'onglet Autres>Cycle

[pgz]

Bonjour,

Moi je pense qu'il faut utiliser l'évènement AfterUpdate, car là le curseur est bien parti, et donc on peut le faire revenir.

pgz

[Zebulon777]

Ok en changeant le cycle, effectivement, il n'y a plus de validation à la sortie du dernier champs.
MAIS...Je n'ai plus d'enregsitrement du tout...lol...
Comment faire cet enregistrement dans ma table au clic sur le bouton validation ET sur la touche ENTREE ?

[Zebulon777]

Up...