Problème de recordSet avec Access 2003
salut à tous,
je programme en VBA sous access 2003.
J'ai écrit un bout de code juste pour afficher le numéro du premier enregistrement, mais au résultat j'ai un numéro d'un autre enregistrement .Voiçi le code:
Dim db As DAO.Database 'pointeur sur la base de données
Dim rstDatabase As DAO.Recordset 'pointeur sur la table
Set db = CurrentDb
Set rstDatabase = db.OpenRecordset("ANCIEN_DATABASE")
MsgBox "premier numero" & rstDatabase!NUMERO
Même quand j'ajoute rstDatabase.MoveFirst, ça ne change rien.
Merçi d'avance pour votre aide
je programme en VBA sous access 2003.
J'ai écrit un bout de code juste pour afficher le numéro du premier enregistrement, mais au résultat j'ai un numéro d'un autre enregistrement .Voiçi le code:
Dim db As DAO.Database 'pointeur sur la base de données
Dim rstDatabase As DAO.Recordset 'pointeur sur la table
Set db = CurrentDb
Set rstDatabase = db.OpenRecordset("ANCIEN_DATABASE")
MsgBox "premier numero" & rstDatabase!NUMERO
Même quand j'ajoute rstDatabase.MoveFirst, ça ne change rien.
Merçi d'avance pour votre aide
2 réponses
-
ModérateurSalut,
ACCESS ne range pas les enregistrements dans l'ordre croissant des clés...
Si tu veux le premier enregistrement (celui avec la clé primaire la plus faible, ou sur un index particulier), alors il faut utiliser la proriété index :Set rstDatabase = db.OpenRecordset("ANCIEN_DATABASE") rstDatabase.Index = "PrimaryKey" ' ou nom de la colonne indexée rstDatabase.MoveFirstCa irait mieux ?
-
aide moi pour enrigistrer l'access
