[AC-2007] Recordset, findfirst, moveprevious, movenext [Résolu]

[fclus]

Je galère avec une technique élémentaire
J'ouvre un formulaire qui s'appuie sur une table
Sur l'événement ouverture, je déclare mon recordset

Code :

1
2
3
4
Dim dbmadb As DAO.Database
Set dbmadb = CurrentDb
Dim RecUser As DAO.Recordset
Set RecUser = dbmadb.OpenRecordset("TblUser", dbOpenDynaset

)

J'ai ajouté des boutons "Fiche précédente", "Fiche suivante" et une liste déroulante affichant les noms

Sur le bouton "Fiche précédente", je fais un RecUser.MovePrevious mais il ne reconnait pas mon recordset

Idem sur le bouton "Fiche suivante"

Sur l'événement "Après mise à jour" de ma liste déroulante, je veux afficher la fiche sélectionnée :

Code :

RecUser.FindFirst (RecUser!auto = me.activecontrol.column(1))

Mais qq chose m'échappe

Merci pour votre aide

[fclus]

J'ai avancé

Je déclare mon recordset uniquement sur "Fiche précédente" et "Fiche suivante"

Code :

1
2
3
set RecUser as DAO.RecordSet
RecUser = me.recordsetclone
RecUser.MoveNext

C'est ok

Mais mon FindFirst sur l'événement "après mise à jou" de ma liste déroulante ne marche pas

Code :

1
2
3
Dim RecUser As DAO.Recordset
Set RecUser = Me.Recordset
RecUser.FindFirst (RecUser!usauto = Me.CmbUser.Column(1))

[loufab]

Bonjour,

Je te conseille vivement de lire le tuto sur DAO avant de te lancer. La syntaxe de cette bibliothèque ne s'improvise pas !

Ceci par exemple c'est un peu n'importe quoi.

Code :

1
2
3
set RecUser as DAO.RecordSet
RecUser = me.recordsetclone
RecUser.MoveNext

il faut écrire ceci.

Code :

1
2
3
dim RecUser as DAO.RecordSet
set RecUser = me.recordsetclone
RecUser.MoveNext

Idem pour la syntaxe du findfirst.

Code :

RecUser.FindFirst (RecUser!usauto = Me.CmbUser.Column(1))

Un Findfirst est composé d'une condition Where valide. Soit un nom de champ à comparer à une valeur. Ici tu compare la valeur de contenu dans le champ usauto avec la valeur de la liste cmbuser.

Cordialement,

[fclus]

Bonjour Fabrice

Merci pour ton aide
Ma syntaxe pour le moveprevious et movenext était correcte. J'ai glissé en la recopiant. J'aurais du faire un copier-coller

Par contre, pour le findfirst, c'est bien ce que je fais. je compare le champ usauto de ma table TblUser avec la 2ème colonne de ma liste déroulante CmbUser. Je ne vois pas ce qui coince

[fclus]

Mon findfirst fonctionne mais l'objectif est d'afficher l'enregistrement trouvé par le findfirst dans mon formulaire. Je reviens toujours sur le premier

[fclus]

J'ai finalement trouvé. Pour ceux que ça intéresse :

Code :

1
2
3
4
5
6
7
8
9
10
Dim rst As dao.Recordset
Set rst = Me.RecordsetClone
rst.FindFirst "usauto = " & Me.CmbUser.Column(1)
If rst.NoMatch Then
MsgBox "Enregistrement introuvable"
Else
Me.Bookmark = rst.Bookmark
End If
Set rst = Nothing
Me.CmbUser = Null

[fclus]

La suite pour se déplacer avec des boutons CmdPrevious et CmdNext :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Private Sub CmdNext_Click()
On Error GoTo erreur
DoCmd.GoToRecord , , acNext
erreur:
Select Case Err
Case 0
 
Case 2105
MsgBox "Fin de fichier atteint"
DoCmd.GoToRecord , , acLast
Case Else
MsgBox Err.Number & Chr(13) & Err.Description
End Select
End Sub
 
Private Sub CmdPrevious_Click()
 
On Error GoTo erreur
DoCmd.GoToRecord , , acPrevious
erreur:
Select Case Err
Case 0
 
Case 2105
MsgBox "Début de fichier atteint"
DoCmd.GoToRecord , , acFirst
Case Else
MsgBox Err.Number & Chr(13) & Err.Description
End Select
End Sub

[loufab]

Envoyé par fclus

J'ai finalement trouvé. Pour ceux que ça intéresse :

Ceux que ça interesse pourront consulter le tuto sur DAO.