Bonjour,

Voici le code pour mon champ qui me supprime une référence incorrecte dans le champ.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
Private Sub Reference_client_AfterUpdate()
If DCount("Reference_client", "tbl_clients", "Reference_client=" & Reference_client) = 0 Then
  MsgBox "Cette référence client n'existe pas !", vbExclamation, "Référence client incorrecte"
Me.Reference_client = Empty
Me.Reference_client.SetFocus
End If
End Sub
Le problème est que lorsque je click sur le OK de la MsgBox, il supprime bien la référence incorrecte mais il met le Focus sur le champ suivant.

Comment forcer à garder le Focus sur le champ ?

Merci