affichage MSF 10 derniers enregistrements

Bonjour,
 
notre code et le MSF fonctionne trés bien mais je voudrais que le                                      MSF affiche toujours les 10 derniers enregistrements je ne comprends                                    la procédure je vous demande de nous aider.

Private Sub affiche()
Dim c As Integer
Call connect
titre = Array("Code", "Date", "Heure", "Montant")
taille = Array(800, 1300, 900, 1000)
For i = 0 To 3
msf.ColWidth(i) = taille(i)
msf.TextMatrix(0, i) = titre(i)
Next
Set rs = New ADODB.Recordset
rs.Open "select * from vente", cn

i = 1
While (Not rs.EOF)
    If Not IsNull(rs) Then
    msf.TextMatrix(i, 0) = rs(0)
    msf.TextMatrix(i, 1) = rs(1)
    msf.TextMatrix(i, 2) = rs(2)
    msf.TextMatrix(i, 3) = rs(3)
   End If
    i = i + 1
    rs.MoveNext
Wend
rs.Close
cn.Close
msf_Click
End Sub

Bonsoir, Il faut y aller à reculant ! ... rs.Open "select * from vente", cn rs.MoveLast i = 10 While (Not rs.BOF) And i>1 If Not IsNull(rs) Then msf.TextMatrix(i, 0) = rs(0) msf.TextMatrix(i, 1) = rs(1) msf.TextMatrix(i, 2) = rs(2) msf.TextMatrix(i, 3) = rs(3) End If i = i - 1 rs.MovePrevious Wend

Sinon, si tu veux conserver l'ordre, regarde du côté de la propriété TopRow

MPi²
Pour ceux qui programment sous Office, n'oubliez pas qu'il existe un forum dédié à ces applications VBA....... ICI

Attention quand même à rs(0), rs(1)...etc. Je ne connais pas cette écriture! Mets des rs.Fields(0), rs.Fields(1), etc...à la place.

Bonsoir MPi.

ce topic est encore sur la page d'accueil, pas la peine de flooder :)
doublon supprimé

Pour que l'ensemble de lignes puisse prendre en charge les récupérations arriéres il faut que ton rs soit de type Dynamic.

... Y'en a même qui disent qu'ils l'ont vu voler.

/PRE>

rs.Open "select * from vente", cn , adOpenDynamic, adLockOptimistic

PS: s'il te plait ! Arrêtes tes messages perso..
ça me parait plus constructif de continuer ici
que de demander la suite par MP.

... Y'en a même qui disent qu'ils l'ont vu voler.

/PRE>

bonjour, j'ai le même probleme, j'ai donc suivi vos indication mais j'ai une errreur :
il me dit que adOpenDynamic n'est pas déclaré

Utilises-tu ADO, DAO ou les 2 ?
As-tu des références à l'un ou l'autre ou les 2 dans ton programme ?

Un bout de code serait peut-être nécessaire pour comprendre d'où provient le problème (?)

MPi²
Pour ceux qui programment sous Office, n'oubliez pas qu'il existe un forum dédié à ces applications VBA....... ICI