Lecture table access selon clé primaire

[kimlee]

Bonjour,
Je débute avec access et vba 2003.
J'ai une table qui possède une clé primaire composée d'un numéro (num) et d'une année (an).
Je voudrais la lire dans cet ordre mais, mais elle est lue, quels que soient mes différents essais, dans l'ordre de création.
Voici mon code (enfin une des multiples versions qui ne fonctionnent pas ...)

Code :

1
2
3
4
5
6
7
8
9
10
11
 
Set rs = db.OpenRecordset("TabStat", dbOpenDynaset)
rs.Index = "num;an"
With rs
   If .RecordCount <> 0 Then
      .MoveFirst
      Do While Not .EOF 
        MsgBox .Fields("an")
        .MoveNext
      Loop
   End If

Je suppose que c'est très simple pour un spécialiste de VBA Access. Aussi, si quelqu'un veut bien me donner un petit coup de pouce, qu'il en soit remercié d'avance.
Kim

[nico84]

Bonsoir,

Je ne connais pas .Index... En général je fais comme ça :

Code :

1
2
3
4
5
Set rs = db.OpenRecordset("select * from TabStat order by num,an", dbOpenDynaset)
While Not rs.EOF 
    MsgBox rs!an
    rs.MoveNext
wend

[vodiem]

salut kimlee et nico84,

Envoyé par F1

Les enregistrements renvoyés d'un objet Recordset de type table peuvent être classés uniquement par les index définis pour l'objet TableDef sous-jacent. Pour classer les enregistrements dans un autre ordre, vous pouvez ouvrir un objet Recordset de type feuille de réponse dynamique, instantané ou avant uniquement à l'aide d'une instruction SQL (instruction/chaîne SQL : expression qui définit une commande SQL, telles que SELECT, UPDATE ou DELETE, et qui inclut des clauses telles que WHERE et ORDER BY. Les instructions/chaînes SQL sont généralement utilisées dans des requêtes et dans des fonctions de regroupement.) avec une clause ORDER BY.

comprendre:
"de type table" : dbOpenTable + index
"de type feuille de réponse dynamique, instantané ou avant uniquement" : dbOpenDynaset, dbOpenSnapshot, dbOpenForwardOnly + "ORDER BY"

[robyseb]

est-ce ce dont tu voulais faire ....

Code :

1
2
3
4
5
6
7
8
9
10
Set rs = db.OpenRecordset("TabStat", dbOpenDynaset)
rs.Index = "num;an"
With rs
   If .RecordCount <> 0 Then
      .Movelast
      Do While Not .BOF 
        MsgBox .Fields("an")
        .Moveprevious
      Loop
   End If