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