PDA

Vollständige Version anzeigen : lezten 5 Datensätze in einem Endlos-Form anzeigen


Klausi
17.10.2000, 10:28
Hallo Leute ,
weiß jemand wie mann
die lezten 5 Datensätze in einem
Endlos-Formular anzeigt.
Danke im voraus

Armin
19.10.2000, 11:22
Hy Klausi,

kommt darauf an was Du machen willst. Wenn Du beim Öffnen die letzten 5 Datensätze anzeigen möchtes, aber trotzdem die Möglichkeit haben willst zu den anderen zu springen. Folgender Vorschlag:

Sub Form_Open(Cancel As Integer)
Dim x As Integer

DoCmd.GoToRecord acActiveDataObject, , acLast
For x = 1 To 4
DoCmd.GoToRecord acActiveDataObject, , acPrevious
Next x
End Sub

Wenn Du die letzten 5 filtern möchtest:

Dim x As Integer
Dim filtern As String
Dim dsgr As Recordset

Set dsgr = Me.RecordsetClone
dsgr.MoveLast

For x = 1 To 5
dsgr.MovePrevious
filtern = filtern & "Or [Index]=" & dsgr![Index] & " "

Next x

filtern = Right$(filtern, Len(filtern) - 3)
Me.Filter = filtern
Me.FilterOn = True

Der Fall das Du weniger als fünf Datensätze gespeichert hast ist hier nicht berücksichtigt

Ich hoffe das hilft Dir weiter