Dim rs As Recordset
Dim I As Long
 
Me.Height = 6795
Me.Width = 11640
 
Me.Move (frm_main.ScaleWidth - Me.Width) / 2, _
(frm_main.ScaleHeight - Me.Height) / 2
 
 
    'Füllen ListView
 
    liv_Histor.View = lvwReport
    liv_Histor.ColumnHeaders.Add , , "Ident - Nr."
    liv_Histor.ColumnHeaders.Add , , "Art"
    liv_Histor.ColumnHeaders.Add , , "Beschreibung"
    liv_Histor.ColumnHeaders.Add , , "Maschine"
    liv_Histor.ColumnHeaders.Add , , "Fehler"
    liv_Histor.ColumnHeaders.Add , , "Inventarnummer"
    liv_Histor.ColumnHeaders.Add , , "Fehlernummer"
    liv_Histor.ColumnHeaders.Add , , "Status"
    liv_Histor.ColumnHeaders.Add , , "Änderung am"
    liv_Histor.ColumnHeaders.Add , , "Änderung durch"
 
 
 
    ' Einlesen der Datenbank
 
 
    Set rs = db.OpenRecordset("SELECT * FROM historie")
 
    If rs.RecordCount > 0 Then
        I = 1
        While Not rs.EOF
            With liv_Histor
                .ListItems.Add , , (rs("EXIdent-Nummer")), , False
                .ListItems.Item(I).SubItems(1) = rs("Art")
                .ListItems.Item(I).SubItems(2) = rs("Beschreibung")
                .ListItems.Item(I).SubItems(3) = rs("Maschine")
                .ListItems.Item(I).SubItems(4) = rs("Fehler")
                .ListItems.Item(I).SubItems(5) = rs("MaschineNummer")
                .ListItems.Item(I).SubItems(6) = rs("FehlerNummer")
                .ListItems.Item(I).SubItems(7) = rs("Status")
                .ListItems.Item(I).SubItems(7) = rs("DatumStatAend")
                .ListItems.Item(I).SubItems(7) = rs("StatAendVon")
 
            rs.MoveNext
            I = I + 1
            lbl_historiesfound.Caption = "Es wurden " & I - 1 & " Einträge" & _
              "gefunden."
        Wend
    Else
 
    End If
 
    rs.Close
    Set rs = Nothing

Liebe Gr??e

Christina

--------------------------------
Wo VB-Anf?ngerin ist *gg*