Discussion :

[vcattin]

Bonjour,

Voilà mon problème:

J'ai un recordset rst que j'aimerais mettre à jour en utilisant rst.Requery. Avant de faire appelle à Requery, je parcours chacun des enregistrements de la manière suivante:

Code :

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

1
2
3
4
5
While Not rst.EOF
        ...
        rst.MoveNext
Wend
rst.Requery

J'ai volontairement omis qq lignes car j'ai remarqué que même sans celles-ci mon problème survient.

Bref le problème c'est qu'en appelant .Requery sur mon recordset après la boucle, mon recordset ne contient plus qu'un seul enregistrement, le premier, alors qu'il devrait en contenir plusieurs...

Quelqu'un a-t-il une idée d'où ça pourrait venir?

Merci d'avance

[Faw]

Salut,
he oui, maintenant on va te demander les fameuses lignes omises et la ligne
qui définit la source de données de ton recordset

[vcattin]

Je m'y attendais mais c'est un peu compliqué... Les lignes qui font les modifications font appel a des fonctions que j'ai implémenté moi-même...

Par contre, j'ai réussi à reconstituer le même problème sur une table Test toute simple. Voilà le code que j'ai mis dans la fonction Load du formulaire:

Code :

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

1
2
3
4
5
6
Private Sub Form_Load()
    Set rst = CurrentDb.OpenRecordset("SELECT * FROM Test")
    Set Me.Recordset = rst
    rst.Requery
    MsgBox rst.RecordCount
End Sub

Le nombre d'enregistrement renvoyé est 1 alors qu'il y en a 5 dans ma table, bizarre non?

A noter que j'ai même pas eu besoin de mettre la boucle de parcours des enregistrements, le problème ne vient donc pas de là...

[Faw]

je ne vois pas à quoi sert le rst.requery c'est au niveau du form que tu veux
appliquer la nouvelle source? Essaye (si je suis dans le vrai )

Code :

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

1
2
3
4
Set rst = CurrentDb.OpenRecordset("SELECT * FROM Test")
    Set Me.Recordset = rst
    me.requery  ' simplement
    MsgBox rst.RecordCount

d'après ce que je comprends.

[vcattin]

Je peux même encore plus simplifier le problème:

Code :

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

1
2
3
4
Private Sub Form_Load()
    Set rst = CurrentDb.OpenRecordset("SELECT * FROM Test")
    MsgBox rst.RecordCount
End Sub

Même sans assigner le recordset, le message me retourne 1 seul enregistrement... C'est apparemment la requête qui pose problème. Dois-je choisir un type de recordset spécifique pour que ça marche? Bien sûr dans ce cas j'aurais pu ouvrir la table en utilisant un recodset de type dbOpenTable mais dans mon application c'est pas aussi simple...

[Faw]

Code :

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

1
2
3
4
5
Private Sub Form_Load()  
Set rst = CurrentDb.OpenRecordset("SELECT * FROM Test")  
rst.movelast
MsgBox rst.RecordCount
 End Sub

pour les autres codes l'assignation de me.recordset ne me parait pas correcte.
Que veux-tu faire exactement. A explorer la piste de la propriété RecordSource du formulaire...

[vcattin]

Bien vu!

C'est effectivement le .Requery qui posait problème dans mon application. Je l'ai appelé sur le formulaire lui-même et ça fonctionne!

En ce qui concerne le formulaire de test, c'est effectivement le .MoveLast qui manquait. Bizarre tout de même qu'il faille l'utiliser pour que .RecordCount retourne le bon nombre d'enregistrement non? Dans tous les cas le formulaire contient bien tous les enregistrements si on utilise .Requery sur le formulaire comme tu me l'as indiqué, c'est le principal.

Merci d'avoir partagé tes lumières Faw

[Faw]

En fait il suffit de se positionner sur le recordset. Tu as le même résultat avec

Code :

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

rst.movefirst

[vcattin]

C'est bon à savoir!

Merci