'---Tagesumsatz-----
dbFile = App.Path + "\Bericht.mdb" 'Datenbank auswählen
    Set db = Workspaces(0).OpenDatabase(dbFile, False, False) 'Öffnen der 
    ' Datenbank
 
 
    SQL = "SELECT * From Bericht Where Datum" 'SELECT ... - FROM Abschnitt
 
 
 
    Dim strDatum As String 'Datum in Variable vom Typ String speichern
 
    strDatum = Date 'Der Variable [strDatum] das Datum zuweisen
 
    'LIKE Abschnitt
    SQL = SQL + " Like '" & strDatum & "'"
 
    SQL = SQL + " ORDER BY Datum"
 
 
    Set Rs = db.OpenRecordset(SQL) 'Öffnen der Datenbank auf Baisis einer SQL - 
    ' Abfrage
 
    datAbrechnung.RecordSource = SQL
    datAbrechnung.Refresh
 
        While Not Rs.EOF 'solange Recordset nicht am Ende
 
            Umsatz
 
        Wend

'---Monatsumsatz------
' Alle Termine eines bestimmten Zeitraums ermitteln
    sDatumVon = CDate("01." & Month(Now) & "." & Year(Now))
    sDatumBis = CDate("31." & Month(Now) & "." & Year(Now))
 
    dbFile = App.Path + "\Bericht.mdb" 'Datenbank auswählen
    Set db = Workspaces(0).OpenDatabase(dbFile, False, False) 'Öffnen der 
    ' Datenbank
 
 
' SQL-Anweisung
SQL = "SELECT * FROM Bericht WHERE Datum BETWEEN #" & _
    Format$(sDatumVon, "m-d-yy") & "# AND #" & _
    Format$(sDatumBis, "m-d-yy") & "#"
 
 
 
SQL = SQL + "ORDER BY Datum"
 
 
        Set Rs = db.OpenRecordset(SQL) 'Öffnen der Datenbank auf Baisis einer 
        ' SQL - Abfrage
 
        datAbrechnung.RecordSource = SQL
        datAbrechnung.Refresh
 
            While Not Rs.EOF 'solange Recordset nicht am Ende
 
              Umsatz
 
            Wend

'---Jahresumsatz-----
' Alle Termine eines bestimmten Zeitraums ermitteln
    sDatumVon = CDate("01.01." & Year(Now))
    sDatumBis = CDate("31.12." & Year(Now))
 
    dbFile = App.Path + "\Bericht.mdb" 'Datenbank auswählen
    Set db = Workspaces(0).OpenDatabase(dbFile, False, False) 'Öffnen der 
    ' Datenbank
 
 
' SQL-Anweisung
SQL = "SELECT * FROM Bericht WHERE Datum BETWEEN #" & _
    Format$(sDatumVon, "m-d-yy") & "# AND #" & _
    Format$(sDatumBis, "m-d-yy") & "#"
 
 
SQL = SQL + " ORDER BY Datum"
 
        Set Rs = db.OpenRecordset(SQL) 'Öffnen der Datenbank auf Baisis einer 
        ' SQL - Abfrage
 
        datAbrechnung.RecordSource = SQL
        datAbrechnung.Refresh
 
            While Not Rs.EOF 'solange Recordset nicht am Ende
 
                Umsatz
 
            Wend

'Die Sub - Umsatz (Berechnet den Umsatz)
 
Public Sub Umsatz()
 
            curUmsatz = Rs("Gewinn") 'Gewinn in Variable curUmsatz
            Rs.MoveNext 'Falls mehr Umsätze von Verkäufer muss DB weiter 
            ' durchsucht werden --> Move Next
 
            curUmsatz2 = curUmsatz2 + curUmsatz 'Umsatz / Umsätze dazurechnen
 
End Sub

Mfg MyD