Error 3251 avec AbsolutePosition (Bis)Résolu

Question

Bonjour, 

J'ai déjà ouvert un sujet (et résolu) pour ce titre mais le problème est différent. J'ai parcouru le Net (y compris bien sûr CCM) mais je n'ai pas trouvé de raison à mon problème.
Mon code est le suivant :
Private Sub Form_Load()
Set db = OpenDatabase(App.Path & "\JAM.mdb")
Set tb_auteurs = db.OpenRecordset("auteurs")
' pour tests
Set tb = db.OpenRecordset("mots")
tb.AbsolutePosition = 1740
MsgBox tb("mots")
Exit Sub

On ne peut  pas plus simple. Mais sur le ligne TB.AbsolutePosition, j'ai le message suivant : 


Pouvez-vous me dire pourquoi cette commande ne fonctionne pas ? 

PS : l'enreg n° 1740 existe bien (il y a 8.000 enreg dans la base).

Merci d'avance !

Notpa

vb95 · Answer

Bonjour 
Regarde là peut-être : https://docs.microsoft.com/fr-fr/office/client-developer/access/desktop-database-reference/recordset-absoluteposition-property-dao
 Cela ne s'applique qu'à Access 2013 
sinon la solution pourrait être là : https://www.developpez.net/forums/d1452429/logiciels/microsoft-office/access/vba-access/manipulation-recordset-adodb-absolute-position-recordcount-move/

Notpa · Answer

Salut VB95 !

Merci pour les liens. Le premier ne m'apporte rien. Par contre, le deuxième spécifie : "Crée ton RecordSet sur la base de tes éléments préalablement triés sur les arguments qui te conviennent. ". J'ai donc codé mon OpenRecordSet comme suit :

Set tb = db.OpenRecordset("SELECT * FROM mots ORDER BY 'Absoluteposition'")

Et là, plus d'erreur ! Tordu ce truc, mais bon, ça fonctionne.

Merci VB95. Toujours de bon conseil, comme d'hab !

Notpa

Error 3251 avec AbsolutePosition (Bis)

2 réponses

Votre réponse