Discussion :

[Siu Lim Tao]

Bonjour,

J'ai un formulaire Access, dont la source est :

Code sql :
SELECT Table1.tChamps1 FROM Table1;


Dans cette table1, j'ai 5 enregistrements pour le champ tChamps1.
Je souhaite, à partir du formulaire, faire une recherche en tapant un mot dans un controle nommé ici ctlATrouver.
Le pb est que la recherche fonctionne, mais ne trouve jamais le 1er enregistrement : elle balaye uniquement les 4 derniers enregistrements.

Ci dessous le code utilisé :

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
Sub btnRecherche_Click()
   Dim rst As DAO.Recordset
   Dim varRecherche As String
 
   varRecherche = Nz(Me.ctlATrouver)
 
   Set rst = Me.RecordsetClone
 
   rst.FindNext "[tChamps1]like '*" & varRecherche & "*'"
 
    Me.Bookmark = rst.Bookmark
 
      If rst.NoMatch Then
         MsgBox "Recherche terminée.", vbInformation
         rst.MoveFirst
      End If
 
   rst.Close
   Set rst = Nothing
 
End Sub

Quelqu'un pourrait il m'éclairer ?

Merci d'avance !

++

[azertix]

Ben ... FindFirst ?

FindFirst recherche le premier enregistrement correpondant aux critères paramétrés. Quand FindFirst ne trouve aucun enregistrement correspondant, il se place sur le premier enregistrement de la table.

[Siu Lim Tao]

euh, comment dire... ...

[azertix]

T'inquiète, ya pas de bug, tu es là pour apprendre
Tu as résolu ton problème ?

[Siu Lim Tao]

Oui, merci ça a fait tilt quand tu m'as donné ta réponse ! Voici mon nouveau code : celui là permet de balayer tous mes enregistrements. Après faut que je teste tout ça davantage mais c'est cool j'ai résolu mon problème !!

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
23
Sub btnRecherche_Click()
   Dim rst As DAO.Recordset
   Dim varRecherche As String
 
   varRecherche = Nz(Me.ctlATrouver)
 
   Set rst = Me.RecordsetClone
 
   rst.FindNext "[tChamps1]like '*" & varRecherche & "*'"
 
   Me.Bookmark = rst.Bookmark
 
      If rst.NoMatch Then
         rst.FindFirst "[tChamps1]like '*" & varRecherche & "*'"
         Me.Bookmark = rst.Bookmark
         MsgBox "Recherche terminée.", vbInformation
         rst.MoveFirst
      End If
 
   rst.Close
   Set rst = Nothing
 
End Sub

A bientôt !

[azertix]

Avec plaisir
A+