Danke für deine Geduld mit mir :o)
Das ist so ganz genau richtig. Das Ergebnis dieser Sub stimmt zu 100% - aber die Ausführungszeit ist einfach zu lange.
Siehe Zeitmessungen Post#7 und Post#9
Damit das für euch nachvollziehbar ist, und ihr nicht wie @VaporiZed was zusammenbasteln müsst, habe ich die Demo Solution hochgeladen
Diese ist (mit wenigen Ausnahmen) eine 1 zu 1 Kopie der Originalform.
Unterschiede: Im Originalprogramm wird die Form als Subform dargestellt (in der Demo gibt es ja nur eine)
Die Demo hat DataSet speichern/laden Code. Die Originalform wird geschlossen, wenn es keine Daten zu Anzeige gibt.
Hier habe ich in der Demo nur das entsprechende
Damit die ganze DemoApp einen Sinn hat müssen natürlich noch Daten rein. Meine Originaldaten kann, bzw. möchte ich aber nicht mitliefern.
Also habe ich rechts (unterhalb des Labels "Alles wie im OriginalProgramm...") den Button und die beiden Textboxen erstellt.
Diese finden sich im Originalprogramm natürlich nicht.
Mithilfe dieser sollten pseudodaten ins DataSet.
Also Startdatum und die Anzahl der Tage soll eingetragen werden und dann entsprechend Daten ins DataSet geschrieben werden.
Also für jeden Tag eine Gesamttageseinnahme und eine dazu zugeordnete Einnahme für jede Warengruppe.
An der Erstellung diese Codes
Keine Ahnung was für einen Fehler - bei mir liefs Fehlerfrei.
Das ist eine Kopie der originalForm, welche eben die fragliche Sub
Ist quasi einfach nur, damit du eine Solution hast und nicht Code irgendwo verbesserst, sondern eben in der Solution.
Zwei Jahre auswählen (Jahr und Vergleichsjahr) und den Button Jahr betätigen.
Aber wie gesagt, meine Demo Solution hat keine Daten, weil ich zu doof bin Code zu schreiben, der das macht.
ErfinderDesRades schrieb:
Hab ich das überhaupt richtig verstanden: die Sub WriteDataFirstYear() in dem Download arbeitet richtig, aber zu langsam.
Das ist so ganz genau richtig. Das Ergebnis dieser Sub stimmt zu 100% - aber die Ausführungszeit ist einfach zu lange.
Siehe Zeitmessungen Post#7 und Post#9
Damit das für euch nachvollziehbar ist, und ihr nicht wie @VaporiZed was zusammenbasteln müsst, habe ich die Demo Solution hochgeladen
Diese ist (mit wenigen Ausnahmen) eine 1 zu 1 Kopie der Originalform.
Unterschiede: Im Originalprogramm wird die Form als Subform dargestellt (in der Demo gibt es ja nur eine)
Die Demo hat DataSet speichern/laden Code. Die Originalform wird geschlossen, wenn es keine Daten zu Anzeige gibt.
Hier habe ich in der Demo nur das entsprechende
Me.Close
auskommentiert, damit klar ist, warum ich an manchen Stellen im Code auf Prüfungen ob Daten vorhanden sind verzichte. Daher kommt die Meldung zu beginn, weils DataSet ja außer der 8 Warengruppen keine Daten hält.Damit die ganze DemoApp einen Sinn hat müssen natürlich noch Daten rein. Meine Originaldaten kann, bzw. möchte ich aber nicht mitliefern.
Also habe ich rechts (unterhalb des Labels "Alles wie im OriginalProgramm...") den Button und die beiden Textboxen erstellt.
Diese finden sich im Originalprogramm natürlich nicht.
Mithilfe dieser sollten pseudodaten ins DataSet.
Also Startdatum und die Anzahl der Tage soll eingetragen werden und dann entsprechend Daten ins DataSet geschrieben werden.
Also für jeden Tag eine Gesamttageseinnahme und eine dazu zugeordnete Einnahme für jede Warengruppe.
An der Erstellung diese Codes
Sub BTNAddData_Click()
(derwie gesagt nur dafür da ist pseudo Daten einzutragen, damit die Demo App Sinn hat) bin ich aber gescheitert.ErfinderDesRades schrieb:
Die Fehlerzeile auskommentiert, dann startet das, und eine Messagebox sagt mir:
Keine Ahnung was für einen Fehler - bei mir liefs Fehlerfrei.
ErfinderDesRades schrieb:
Nach Bestätigen geht ein Form auf:
Was soll ich nun damit tun
Das ist eine Kopie der originalForm, welche eben die fragliche Sub
WriteDataFirstYear()
ausführt.Ist quasi einfach nur, damit du eine Solution hast und nicht Code irgendwo verbesserst, sondern eben in der Solution.
Du sagst - wenn ich recht versteh - Im Download die Sub WriteDataFirstYear() täte richtig arbeiten, aber zu langsam. Wie kriege ich die überhaupt ans arbeiten??
Zwei Jahre auswählen (Jahr und Vergleichsjahr) und den Button Jahr betätigen.
Aber wie gesagt, meine Demo Solution hat keine Daten, weil ich zu doof bin Code zu schreiben, der das macht.