Bonjour,
dans un formulaire j'ai fait un bouton pour rechercher
un enregistrement :
Ca marche.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11 Set Rst = Me.RecordsetClone reponse = InputBox("Nom du Chantier ?", "Recherche par Nom", , 1000, 1000) If reponse <> "" Then critere = "[Nom Chantier] Like '" & reponse & "'" Debug.Print critere Rst.FindFirst critere If Rst.NoMatch Then MsgBox "Chantier inexistant" End If End If Me.Bookmark = Rst.Bookmark
Ensuite j'ai fait un autre bouton pour rechercher l'enregistrement
suivant qui correspond au critere
J'avais déclaré les variables public:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10 If reponse <> "" Then Debug.Print reponse Debug.Print critere Rst.FindNext critere If Rst.NoMatch Then MsgBox "Pas d'autre chantier" reponse = "" critere = "" End If End If
mais quand j'appuie sur le bouton suivant il ne trouve rien
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3 Public reponse As String Public critere As String Public Rst As Recordset
si j'appuie à nouveau il me met la msg box "Pas d'autre chantier "
Je ne comprend pas pourquoi cela ne fonctionne pas
comment faire pour parcourir les enregistrement qui correspondent
à mon critere :[/b]
Partager