Dim Tabelle As Recordset
Dim dbFile As String
Dim Datenbank As Database
Dim DB As Database
 
Dim Index As New Index
Dim i As Integer
Option Base 1
 
Private Sub Command1_Click()
 
 
 
Tabelle.AddNew
For i = 1 To 7
  Tabelle(i) = Text1(i).Text
Next i
 
Tabelle.Update
 
For i = 0 To 7
    Text1(i) = ""
Next i
End Sub
 
Private Sub Command2_Click()
If Tabelle.RecordCount > 0 And Not Tabelle.BOF Then
  Tabelle.MoveFirst
  Text1(0).Text = Tabelle("ArtNr")
  Text1(1).Text = Tabelle("ArtNr")
  Text1(2).Text = Tabelle("Artikel")
  Text1(3).Text = Tabelle("IstBestamd")
  Text1(4).Text = Tabelle("Meldebestand")
  Text1(5).Text = Tabelle("Höchstbestand")
 
  Else
  Exit Sub
  End If
 
End Sub
 
Private Sub Command3_Click()
 
If Tabelle.RecordCount > 0 And Not Tabelle.EOF Then
    Tabelle.MovePrevious
  Text1(0).Text = Tabelle("ArtNr")
  Text1(1).Text = Tabelle("ArtNr")
  Text1(2).Text = Tabelle("Artikel")
  Text1(3).Text = Tabelle("IstBestamd")
  Text1(4).Text = Tabelle("Meldebestand")
  Text1(5).Text = Tabelle("Höchstbestand")
  Else
    Exit Sub
End If
 
 
End Sub
 
Private Sub Command4_Click()
If Tabelle.RecordCount > 0 And Not Tabelle.EOF Then
Tabelle.MoveNext
  Text1(0).Text = Tabelle("ArtNr")
  Text1(1).Text = Tabelle("ArtNr")
  Text1(2).Text = Tabelle("Artikel")
  Text1(3).Text = Tabelle("IstBestamd")
  Text1(4).Text = Tabelle("Meldebestand")
  Text1(5).Text = Tabelle("Höchstbestand")
  Else
  Exit Sub
End If
End Sub
 
 
Private Sub Command5_Click()
 
WB.Recordset.MoveLast
  Text1(0).Text = Tabelle("ArtNr")
  Text1(1).Text = Tabelle("ArtNr")
  Text1(2).Text = Tabelle("Artikel")
  Text1(3).Text = Tabelle("IstBestamd")
  Text1(4).Text = Tabelle("Meldebestand")
  Text1(5).Text = Tabelle("Höchstbestand")
  Tabelle.Update
 
End Sub
 
Private Sub Command7_Click()
Tabelle.Delete
End Sub
 
Private Sub Command8_Click()
 
For i = 1 To 7
    Text1(i) = ""
Next i
 
Tabelle.Close
 
Dim Index As New Index
 
Index.Name = "Name"
Index.Primary = False
Index.Unique = False
Index.Fields = "Name"
 
DB.TableDefs("L1").Indexes.Append Index
Set Index = Nothing
 
  Text1(0).Text = Tabelle("ArtNr")
  Text1(1).Text = Tabelle("ArtNr")
  Text1(2).Text = Tabelle("Artikel")
  Text1(3).Text = Tabelle("IstBestamd")
  Text1(4).Text = Tabelle("Meldebestand")
  Text1(5).Text = Tabelle("Höchstbestand")
End Sub
 
 
 
Private Sub Form_Load()
 
 
For i = 0 To 7
  Text1(i) = ""
Next i
 
dbFile = "C:\Projektarbeit\datenbank.mdb"
Set DB = Workspaces(0).OpenDatabase(dbFile, False, False)
Set Tabelle = DB.OpenRecordset("L1")
End Sub