Discussion :

[Salsaboy60]

Bonsoir,

J'ai écrit un petit morceau code en VBA pour replacer le cursur sur le champs N° fournisseur, quand l'utilisateur veut quiter ce champs sans l'avoir rempli.

Voici mon code

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub N°_Fournisseur_LostFocus()
   Dim Control As Variant
    Control = Me.N°_Fournisseur
 
  If IsNull(Control) Then
 
    MsgBox "Ce champ ne peut pas être vide.", vbExclamation, "Attention"
    Me.N°_Fournisseur.SetFocus
  End If
End Sub

Le message d'erreur est bien afficher, mais le cursur ne se positionne pas sur le champs N° Fournisseur mais sur le prochain champs.

Qu'est ce que je fait mal??

Merci pour vos reponses.

Hans

[Pierre Fauconnier]

Bonjour

Gère plutôt l'événement Sur sortie, car tu disposeras de Cancel pour annuler la sortie

Code :

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

1
2
3
4
5
6
Private Sub Modifiable0_Exit(Cancel As Integer)
    If IsNull(Modifiable0) Then
        MsgBox "ne peut être vide"
        Cancel = True
    End If
End Sub

[Salsaboy60]

Merci Pierre,

ça fonctionne super bien.

hans