Problème envoi formulaire sur touche entrer

**mike1310** · 05/03/2009, 14h34

Bonjour,

me voila avec un petit problème vba. J'ai récupérer du code dans la faq un peu de partout pour obtenir ceci :

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
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
    Case vbKeyReturn
        Dim txtS As String
        If Not IsNull(txtSearch.Value) Then
            txtS = txtSearch.Value
            txtS = Replace(txtS, "'", "''")
            SQL = "SELECT * from entites where nom like '*" & txtS & "*' or Description like '*" & txtS & "*'"
        Else
            SQL = "entites"
        End If
        Me.RecordSource = SQL
        If (Me.Recordset.RecordCount = 0) Then
            MsgBox ("Aucuns résultats trouvés")
            Me.RecordSource = "entites"
        End If
    Case Else
      Exit Sub
  End Select
 'Ensuite on annule l'effet normal de la touche
  KeyCode = 0
End Sub

ceci fonctionne mais au bout du deuxième appuie sur la touche entrer.
Exemple : je suis dans mon formulaire, je tape quelque chose dans mon champ recherche, je fais entrer : rien ne se passe, je refait entrer et la ça me lance la recherche ... En fait la première fois que je fait entrer j'ai mon txtSearch.Value qui vaut null et j'aimerais bien savoir pourquoi ?

Si quelqu'un à une idée ... Je vous en remercie d'avance

**mike1310** · 05/03/2009, 15h39

Personne pour m'aider ?

Ce que je ne comprend pas c'est pourquoi le résultat est décalé d'une validation par le bouton recherche alors que lors du clic tout fonctionne convenablement ..

J'ai en fait l'impression que txtSearch.Value récupère la valeur précédente.

**Domi2** · 05/03/2009, 16h08

Bonjour,

Si j'ai bien compris, tu as un champ "Recherche" indépendant.

Tu saisis quelque chose puis tu valides ?

Essaie avec

Code :

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

txtSearch.Text

Domi2

**Lou Pitchoun** · 05/03/2009, 16h10

Salut,

C'est relativement "simple".

La première pression sur entrée a pour effet de quitter le champ. A la seconde pression, le code s'exécute.

Donc, tu devrais placer ta procédure sur l'évènement keydown du champ si tu souhaites qu'elle s'exécute de suite après la perte du focus.

**mike1310** · 05/03/2009, 16h13

MDR ... C'est exactement ça la réponse !!!

Je comprend pas trop pourquoi mais ça marche nikel avec txtSearch.Text

Merci beaucoup Domi2 ...

Ps: pour Lou pitchoun, c'est vrai que ça pourrais le faire mais j'ai pas essayé vu que la réponse de domi me satisfait à 100%

Merci à vous 2