Discussion :

[patanar]

Bonjour,

J'ai un petit soucis que voici:

Dans un formulaire, à la perte de focus de mon champ mail, je contrôle si @ a été saisi et si ce n'est pas le cas, je souhaite redonner le focus à ce champ mail donc voici le code

Code :

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

1
2
3
4
 LeMail = StrConv(Mail, vbLowerCase)
              if inStr(LeMail, "@") = 0 Then
                 Me.Mail.SetFocus
              endif(

C'est là que ça ne fonctionne pas, le focus restant sur le champ suivant en saisie.

Merci de votre aide.

[RobiPMS]

Bonjour.
Je viens de faire un essai, en adaptant ton code, et je n'ai pas de souci, que l'on déclenche la procédure sur perte du focus, ou après mise à jour...
Dans ce que tu as posté, il manque un espace entre End et If, et il ne faut pas de ( après If, mais je suppose que ces erreurs ne sont pas telles quelles dans ton code!
Le code que j'ai essayé :

Code :

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

1
2
3
4
5
6
7
8
Private Sub Mail_LostFocus()
Dim Lemail As String
Lemail = StrConv(Mail, vbLowerCase)
              If InStr(Lemail, "@") = 0 Then
                 Me.Mail.SetFocus
                 MsgBox "L'adresse mail ne comporte pas le signe @... Veuillez vérifier et corriger l'adresse encodée."
              End If
End Sub

Peux tu poster le code complet (relatif à ce champ) afin de vérifier ce qui pourrait engendrer le comportement que tu décris?
Cordialement

[jimbolion]

patanar

L’événement est à mettre sur la propriété avant mise à jour :

Code :

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

1
2
3
4
5
6
Private Sub Mail_BeforeUpdate(Cancel As Integer)
    Lemail = StrConv(Mail, vbLowerCase)
              If InStr(Lemail, "@") = 0 Then
                 Cancel = True
              End If
End Sub

jimbolion

ps. oups Robert , étant en train de valider ma procédure, je n'ai pas vu que tu avais répondu au message

[RobiPMS]

Salut Jimbolion.

Autre façon de faire, parfaitement adaptée!

R.L.