1. Accueil
  2. Forum Codes-Sources
  3. Visual Basic
  4. Visual Basic 6

Error 3251 avec AbsolutePosition (Bis) [Résolu]

Signaler
Messages postés
111
Date d'inscription
dimanche 13 janvier 2019
Statut
Membre
Dernière intervention
21 septembre 2020
 -
Messages postés
2236
Date d'inscription
samedi 11 janvier 2014
Statut
Contributeur
Dernière intervention
21 septembre 2020
 -
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
Afficher la suite

2 réponses

Réponse 1 / 2
Messages postés
2236
Date d'inscription
samedi 11 janvier 2014
Statut
Contributeur
Dernière intervention
21 septembre 2020
 114
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/

Réponse 2 / 2
Messages postés
111
Date d'inscription
dimanche 13 janvier 2019
Statut
Membre
Dernière intervention
21 septembre 2020
 1
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
Signaler
Messages postés
2236
Date d'inscription
samedi 11 janvier 2014
Statut
Contributeur
Dernière intervention
21 septembre 2020
 114
Salut Notpa
Bien heureux que cela fonctionne !
Répondre Posez votre question