Discussion :

[Mehdi_S]

Bonjour,

dans un formulaire j'ai fait un bouton pour rechercher
un enregistrement :

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

Ca marche.
Ensuite j'ai fait un autre bouton pour rechercher l'enregistrement
suivant qui correspond au critere

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

J'avais déclaré les variables public:

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

mais quand j'appuie sur le bouton suivant il ne trouve rien
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]

[tee_grandbois]

Bonsoir,
je pense que dans ton premier code (juste avant le FindFirst) tu dois te repositionner au début de ton RecordsetClone avec :

Code :

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

rs.MoveFirst

[Mehdi_S]

Hello,

merci pour ton aide.
J'ai testé ta solution mais cela ne fonctionne pas
mais je la laisse car il est vrai que c'est mieux de se
positionner au début du recordset avant de commencer
la recherche.

J'avais positionné des Debug.print pour voir les valeurs
de ma variable critere et quand j'appuie sur le bouton pour
chercher l'enregistrement suivant j'ai bien les bonnes valeurs
pour cette variable.

Je continue à chercher !

[niclalex]

je supose que sur ton bouton "trouver suivant" tu redéclare bien ton rst (= me.recordsetclone) puis tui lui dommande avant de trouver l'enregistrement suivant de trouver le premier soit :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
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.movefirst    
    Rst.FindFirst critere 
    Rst.FindNext critere
    If Rst.NoMatch Then 
        MsgBox "Chantier inexistant" 
    End If 
End If 
    Me.Bookmark = Rst.Bookmark

[FRED.G]

je pense que dans ton premier code (juste avant le FindFirst) tu dois te repositionner au début de ton RecordsetClone avec :

Code :

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

rs.MoveFirst

Inutile d'utiliser la méthode movefirst car findFirst démmare toujours la recherche au premier enregistrement.

je supose que sur ton bouton "trouver suivant" tu redéclare bien ton rst (= me.recordsetclone) puis tui lui dommande avant de trouver l'enregistrement suivant de trouver le premier

Ben là il perd tout l'intérêt de son bouton suivant s'il redéfini à chaque fois son recordset...
Imagine qu'il y ait au moins 3 enregistrements qui correspondent au critère : dans ton code il ne verra jamais que le second.

La bonne solution est celle Mehdi_S qui déclare son recordset en variable publique. Mais une erreur se cache quelque part, suffit de bien chercher...

[FRED.G]

Suggestion : ne serait-il pas mieux de construire ton critère comme ceci :

Code :

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

critere = "[Nom Chantier] Like '*" & reponse & "*'"

:

[Mehdi_S]

Merci Nicalex et FRED.G pour les pistes et tee_grandbois aussi !

FRED.G: J'ai testé ton crititere: il fonctionne bien (comme le mien)
mais je ne trouve toujours pas l'enregistrement suivant.

Ensuite il s'avere que si j'ai 4 fois mon critere je dois cliquer
3 fois sur mon bouton suivant (et une fois sur le bouton recherche)
avant d'arriver a la msgbox "Pas d'autre chantier"
Donc mon code trouve bien les occurences du critere par contre le
probleme est que mon enregistrement trouvé par le bouton suivant ne
s'affiche pas dans mon formulaire.

Pour ce qui est de la déclaration de variable public: Moi je les ai déclarée
dans un module. Est ce qu c'est bien là qu'il faut le faire ?


à plus.

[Mehdi_S]

Désolé de vous avoir fait chercher pour rien

J'avais oublié de mettre:

Code :

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

Me.Bookmark = Rst.Bookmark

Donc ça donne:

Variables public déclarée dans un module:

Code :

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

1
2
3
Public Rst As Recordset
Public reponse As String
Public critere As String

Evenement "sur clic" du bouton rechercher:

Code :

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

1
2
3
4
5
6
7
8
9
10
Set Rst = Me.RecordsetClone
reponse = InputBox("Nom du Chantier ?", "Recherche par Numero", , 1000, 1000)
If reponse <> "" Then
critere = "[Nom Chantier] Like '*" & reponse & "*'"
Rst.FindFirst critere
If Rst.NoMatch Then
    MsgBox "Chantier inexistant"
End If
End If
    Me.Bookmark = Rst.Bookmark

Evenement "sur clic" du bouton suivant:

Code :

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

1
2
3
4
5
6
7
8
9
10
If reponse <> "" Then
 
        Rst.FindNext critere
        Me.Bookmark = Rst.Bookmark
        If Rst.NoMatch Then
        MsgBox "Pas d'autre chantier"
        reponse = ""
        critere = ""
        End If
End If

Encore merci pour votre aide.