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:
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
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: