Data: code

• Bij het inladen
  Data1.DatabaseName = App.Path & "\" & "data.xls"
  
• De gebruiker gaat door de dataabse, en we grijzen de knoppen die niet kunnen gebruikt worden:
  Private Sub Data1_Reposition()
  If Data1.Recordset.BOF Then
  cmdVorige.Enabled = False
  Else
  cmdVorige.Enabled = True
  End If
  If Data1.Recordset.EOF Then
  cmdVolgende.Enabled = False
  Else
  cmdVolgende.Enabled = True
  End If
  End Sub
  
• De navigatie kunnen we zo doen:
  Private Sub cmdEerste_Click()
  Data1.Recordset.MoveFirst
  End Sub
  
  Private Sub cmdLaatste_Click()
  Data1.Recordset.MoveLast
  End Sub
  
  Private Sub cmdNew_Click()
  Data1.Recordset.AddNew
  End Sub
  
  Private Sub cmdVolgende_Click()
  Data1.Recordset.MoveNext
  End Sub
  
  Private Sub cmdVorige_Click()
  Data1.Recordset.MovePrevious
  End Sub

[VB Web] - [hlrnet] - [copyright]