Database

du opretter en knap for hver \'bladrefunktion\' du skal bruge

eks.:
Private Sub Command1_Click()
  Data1.Recordset.MoveNext
End Sub

Private Sub Command2_Click()
  Data1.Recordset.MovePrevious
End Sub

Private Sub Command3_Click()
  Data1.Recordset.MoveFirst
End Sub

Private Sub Command4_Click()
  Data1.Recordset.MoveLast
End Sub

Det virker fint, men hvad hvis jeg vil springe længer end til næste og kortere end til sidste, hvordan gøres dette og kan det lade sig gøre?

Private Sub Command5_Click()
  Data1.Recordset.Move 4
End Sub

Så springer den 4 poster frem. Sæt - (minus) foran og den springer x antal poster tilbage.
Brug:
Label1.Caption = Data1.Recordset.AbsolutePosition & \" / \" & Data1.Recordset.RecordCount
til at se hvor du er i recordsettet...

kaffe