Aktueller Monat und Vorjahrmonat ausdruchen

Horst1945

Grünschnabel
Hallo,

ich möchte einen Ausdruck vom aktuellen Monat und aus dem Jahr zurvor machen und stoße dabei auf ein kleines Problem!

Folgende Tabelle öffne ich:

tb_rechoff mit der Syntax:
Visual Basic:
zeitraum1 = "01.01.2012"
zeitraum2 = "31.12.2012"
zeitraum3 = "01.01.2011"
zeitraum4 = "31.12.2011"

zeitraum1 = Format$(zeiraum1 , "\#mm\/dd\/yyyy\#")
zeitraum2 = Format$(zeiraum2, "\#mm\/dd\/yyyy\#")
zeitraum3 = Format$(zeiraum3, "\#mm\/dd\/yyyy\#")
zeitraum4 = Format$(zeiraum4, "\#mm\/dd\/yyyy\#")
'---------Tabellenberchnung 2012
    Set rech = New ADODB.Recordset
    rech.CursorLocation = adUseClient
    rech.Open "Select * from rechoff WHERE redatum >= " & zeitraum1 _
    & " AND redatum <= " & zeitraum2 _
    & " ORDER by kdnr ASC", conn, adOpenKeyset, adLockPessimistic
    anzah = rech.recordcount
'--------Tabelleberechnung 2011
    rech1.CursorLocation = adUseClient
    rech1.Open "Select * from rechoff WHERE redatum >= " & zeitraum3 _
    & " AND redatum <= " & zeitraum4 _
    & " ORDER by kdnr ASC", conn, adOpenKeyset, adLockPessimistic
    anzah1 = rech1.recordcount
'--------Tabelle Monatsumsatz
    Set mon1 = New ADODB.Recordset
    mon1.CursorLocation = adUseClient
    mon1.Open "Select * from monatsumsatz", conn, adOpenKeyset, adLockOptimistic

if anzahl >= 1 then
    for i = 1 ten anzahl
         If Not rech.EOF And Not rech1.EOF Then
                mon1.AddNew
                mon1!kdnr = rech!kdnr
                mon1!von = newJahr
                mon1!bis = oldJahr
                mon1!monat1 = rech!re_nbetrag
                mon1!monat2 = rech1!re_nbetrag
                mon1.Update
                If Not rech.EOF And Not rech1.EOF Then
                   rech.MoveNext
                   rech1.MoveNext
                End If
            End If
    next
End If

Die Daten werden auch in der Tabelle "monatsumsatz" eingetragen, aber nicht korrekt!
Bei einer (anzahl = 530" werden 1200 Daten in der Tabelle eingetragen.

Wer kann mir eine kleine Hilfe geben******

Horst
 
Zuletzt bearbeitet:
Die Daten werden auch in der Tabelle "monatsumsatz" eingetragen, aber nicht korrekt!

Bedeutet was?

Dann könntest du bitte deinen Code so formatieren das er zu lesen ist. Zum einen mit den entsprechenden Code-Tags (siehe Signatur) und zum anderem indem du ihn einrückst!
 
Unabhängig von den codetags: ist das nur ein schreibfehler, oder fehlt der buchstabe t in den zweiten zeitraum-variablen?

EDIT: horst, die einfachste art herauszufinden, wie die codetags funktinieren ist auf "zitieren" clicken. Dann siehst du es
 
Zuletzt bearbeitet:
Zurück