un return fantôme

Bonjour a tous
Drôle d'histoire. Dans le code ci-dessous

Lorsque je tape des caractères dans la textbox 'QueryClient' il m'affiche le msgbox a chaque lettre que je tapes, hors c'est la seul méthode liée au 'QueryClient' avec le KeyPress.
Pourquoi....

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Public Sub Txt_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles QueryClient.KeyPress, TxtAdresse.KeyPress, _ TxtadresseSuite.KeyPress, TxtBanque.KeyPress, TxtComplement.KeyPress, TxtCp.KeyPress, TxtEMail.KeyPress, TxtFax1.KeyPress, TxtFax2.KeyPress, TxtGsm.KeyPress, TxtIban.KeyPress, _ TxtNom.KeyPress, TxtRemarques.KeyPress, TxtTel1.KeyPress, TxtTel2.KeyPress, TxtTva.KeyPress, TxtVille.KeyPress, CbPays.KeyPress, CbSocial.KeyPress, DgVilles.KeyPress   If Asc(e.KeyChar) = Keys.Return Then e.Handled = True   End Sub   Public Sub QueryClient_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles QueryClient.KeyDown   If e.KeyCode = Keys.Return Then Msgbox("coucou") End Sub

---

Pour info en ajoutant un msgbox, cela annule le RETURN, mais comment savoir d'ou il vient

Code:

---

1 2 3 4 5 6 7 8 9

Public Sub QueryClient_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles QueryClient.KeyDown   If e.KeyCode = Keys.Return Then LoadDgClient("SELECT * FROM Clients WHERE Nom LIKE '%" & QueryClient.Text & "%' ORDER BY Nom") MsgBox(e.KeyCode)   End If   End Sub

---

Désolé je vient de répondre a ma question

voici

Code:

---

1 2 3 4 5 6 7 8 9 10

Public Sub QueryClient_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles QueryClient.KeyDown   If e.KeyCode = Keys.Return Then   LoadDgClient("SELECT * FROM Clients WHERE Nom LIKE '%" & QueryClient.Text & "%' ORDER BY Nom") e.Handled = True   End If   End Sub

---