Discussion :

[mike1310]

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]

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]

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

[mike1310]

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

[mike1310]

Tu avais raison aussi Lou Pitchoun ... J'ai pas pu m'empecher de tester ...

C'est sur le KeyUp qu'il fallait faire ... Merci

[Domi2]

Bonjour,

Je comprend pas trop pourquoi

Ben tu sélectionnes "Text", tu fais F1, et tu verras que "Value" n'est dispo qu'après l'enregistrement du champ...

Bon dév !

Domi2

[Lou Pitchoun]

Je ne répondais pas vraiment à ton problème
Je te disais juste pourquoi ça ne fonctionnait qu'à la seconde pression

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

[Lou Pitchoun]

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.