Private Sub MnDelete_Click()
SQL1 = "SELECT * FROM Ausleihe Where Nr=" & ID
Set Tabelle1 = Db.OpenRecordset(SQL1)
Tabelle1.Edit
  Tabelle1("Bis") = Date
  Tabelle1.Update
Set D = CreateObject("scripting.filesystemobject")
  BatDatei = App.Path + "\ausleihe.txt"
  If D.FileExists(BatDatei) Then
  Set File = D.OpenTextFile(BatDatei, 8)
  Else
  Set File = D.CreateTextFile(BatDatei)
  End If
 
 While Not Tabelle1.EOF
    If ID > 100 Then
    erg = Tabelle1("Nr") & "     " & Tabelle1("Titel") & Space(55 - Len( _
      Tabelle1("Titel"))) & Tabelle1("Name") & Space(20 - Len(Tabelle1( _
      "Name"))) & Tabelle1("Am") & Space(12 - Len(Tabelle1("Am"))) & Tabelle1( _
      "Bis")
    ElseIf ID > 10 Then
    erg = " " & Tabelle1("Nr") & "     " & Tabelle1("Titel") & Space(55 - Len( _
      Tabelle1("Titel"))) & Tabelle1("Name") & Space(20 - Len(Tabelle1( _
      "Name"))) & Tabelle1("Am") & Space(12 - Len(Tabelle1("Am"))) & Tabelle1( _
      "Bis")
    Else
    erg = "  " & Tabelle1("Nr") & "     " & Tabelle1("Titel") & Space(55 - Len( _
      Tabelle1("Titel"))) & Tabelle1("Name") & Space(20 - Len(Tabelle1( _
      "Name"))) & Tabelle1("Am") & Space(12 - Len(Tabelle1("Am"))) & Tabelle1( _
      "Bis")
    End If
    File.WriteLine (erg)
    Tabelle1.Delete
    Tabelle1.MoveNext
  Wend
File.Close
 
SQL = "Select * From Ausleihe where Name= '" & cmbName.Text & "'"
Set Tabelle = Db.OpenRecordset(SQL)
 
 If Tabelle.RecordCount = 0 Then
 MsgBox "Hurra"
 AusleihList.cmbName.Clear
 
SQL = "SELECT Name FROM Ausleihe order by Name "
Set Tabelle1 = Db.OpenRecordset(SQL)
 
If Tabelle1.RecordCount > 0 Then
  While Not Tabelle1.EOF
    If Tabelle1("Name") = Name Then
    Else
        AusleihList.cmbName.AddItem Tabelle1("Name")
    End If
    Name = Tabelle1("Name")
    Tabelle1.MoveNext
  Wend
End If
 
AusleihList.MSFlexGrid1.Visible = False
 End If
 
AusleihList.Data1.Refresh
 
End Sub