<\/p>\n
André Minhorst, Duisburg<\/b><\/p>\n
Die Erstellung von Einnahmen-überschussrechnungen ist für die meisten Freiberufler eine Qual: Einmal im Jahr werden alle Rechnungen des abgelaufenen Jahres gesammelt, in eine handschriftliche oder vielleicht per Excel erstellte Liste eingetragen und anschließend ausgewertet. Möglicherweise ist es auch einmal im Monat oder im Quartal soweit, dass das Finanzamt Informationen über eine eventuelle Umsatzsteuervorauszahlung erwartet. In jedem Fall hilft Ihnen die im vorliegenden Beitrag beschriebene Musterlösung weiter. Sie sorgt nicht nur für eine komfortable Eingabe, auch für die Ausgabe in Form eines entsprechenden Berichtes.<\/b><\/p>\n
Bevor Sie erfahren, wie die einzelnen Komponenten der Musterlösung des vorliegenden Beitrags funktionieren, lernen Sie erst einmal ihre Funktionen kennen.<\/p>\n
Die Datenbankanwendung Einnahmen-überschussrechnung soll Freiberuflern, die ihren Gewinn durch Einnahmen-überschussrechnung und nicht durch Buchführung ermitteln, den Großteil der Arbeit abnehmen.<\/p>\n
Der Anwender muss hier nur noch die Geschäftsvorfälle eintragen. Anschließend kann er dann die entsprechenden Auswertungen wie zum Beispiel die Ermittlung der monatlichen oder quartalsmäßigen Umsatzsteuervorauszahlung und auch die Ermittlung der Umsatzsteuer für das ganze Jahr anzeigen lassen.<\/p>\n
Die Anwendung ist nicht nur für Freiberufler interessant. Wenn Ihnen die Wahl zwischen Einnahmen-überschussrechnung nicht offen steht und Sie damit diese Anwendung in der Praxis nicht direkt einsetzen können, so besteht dennoch die Möglichkeit, aus den dort verwendeten Techniken zu lernen und diese in andere Anwendungen zu integrieren. <\/p>\n
Sie starten die Anwendung wie jede andere Datenbankanwendung auch. Es stehen zwei Versionen für Access 97 (Eü97.mdb), für Access 2000 und höher (Eü2000.mdb) zur Verfügung. Sie finden die Datenbanken auf der beiliegenden Heft-CD.<\/p>\n
Die Anwendung erwartet Sie mit einem Intro-Dialog und zeigt statt der üblichen Access-Elemente wie dem Datenbankfenster und den Standardmenüs ein speziell auf diese Anwendung zugeschnittes Menü an (siehe Bild 1).<\/p>\n
Wenn Sie die Datenbankanwendung bearbeiten möchten, halten Sie beim öffnen die Umschalttaste gedrückt, also beispielsweise beim Doppelklick auf den Datenbanknamen im Windows-Explorer. Es erscheinen dann die Standardmenüs und das Datenbankfenster. <\/p>\n
Das Menü Datei enthält lediglich zwei Einträge zum Drucken des aktuell angezeigten Berichts sowie zum Beenden der Anwendung.<\/p>\n
Die Eingabe von Rechnungsinformationen erfolgt im Dialog Geschäftsvorfall erfassen, den Sie über den Menüeintrag Geschäftsvorfälle\/Neu öffnen (siehe Bild 2).<\/p>\n
![](\"..\/fileadmin\/_temp_\/{4A28030B-C60A-42B0-A9D9-9A4E7C2FCB52}\/pic001.png\")
<\/p>\n
<\/b><\/p>\n
Bild 1: Startbildschirm der Musterlösung<\/span><\/b><\/p>\n <\/b><\/p>\n Bild 2: Anlegen eines neuen Geschäftsvorfalls<\/span><\/b><\/p>\n Hier können Sie alle zu einem Geschäftsvorfall gehörenden Informationen eintragen. Das Feld Datum enthält als Eingabehilfe eine Schaltfläche, mit der Sie einen Kalender zur Auswahl des Datums anzeigen können.<\/p>\n Unter Geschäftsvorfall tragen Sie die Bezeichnung des Vorfalls ein. Die beiden Kombinationsfelder Kategorie und Geschäftsvorfallart dienen zur Auswahl der jeweiligen Informationen. Unter Geschäftsvorfallart gibt es dabei die beiden Möglichkeiten Eingang und Ausgang.<\/p>\n Die Rechnungsnummer wird entweder automatisch festgelegt oder von Hand eingegeben. Dabei wird direkt überprüft, ob die Rechnungsnummer schon vorhanden ist. Jede Rechnungsnummer kann für Eingangs- und Ausgangsrechnungen je einmal vergeben werden, da diese noch durch ein entsprechendes Präfix ergänzt werden können (zum Beispiel AR1 oder ER12).<\/p>\n Ob die Rechnungsnummer automatisch erstellt wird oder nicht, legen Sie in den Optionen der Anwendung fest, die weiter unten beschrieben werden. Falls die Rechnungsnummer manuell erstellt werden muss, können Sie mit der Schaltfläche mit dem Zauberstab eine freie Nummer auswählen lassen.<\/p>\n Im unteren Bereich kann der Anwender die Umsatzdaten eingeben. Der Umsatz selbst kann wahlweise als Brutto- oder Nettoumsatz eingegeben werden. Es ist lediglich festzulegen, welche Variante gewählt wurde. Die Option ist auf den Wert Netto voreingestellt. <\/p>\n Beim Erfassen von Geschäftsvorfällen können Sie wahlweise nur einen, aber auch mehrere Vorfälle mit gleichen Eigenschaften anlegen. Die einzige Variable ist dabei das Datum.<\/p>\n Zum Anlegen einer Serie klicken Sie auf die Schaltfläche Serie bearbeiten und öffnen so den Dialog Datumserie bearbeiten.<\/p>\n Hier können Sie sowohl das Startdatum anpassen, das auf den im vorherigen Dialog festgelegten Datumswert eingestellt ist. Außerdem wählen Sie hier das Intervall aus (Tag, Woche, Monat oder Jahr) und geben die Schrittweite an. In Bild 3 wird beispielsweise eine Terminserie mit zweiwöchigem Abstand über zwölf Einheiten festgelegt.<\/p>\n Die übersicht kann über den Menüeintrag Geschäftsvorfälle\/übersicht aufgerufen werden. Sie zeigt in zwei Tabellen die nach Eingang und Ausgang unterteilten Geschäftsvorfälle an (siehe Bild 4).<\/p>\n Die angezeigten Daten können nach dem Datum und nach Geschäftsvorfällen ohne Rechnungsnummern gefiltert werden. Letzteres hat den Hintergrund, dass beim Anlegen von Serien bei ausgeschalteter automatischer Rechnungsnummerierung Geschäftsvorfälle ohne Rechnungsnummer generiert werden. Mit der Filterfunktion können Sie diese Datensätze leicht identifizieren und um entsprechende Rechnungsnummern ergänzen.<\/p>\n <\/b><\/p>\n Bild 3: Anlegen einer Serie von Geschäftsvorfällen<\/span><\/b><\/p>\n <\/b><\/p>\n Bild 4: übersicht der Geschäftsvorfälle<\/span><\/b><\/p>\n Das Formular enthält je Datensatz zwei Schaltflächen, mit denen der Datensatz entweder im Detail angezeigt oder gelöscht werden kann. Letzteres natürlich erst nach der Bestätigung durch den Benutzer.<\/p>\n Die Anwendung enthält einen Bericht, der die Eigenschaften der Geschäftsvorfälle auf unterschiedliche Arten darstellen kann.<\/p>\n Der Dialog Auswertungen anzeigen dient der Einstellung der Berichtseigenschaften. Je nachdem, über welchen der Untereinträge des Menüpunktes Auswertung Sie das Formular aufrufen, wird eine der drei unter Auswertung angezeigten Punkte ausgewählt.<\/p>\n Neben der Auswahl einer der drei Varianten Monats-, Quartals- und Jahresauswertung mit den entsprechenden Datumsangaben können Sie in dem Dialog noch festlegen, wie die Daten gruppiert werden sollen.<\/p>\n Dabei stehen die Varianten Zeitraum und Eingang\/Ausgang zur Verfügung. Außerdem können Sie die Reihenfolge der Gruppierung festlegen.<\/p>\n Nach dem Festlegen der Auswertungseigenschaften und einem Mausklick auf die Schaltfläche Anzeigen öffnet die Anwendung den Bericht mit der Auswertung (siehe Bild 6).<\/p>\n Der Bericht zeigt die Auswertung für die in Bild 5 gemachten Angaben. Er enthält die Daten für das dritte Quartal, zuerst nach dem Monat und dann nach Eingang und Ausgang gruppiert. Jede Gruppierung enthält eine Summe der enthaltenen Beträge. Am Fuß des Berichts wird der Einnahmen-überschuss angezeigt.<\/p>\n <\/b><\/p>\n Bild 5: Anpassung der anzuzeigenden Auswertung<\/span><\/b><\/p>\n <\/b><\/p>\n Bild 6: Auswertung der Einnahmen-überschussrechnung<\/span><\/b><\/p>\n Im Menü Stammdaten finden Sie drei Einträge, die zum Bearbeiten der Kategorien, Mehrwertsteuersätze und sonstiger Optionen dienen.<\/p>\n über den Menüeintrag Stammdaten\/Kategorien öffnen Sie den Dialog Kategorien. Der Dialog dient zum Bearbeiten und Löschen bestehender und zum Anlegen neuer Kategorien (siehe Bild 7). Eine Umbenennung von Kategorien wirkt sich auch unmittelbar auf bereits angelegte Geschäftsvorfälle aus.<\/p>\n Die Mehrwertsteuersätze können im Dialog Mehrwertsteuersätze bearbeitet werden (siehe Bild 8). Da sich änderungen der Steuersätze ebenfalls auf bereits vorhandene Geschäftsvorfälle auswirken würden, ist die Bearbeitung gesperrt. Es können lediglich neue Steuersätze angelegt werden. Auch das Löschen von Steuersätzen, die bereits für einen Geschäftsvorfall festgelegt wurden, ist nicht möglich.<\/p>\n Die Anwendung bietet die Möglichkeit, Rechnungen automatisch mit einer Nummer zu versehen. Das ist vor allem dann interessant, wenn Geschäftsvorfälle auftreten, die periodisch wiederkehren.<\/p>\n <\/b><\/p>\n Bild 7: Bearbeiten von Kategorien<\/span><\/b><\/p>\n <\/b><\/p>\n Bild 8: Dialog zum Verwalten der Mehrwertsteuersätze<\/span><\/b><\/p>\n <\/b><\/p>\n Bild 9: Optionen für die Rechnungseingabe und -ausgabe<\/span><\/b><\/p>\n Im oberen Teil des Dialoges Optionen können Sie festlegen, ob die Rechnungsnummern automatisch oder manuell erstellt werden sollen.<\/p>\n Im unteren Teil legen Sie fest, mit welchem Präfix Eingang- und Ausgangsrechnungen bei der Ausgabe per Bericht versehen werden sollen (siehe Bild 9).<\/p>\n Das Datenmodell der Einnahmen-überschussrechnung beinhaltet vier Tabellen, die zur Beschreibung der Geschäftsvorfälle und deren Details dienen. Informationen zu den einzelnen Feldern der Tabellen und deren Verknüpfungen können Sie Bild 10 entnehmen.<\/p>\n Neben der Haupttabelle tblGeschaeftsvorfaelle gibt es drei Lookup-Tabellen, mit denen die Kategorie, der Mehrwertsteuersatz sowie die Geschäftsvorfallart des Geschäftsvorfalls ausgewählt werden können.<\/p>\n Für weitere Informationen über die Tabellen und deren Aufbau konsultieren Sie die Musterlö-sung. <\/p>\n Neben diesen Tabellen gibt es lediglich noch die Tabelle tblOptionen. Diese Tabelle besteht nur aus einem Ja\/Nein-Feld, in dem gespeichert wird, ob die Rechnungsnummern automatisch oder manuell erstellt werden sollen.<\/p>\n <\/b><\/p>\n Bild 10: Datenmodell der Einnahmen-überschussrechnung<\/span><\/b><\/p>\n Die Datenbank enthält eine benutzerdefinierte Menüleiste und zeigt bis auf wenige Ausnahmen keine Standardmenüs an. Eine dieser Ausnahmen ist die Anzeige von Berichten. Hier ist die Anzeige der Berichtsmenüleiste erforderlich, um beispielsweise den Zoom-Faktor und andere Ansichteigenschaften einzustellen.<\/p>\n Die Steuerung der Menüleiste erfolgt über einen Satz speziell dafür vorgesehener Funktionen und Prozeduren, die Sie in dem VBA-Modul mdlMenueleisten finden.<\/p>\n Die Funktionen und Prozeduren zum Erstellen werden im Beitrag Dynamische Menüs mit VBA in Ausgabe 4\/2003 von Access im Unternehmen erläutert. Die dort vorgestellten Methoden werden jedoch ständig optimiert, sodass die Funktionen unter Umständen kleine Unterschiede aufweisen können. <\/p>\n Dieses Modul besteht aus zwei unterschiedlichen Sätzen von Prozeduren und Funktionen:<\/p>\n Der erste Satz umfasst alle Prozeduren, die dem Anlegen der Menüs, Untermenüs und Steuerelemente dienen. Diese werden seit Ausgabe 4\/2003 von Access im Unternehmen für einige Musterlösungen verwendet und sind in jeder Musterlösung gleich. Es können lediglich änderungen durch Korrekturen von Fehlern oder durch Optimierungen auftreten.<\/p>\n Der zweite Satz besteht aus den anwendungsspezifischen Prozeduren und Funktionen. Die wichtigste Prozedur ist dabei die Prozedur MenueErstellen. Sie enthält neben einigen anderen Anweisungen die Aufrufe der Prozeduren aus der ersten Gruppe, um die einzelnen Elemente des Menüs anzulegen. Außerdem gibt es noch die Funktionen, die durch das Betätigen der einzelnen Menüeinträge ausgelöst werden. Diese können beispielsweise dem Drucken eines Berichts, Beenden der Datenbank oder dem Anzeigen eines bestimmten Formulars dienen.<\/p>\n Wenn Sie sich den Inhalt des Moduls zu Gemüte führen und gegebenenfalls auf den oben genannten Beitrag Dynamische Menüs mit VBA zurückgreifen, werden Sie schnell feststellen, wie einfach Sie auch Ihren eigenen Anwendungen dynamische Menüs hinzufügen können.<\/p>\n Beim normalen Start der Anwendung, also ohne gleichzeitiges Drücken der Umschalttaste, wird automatisch das Formular frmIntro angezeigt. <\/p>\n Dieses Formular finden Sie in allen Musterlösungen und Beispieldatenbanken. In Anwendungen mit benutzerdefinierter Menüleiste hat es allerdings eine besondere Funktion, wie folgende Punkte zeigen:<\/p>\n Quellcode 1<\/b><\/p>\n Quellcode 2<\/b><\/p>\n <\/p>\n Quellcode 3<\/b><\/p>\n Natürlich sehen Sie von all diesen Aktionen nicht sehr viel, da das Formular ja unsichtbar ist. Wenn Sie trotzdem sichergehen wollen, dass die gewünschten Schritte durchgeführt werden, sollten Sie einfach eine MsgBox-Anweisung in Quellcode 3 unterbringen. Sie werden dann beim Schließen der Datenbank feststellen, dass die Vorgehensweise funktioniert. <\/p>\n Für die Funktionalität der Anwendung sind die Formulare zur Anzeige der übersicht über die Geschäftsvorfälle, zum Anlegen neuer Geschäftsvorfälle und damit verbunden das Formular zum Definieren von Terminserien sowie das Formular zur Festlegung der Auswertungsoptionen interessant.<\/p>\n Die weiteren Formulare dienen lediglich dem Verwalten der Stammdaten wie der Optionen, der Kategorien und der Mehrwertsteuersätze und weisen keine besonders interessanten Eigenschaften auf.<\/p>\n Da eine übersicht ohne Daten keinen Sinn macht, lernen Sie nun zunächst die Formulare zum Eingeben der Geschäftsvorfälle kennen.<\/p>\n Das Formular frmGeschäftsvorfallDetailansicht dient im Wesentlichen der Eingabe neuer Geschäftsvorfälle. Es kann zwar auch zum Bearbeiten von Datensätzen verwendet werden, aber dies sollte in der Regel nicht notwendig sein, da beim Anlegen eines Geschäftsvorfalles mit ein wenig Konzentration wohl kaum Fehler passieren dürften.<\/p>\n Das Formular besteht aus den in Bild 11 dargestellten Steuerelementen. Die Eingabefelder orientieren sich exakt an den Feldern der Tabelle tblGeschaeftsvorfaelle, lediglich das Primärindexfeld GeschaeftsvorfallID wird nicht angezeigt. Dementsprechend dient die Tabelle tblGeschaeftsvorfaelle als Datenherkunft für das Formular.<\/p>\n Außerdem enthält das Formular zwei Schaltflächen, die Funktionen zur Erleichterung der Eingabe enthalten, sowie einige Steuerelemente zur Anzeige von Informationen rund um den Umsatz im unteren Bereich des Formulars.<\/p>\n <\/b><\/p>\n Bild 11: Entwurfsansicht des Formulars frmGeschaeftsvorfallDetailansicht<\/span><\/b><\/p>\n Beim öffnen des Formulars wird die Prozedur aus Quellcode 4 aufgerufen. Die Prozedur überprüft, ob ein neuer Datensatz angelegt wird oder ob die Eigenschaften eines bestehenden Datensatzes angezeigt werden sollen.<\/p>\n Im Falle eines neuen Datensatzes wird das aktuelle Datum in das Feld Datum geschrieben. Außerdem wird die Schaltfläche cmdTerminserie, die dem Bearbeiten der Terminserieneigenschaften dient, aktiviert.<\/p>\n Im Falle eines vorhandenen Datensatzes wird diese Schaltfläche deaktiviert, da nur für neue Datensätze Terminserien angelegt werden können.<\/p>\n Anschließend wird die Prozedur UmsatzdatenAktualisieren aufgerufen, die weiter unten erläutert wird.<\/p>\n Quellcode 4<\/b><\/p>\n Mit der Schaltfläche rechts neben dem Textfeld Datum kann ein Formular mit dem Kalendersteuerelement aufgerufen werden. Hier kann der Benutzer einfach das gewünschte Datum auswählen.<\/p>\n Die Anwendung des Kalender-Steuerelements zur Vereinfachung der Eingabe von Datumsangaben wurde im Beitrag Eingabe des Datums mit dem Kalendersteuerelement in Heft 4\/2001 von Access im Unternehmen ausführlich beschrieben. <\/p>\n Bezüglich der Eingabe des Datums von Hand ist dieses Formular etwas restriktiv: Das Feld Datum ist schlichtweg gesperrt. Das Datum kann nur über das Kalender-Steuerelement geändert werden.<\/p>\n Die Rechnungsnummer stellt eine besondere Aufgabe dar. Um einen Bezug zwischen den realen Rechnungen auf Papier und den in der Datenbank gespeicherten Informationen herzustellen, sollten die Rechnungsnummern übereinstimmen. Um auf einen Blick zwischen Eingangs- und Ausgangsrechnungen unterscheiden zu können, werden diese durch entsprechende Präfixe wie ER für Eingangsrechnung beziehungsweise AR für Ausgangsrechnung gekennzeichnet.<\/p>\n Um sicherzustellen, dass jede Rechnungsnummer nur einmal auf einer Eingangsrechnung beziehungsweise Ausgangsrechnung auftaucht, kann der Benutzer entweder selbst Hand anlegen und die Rechnungsnummern alle selbst vergeben oder er verwendet die Option, dass alle Rechnungen von der Anwendung eine eindeutige Nummer zugewiesen bekommen.<\/p>\n Die Einstellung, ob die Rechnungsnummern manuell oder automatisch zugewiesen werden, nehmen Sie im Dialog Optionen der Musterlösung vor. <\/p>\n Wenn die Rechnungsnummern automatisch erstellt werden sollen, wird dies beim Neuanlegen eines Geschäftsvorfalls direkt nach der Auswahl der Geschäftsvorfallart erledigt.<\/p>\n Dieser Zeitpunkt ist sinnvoll, da die Anwendung ja überprüfen muss, ob die Rechnungsnummer für die jeweilige Gruppe, also Eingang oder Ausgang, bereits vorhanden ist.<\/p>\n Durch die Ereigniseigenschaft Nach Aktualisierung des Kombinationsfeldes GeschaeftsvorfallartID wird die Prozedur aus Quellcode 6 ausgelöst.<\/p>\n Diese Prozedur überprüft, ob die Rechnungsnummer automatisch ausgewählt werden soll und ruft gegebenenfalls die Funktion IDFinden auf.<\/p>\n Die Funktion IDFinden dient dem Auffinden des kleinsten nicht verwendeten Wertes in einem bestimmten Feld der übergebenen Datenherkunft (s. Quellcode 7). Falls die IDs kontinuierlich gefüllt wurden, gibt die Funktion die um eins erhöhte höchste ID der Datenherkunft zurück.<\/p>\n Quellcode 6<\/b><\/p>\n Quellcode 7<\/b><\/p>\n Quellcode 8<\/b><\/p>\n Als Datenherkunft wird die Tabelle bzw. Abfrage übergeben, für die eine freie ID gefunden werden soll. Die Datenherkunft darf keine Sortierungskriterien enthalten, da die Datenherkunft automatisch nach dem fraglichen Feld sortiert wird.<\/p>\n Um Lücken in den Werten des gesuchten Feldes zu finden, vergleicht die Funktion den Wert Schritt für Schritt mit einem mitlaufenden Zähler. Sobald die Differenz zwischen zwei aufeinanderfolgenden Werten des betroffenen Feldes größer eins ist, entdeckt die Funktion dies und gibt den fehlenden Wert als Ergebnis zurück.<\/p>\n Interessant sind mindestens zwei der Umsatzdaten Nettoumsatz, Mehrwertsteuersatz, enthaltene Mehrwertsteuer und Bruttoumsatz. Zur Berechnung dieser Werte benötigt man lediglich derer zwei, wobei es keine Rolle spielt, welche beiden das sind. In der Regel sind aber der Steuersatz sowie entweder der Nettobetrag oder der Bruttobetrag bekannt.<\/p>\n Das Formular zur Eingabe der Daten bietet allen notwendigen Komfort, um den unterschiedlichen Varianten gerecht zu werden. Der Benutzer muss hier lediglich den Umsatz und den Steuersatz eingeben. Sofern der Umsatz nicht der Netto-Umsatz ist, kann dies mit durch die Auswahl der Option Brutto statt Netto berücksichtigt werden.<\/p>\n Beim öffnen des Formulars sowie nach jeder änderung eines der Steuerelemente im Bereich Umsatz werden die Werte der vier Textfelder im unteren Abschnitt neu berechnet.<\/p>\n Dazu wird jeweils die Prozedur aus Quellcode 8 aufgerufen. Die Prozedur überprüft, welche der beiden Optionen Brutto oder Netto ausgewählt ist, und ermittelt in Abhängigkeit davon den Nettowert des Umsatzes sowie den Bruttowert und die Mehrwertsteuer.<\/p>\n Geschäftsvorfälle treten unter Umständen regelmäßig auf. Der Komfort der vorliegenden Anwendung erhöht sich schlagartig, wenn solche Daten auf einen Rutsch eingegeben werden können.<\/p>\n Problematisch hingegen ist das weitere Vorgehen mit solchen Daten. Dabei können zwei Fälle auftreten:<\/p>\n Das Unterstützen beider Möglichkeiten ist mit sehr hohem Aufwand verbunden. Selbst Microsoft Outlook bietet keine schlüssige Methode: Wenn Sie hier eine Terminserie eintragen, einen Termin dieser Serie löschen und dann die Zeiten für die Terminserie ändern, dann taucht der gelöschte Termin wieder auf.<\/p>\n Die Einnahmen-überschussrechnung enthält einen Ansatz, der lediglich das Anlegen einer Terminserie unterstützt. Sie können damit beliebige Terminserien anlegen und diese anschließend individuell anpassen. Ein anschließendes Anpassen der ganzen Serie ist nicht möglich. Ebenso können Sie einen bereits bestehenden Geschäftsvorfall nicht mehr in eine Serie umwandeln.<\/p>\n Zum Anlegen einer Terminserie wird ein Dialog verwendet, dessen Entwurfsansicht in Bild 12 zu finden ist.<\/p>\n <\/b><\/p>\n Bild 12: Formular zum Anlegen von Terminserien in der Entwurfsansicht<\/span><\/b><\/p>\n Die Ereigniseigenschaft Beim öffnen löst die Prozedur aus Quellcode 9 aus. Die Prozedur setzt das Startdatum auf den im Formular frmGeschaeftsvorfallDetailansicht angegebenen Datumswert. Für das Feld EinheitID wird der erste vorhandene Eintrag ausgewählt. Außerdem ruft die Prozedur eine weitere Prozedur namens ListeAktualisieren auf, die weiter unten beschrieben wird.<\/p>\n Quellcode 9<\/b><\/p>\n Das Feld Startdatum ist wie das Feld Datum aus dem Formular frmGeschaeftsvorfallDetailansicht mit einer Schaltfläche zur vereinfachten Datumseingabe ausgestattet.<\/p>\n Quellcode 10<\/b><\/p>\n Quellcode 11<\/b><\/p>\n Mit dem Kombinationsfeld EinheitID kann der Benutzer festlegen, welches Intervall der Serie zugrunde liegt. Das Feld hat folgende Wertliste als Datenherkunft:<\/p>\n Nach der Aktualisierung des Kombinationsfeldes wird wie beim öffnen des Formulars die Prozedur ListeAktualisieren aufgerufen. Auch die entsprechenden Ereignisprozeduren der beiden anderen Eingabefelder Anzahl und Schrittweite enthalten diesen Prozeduraufruf.<\/p>\n Die Optionsgruppe ogrLetzterTag enthält zwei Optionen. Sie ist beim öffnen des Formulars deaktiviert und wird nur aktiviert, wenn im Kombinationsfeld EinheitID der Eintrag Monat ausgewählt ist. Wenn der Benutzer diese Option auf den Wert Ja einstellt, wird beim Anlegen der Terminserie jeweils der letzte Tag des Monats als Tag verwendet. Das ist nicht anders realisierbar, da nicht alle Monate die gleiche Anzahl Tage haben.<\/p>\n Die Funktion ListeAktualisieren dient dazu, im Listenfeld lstDaten die Vorschau der Daten der Terminserie anzuzeigen (s. Quellcode 10).<\/p>\n Die Funktion überprüft zunächst, welchen Wert die Optionsgruppe ogrLetzterTag hat, und berechnet dementsprechend den ersten Termin. Dabei handelt es sich entweder um das im Feld Datum eingetragene Datum oder den letzten Tag des Monats, in den dieses Datum fällt. Zur Berechnung dieses Tages wird die Funktion LetztesDatumDesMonats verwendet, die hier nicht näher erläutert wird.<\/p>\n Quellcode 12<\/b><\/p>\n Die einzelnen Daten werden innerhalb einer For Next-Schleife ermittelt, die von 1 bis zur im Feld Anzahl angegebenen Anzahl läuft und jeweils die Funktion DatumTerminserie mit den übrigen Feldinhalten als Parameter aufruft.<\/p>\n Die Funktion DatumTerminserie (s. Quellcode 11) befindet sich in dem Modul mdlTerminserie. Sie ist als öffentliche Funktion deklariert, weil sie zum Anlegen der Terminserie mit dem Speichern des Geschäftsvorfalls noch einmal aufgerufen wird. Die Funktion überprüft, welches der Intervalle Tag, Woche, Monat oder Jahr verwendet wird, und berechnet anhand der entsprechenden Formel das dem aktuellen Wert der Laufvariablen i entsprechende Datum.<\/p>\n Die beiden Schaltflächen der Terminserie dienen zum Bestätigen der eingegebenen Daten und zum Abbrechen. Ein Mausklick auf die Schaltfläche Abbrechen bewirkt das Schließen des Formulars, die eingegebenen Daten stehen dann nicht mehr zur Verfügung. Beim Klick auf OK wird das Formular lediglich unsichtbar gemacht.<\/p>\n Das hat zwei Gründe:<\/p>\n Das Speichern von Geschäftsvorfällen erfolgt vom Formular frmGeschaeftsvorfallDetailansicht aus über die Schaltfläche cmdOK. <\/p>\n Die Prozedur aus Quellcode 12 überprüft zunächst, ob es sich bei dem Geschäftsvorfall um einen neuen oder einen bereits vorhandenen Datensatz handelt.<\/p>\n Wenn der Datensatz bereits vorhanden ist, schließt die Prozedur einfach das Formular und aktualisiert gegebenenfalls den Inhalt des Formulars frmGeschaeftsvorfaelle.<\/p>\n Handelt es sich um einen neuen Datensatz und ist das Formular frmTerminserien noch geöffnet, geht die Prozedur davon aus, dass eine Serie von Geschäftsvorfällen anzulegen ist.<\/p>\n Die Prozedur öffnet die Tabelle tblGeschaeftsvorfaelle zweimal in Form einer Datensatzgruppe. Die erste enthält den neu angelegten Datensatz, die zweite ist leer, da als Bedingung GeschaeftsvorfallID = 0 gesetzt wurde.<\/p>\n Eine For Next-Schleife legt eine der im Formular frmTerminserien festgelegten Menge entsprechende Anzahl neuer Datensätze in der leeren Datensatzgruppe an. Dabei werden alle Feldinhalte des Geschäftsvorfalls in der ersten Datensatzgruppe außer dem Datum in die neuen Datensätze kopiert. Nur das Datum ist für jeden Datensatz anders. Es wird mit der bereits weiter oben beschriebenen Funktion DatumTerminserie ermittelt und in das entsprechende Feld eingetragen.<\/p>\n Das zweite variable Feld der Terminserie ist natürlich die Rechnungsnummer. Sie wird automatisch innerhalb der Funktion angelegt, wenn die Option Rechnungsnummern im Dialog Optionen auf Automatisch erstellen eingestellt ist.<\/p>\n Falls die Rechnungsnummern manuell angelegt werden sollen, kann der Anwender im Formular frmGeschaeftsvorfaelle alle Rechnungen anzeigen lassen, die noch keine Rechnungsnummer haben.<\/p>\n Die Einnahmen-überschussrechnung enthält lediglich einen Bericht, der die Geschäftsvorfälle für einen ausgewählten Zeitraum und gemäß vorgegebenen Gruppierungskriterien auflistet.<\/p>\n Außerdem berechnet der Bericht für alle Gruppierungen die Summen sowie die Gesamtsumme für den ausgewählten Zeitraum. Wichtig ist natürlich auch die Ermittlung des resultierenden Gewinns als Netto- und Bruttowert.<\/p>\n Der Bericht repAuswertungenVBA ist so aufgebaut, dass allein mit diesem Bericht diverse Darstellungsarten möglich sind. Allerdings sind dazu auch eine Menge VBA-Anweisungen erforderlich, weshalb es hier leider nicht möglich ist, die komplette Funktionalität zu beschreiben.<\/p>\n Die Erstellung von formularbasierten Gruppierungen wird im Beitrag Benutzerdefiniertes Gruppieren von Berichten per VBA in der vorliegenden Ausgabe von Access im Unternehmen erläutert. <\/p>\n <\/b><\/p>\n Bild 13: Entwurfsansicht des Formulars frmAuswertungen<\/span><\/b><\/p>\n <\/b><\/p>\n Bild 14: Auswahl einer Auswertung<\/span><\/b><\/p>\n Quellcode 13<\/b><\/p>\n Quellcode 14<\/b><\/p>\n Das Formular frmAuswertungen enthält einige Steuerelemente zum Festlegen der Einstellungen für die Ausgabe von Auswertungen (siehe Bild 13).<\/p>\n Die Steuerelemente im oberen Bereich dienen dem Auswählen des Zeitraums für die Einnahmen-überschussrechnung.<\/p>\n Die Optionsgruppe ogrAuswertung enthält die drei Optionen Monats-, Quartals- und Jahresauswertung.<\/p>\n Im linken Bereich des Formulars kann der Benutzer mit drei Kombinationsfeldern den der Auswertung entsprechenden Zeitraum genauer spezifizieren. Dazu werden je nach der gewählten Auswertungsart die entsprechenden Kombinationsfelder aktiviert beziehungsweise deaktiviert.<\/p>\n Zur Erleichterung der Eingabe werden beim öffnen des Formulars bereits einige Voreinstellungen getroffen. Dafür sorgt die Prozedur, die durch die Ereigniseigenschaft Beim Anzeigen des Formulars ausgelöst wird (s. Quellcode 13).<\/p>\n Das Formular soll in der Regel über einen der drei Einträge des Menüpunktes Auswertungen geöffnet werden, wobei einer der drei Werte 1, 2 oder 3 für die Einträge Monats-, Quartals- oder Jahresübersicht an das Formular übergeben wird (siehe Bild 14).<\/p>\n Die Prozedur überprüft diesen Wert und wählt direkt die entsprechende Option der Optionsgruppe ogrAuswertungen aus. Sie setzt außerdem die drei Kombinationsfelder auf den jeweils aktuellen Wert.<\/p>\n Im letzten Schritt wird die Funktion AuswahlAnpassen aufgerufen (s. Quellcode 14). Die Funktion überprüft den Wert der Optionsgruppe ogrAuswertung und aktiviert beziehungsweise deaktiviert die entsprechenden Kombinationsfelder.<\/p>\n Diese Funktion wird auch bei jeder änderung der Optionsgruppe aufgerufen.<\/p>\n Quellcode 15<\/b><\/p>\n Quellcode 16<\/b><\/p>\n Im unteren Bereich des Formulars stellen Sie ein, ob keine, eine oder beide der vorgegebenen Gruppierungen verwendet werden sollen und gegebenenfalls in welcher Reihenfolge (siehe Bild 15). Für die Gruppierung nach dem Datum kann der Benutzer zusätzlich auswählen, nach welchem Intervall gruppiert werden soll. Das Einstellen der Gruppierungseigenschaften enthält eine kleine Spielerei: Die Gruppierungen können je nach Priorität nach oben und nach unten vertauscht werden. Die entsprechenden Steuerelemente wechseln dabei ihre Plätze. Für das Vertauschen der Steuerelemente sorgt die Prozedur GruppierungVertauschen aus Quellcode 15.<\/p>\n Ein solches Vertauschen von Steuerelementen ist natürlich bei mehr als zwei oder maximal drei Gruppierungsebenen nicht mehr mit vertretbarem Aufwand realisierbar. Stattdessen könnte ein weiteres Feld mit einer entsprechenden Priorität verwendet werden.<\/p>\n <\/b><\/p>\n Bild 15: Gruppierungseigenschaften in der Entwurfsansicht<\/span><\/b><\/p>\n Der Aufruf des Berichts erfolgt über die Schaltfläche mit der Beschriftung Anzeigen. Die dadurch ausgelöste Ereignisprozedur berechnet in Abhängigkeit von der ausgewählten Auswertung und dem Intervall das Startdatum und Enddatum als Filterkriterien für die Datenherkunft des Berichts. Diese Daten werden im Parameter WhereCondition des Berichtsaufrufs übergeben (s. Quellcode 16).<\/p>\n <\/b><\/p>\n Bild 16: Entwurfsansicht des Berichts rptAuswertungenVBA<\/span><\/b><\/p>\n Die in dem Dialog frmAuswertungen ausgewählten Parameter werden zum Teil beim Aufruf des Berichts übergeben, zum Teil werden sie innerhalb der Ereignisprozeduren der einzelnen Berichtsbereiche ausgewertet. Dabei handelt es sich um die Eigenschaften eventuell vorzunehmender Gruppierungen.<\/p>\n Der Bericht ist wie in Bild 16 aufgebaut. Dort sind bereits zwei Gruppierungen voreingestellt, die durch entsprechende Ereignisprozeduren mit den vorgegebenen Eigenschaften versehen werden.<\/p>\n Wie bereits weiter oben erwähnt, wird das Einstellen der Gruppierungen in einem separaten Beitrag erläutert. Sie finden ihn unter dem Namen Benutzerdefiniertes Gruppieren von Berichten mit VBA in der vorliegenden Ausgabe von Access im Unternehmen. <\/p>\n Der Bericht enthält außerdem einige weitere Eigenschaften, die seine Benutzerfreundlichkeit deutlich erhöhen:<\/p>\n Anhand der vorliegenden Lösung können Sie bequem Rechnungsdaten eingeben und verschiedene übersichten erstellen.<\/p>\n Für Erweiterungen ist ausreichend Platz vorhanden: Sie können beispielsweise einen weiteren Bericht erstellen, der die Einnahmen-überschussrechnung in Form einer Auflistung der Beträge für die einzelnen Kategorien angibt. Oder Sie entwickeln das Anlegen von Terminserien weiter, um auch bestehende Terminserien nachträglich ändern zu können.<\/p>\n Oder Sie fügen eine Funktion hinzu, mit der Sie getätigte Umsatzsteuervorauszahlungen je Monat oder Quartal eingeben und diese mit der gesamten Umsatzsteuer für das gesamte Jahr verrechnen.<\/p>\n","protected":false},"excerpt":{"rendered":" Die Erstellung von Einnahmen-Überschussrechnungen ist für die meisten Freiberufler eine Qual: Einmal im Jahr werden alle Rechnungen des abgelaufenen Jahres gesammelt, in eine handschriftliche oder vielleicht per Excel erstellte Liste eingetragen und anschließend ausgewertet. Möglicherweise ist es auch einmal im Monat oder im Quartal soweit, dass das Finanzamt Informationen über eine eventuelle Umsatzsteuervorauszahlung erwartet. In jedem Fall hilft Ihnen die im vorliegenden Beitrag beschriebene Musterlösung weiter. Sie sorgt nicht nur für eine komfortable Eingabe, auch für die Ausgabe in Form eines entsprechenden Berichtes.<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"om_disable_all_campaigns":false,"_monsterinsights_skip_tracking":false,"_monsterinsights_sitenote_active":false,"_monsterinsights_sitenote_note":"","_monsterinsights_sitenote_category":0,"_uf_show_specific_survey":0,"_uf_disable_surveys":false,"footnotes":""},"categories":[662003,66052003,44000027],"tags":[],"class_list":["post-55000122","post","type-post","status-publish","format-standard","hentry","category-662003","category-66052003","category-Loesungen"],"yoast_head":"\n![](\"..\/fileadmin\/_temp_\/{4A28030B-C60A-42B0-A9D9-9A4E7C2FCB52}\/pic002.png\")
<\/p>\nGeschäftsvorfall als Serie anlegen<\/h2>\n
Ansehen der Geschäftsvorfälle in der übersicht<\/h2>\n
![](\"..\/fileadmin\/_temp_\/{4A28030B-C60A-42B0-A9D9-9A4E7C2FCB52}\/pic003.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{4A28030B-C60A-42B0-A9D9-9A4E7C2FCB52}\/pic004.png\")
<\/p>\nAuswertung der Geschäftsvorfälle<\/h2>\n
Anzeige der Auswertung<\/h2>\n
![](\"..\/fileadmin\/_temp_\/{4A28030B-C60A-42B0-A9D9-9A4E7C2FCB52}\/pic005.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{4A28030B-C60A-42B0-A9D9-9A4E7C2FCB52}\/pic006.png\")
<\/p>\nVerwaltung von Stammdaten<\/h2>\n
Kategorien bearbeiten<\/h3>\n
Mehrwertsteuersätze bearbeiten<\/h3>\n
Sonstige Optionen<\/h3>\n
![](\"..\/fileadmin\/_temp_\/{4A28030B-C60A-42B0-A9D9-9A4E7C2FCB52}\/pic007.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{4A28030B-C60A-42B0-A9D9-9A4E7C2FCB52}\/pic008.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{4A28030B-C60A-42B0-A9D9-9A4E7C2FCB52}\/pic009.png\")
<\/p>\nHinweis<\/h3>\n
![](\"..\/fileadmin\/_temp_\/{4A28030B-C60A-42B0-A9D9-9A4E7C2FCB52}\/pic010.png\")
<\/p>\nSteuerung der Menüleiste<\/h2>\n
Hinweis<\/h3>\n
Private Sub Form_Current()\r\n DoCmd.SetWarnings False\r\n AlleMenueleistenAusblenden\r\n MenueErstellen\r\nEnd Sub<\/pre>\n
Private Sub lblStart_Click()\r\n Me.Visible = False\r\nEnd Sub<\/pre>\n
Private Sub Form_Unload(Cancel As _ Integer)\r\n If Me.ctlDatenbankSchliessen = _ False Then\r\n DoCmd.ShowToolbar \"Database\"\r\n DoCmd.ShowToolbar \"Menu Bar\"\r\n End If\r\n DoCmd.SetWarnings True\r\nEnd Sub<\/pre>\n
Praxis-Tipp<\/h3>\n
Eingeben von Geschäftsvorfällen<\/h2>\n
![](\"..\/fileadmin\/_temp_\/{4A28030B-C60A-42B0-A9D9-9A4E7C2FCB52}\/pic011.png\")
<\/p>\nöffnen des Formulars<\/h3>\n
Private Sub Form_Current()\r\n If Me.NewRecord Then\r\n Me.Datum = Date\r\n Me.cmdTerminserie.Enabled = True\r\n Else\r\n Me.cmdTerminserie.Enabled = False\r\n End If\r\n UmsatzdatenAktualisieren\r\nEnd Sub<\/pre>\n
Vereinfachte Datumseingabe<\/h3>\n
Hinweis<\/h3>\n
Automatische oder manuelle Auswahl von Rechnungsnummern<\/h3>\n
Hinweis<\/h3>\n
Freie ID finden<\/h3>\n
Private Sub GeschaeftsvorfallartID_AfterUpdate()\r\n If DLookup(\"Rechnungsnummern\", \"tblOptionen\") = 1 _ Then\r\n Me!Rechnungsnummer = IDFinden(\"SELECT * \" _ & \"FROM tblGeschaeftsvorfaelle WHERE \" _ & \"GeschaeftsvorfallartID = \" _ & Me!GeschaeftsvorfallartID _ & \" ORDER BY Rechnungsnummer\", _ \"Rechnungsnummer\")\r\n End If\r\n If RechnungsnummerPruefen = True Then\r\n Me!Rechnungsnummer.SetFocus\r\n End If\r\nEnd Sub<\/pre>\n
Public Function IDFinden(Datenherkunft As String, _ Feld As String)\r\n Dim db As Database\r\n Dim rst As Recordset\r\n Dim i As Integer\r\n Set db = CurrentDb\r\n Set rst = db.OpenRecordset(Datenherkunft)\r\n i = 1\r\n Do While Not rst.EOF\r\n If Not rst(Feld) = i And Not IsNull(rst(Feld)) _ Then\r\n IDFinden = i\r\n Exit Function\r\n End If\r\n i = i + 1\r\n rst.MoveNext\r\n Loop\r\n IDFinden = i\r\nEnd Function<\/pre>\n
Private Sub UmsatzdatenAktualisieren()\r\n Dim Mehrwertsteuersatz As Single\r\n Mehrwertsteuersatz = _ Me!MehrwertsteuersatzID.Column(1)\r\n Me.txtNetto = IIf(Me.ogrUmsatzdaten = 1, _ Me.Umsatz, Me.Umsatz \/ (1 + Mehrwertsteuersatz))\r\n Me.txtBrutto = Me.txtNetto * _ (1 + Mehrwertsteuersatz)\r\n Me.txtMehrwertsteuer = Me.txtNetto * _ Mehrwertsteuersatz\r\n Me.txtMehrwertsteuersatz = Mehrwertsteuersatz\r\nEnd Sub<\/pre>\n
Umsatzdaten festlegen<\/h3>\n
Festlegen von Terminserien fürGeschäftsvorfälle<\/h2>\n
![](\"..\/fileadmin\/_temp_\/{4A28030B-C60A-42B0-A9D9-9A4E7C2FCB52}\/pic012.png\")
<\/p>\nPrivate Sub Form_Current()\r\n Me!Startdatum = Me.OpenArgs\r\n Me!EinheitID = Me!EinheitID.ItemData(0)\r\n ListeAktualisieren\r\nEnd Sub<\/pre>\n
Private Function ListeAktualisieren()\r\n Dim Datum As Date, Startdatum As Date\r\n Dim i As Integer, Schrittweite As Integer\r\n Dim strWertliste As String\r\n If Me!ogrLetzterTag = -1 Then\r\n Startdatum = _ LetztesDatumDesMonats(Me!Startdatum)\r\n Else\r\n Startdatum = Me!Startdatum\r\n End If\r\n Schrittweite = Me!Schrittweite\r\n strWertliste = strWertliste & \"''\" & Startdatum _ & \"'';\"\r\n For i = 1 To Me!Anzahl - 1\r\n Datum = DatumTerminserie(Startdatum, _ Me!EinheitID, Me!Schrittweite, _ Me!LetzterTag, i)\r\n strWertliste = strWertliste & Datum & \";\"\r\n Next i\r\n Me!lstDaten.RowSource = strWertliste\r\nEnd Function<\/pre>\n
Public Function DatumTerminserie(Startdatum As Date, _ EinheitID As Integer, Schrittweite As Integer, _ LetzterTag As Boolean, i As Integer)\r\n Dim Datum As Date\r\n Select Case EinheitID\r\n Case 1 ''Tag\r\n Datum = DateAdd(\"d\", 1 * i * Schrittweite, _ Startdatum)\r\n Case 2 ''Woche\r\n Datum = DateAdd(\"d\", 7 * i * Schrittweite, _ Startdatum)\r\n Case 3 ''Monat\r\n If LetzterTag = -1 Then\r\n Datum = _ LetztesDatumDesMonats(DateAdd(\"m\", _ 1 * i * Schrittweite, Startdatum))\r\n Else\r\n Datum = DateAdd(\"m\", 1 * i * _ Schrittweite, Startdatum)\r\n End If\r\n Case 4 ''Jahr\r\n Datum = DateAdd(\"y\", 1 * i * Schrittweite, _ Startdatum)\r\n End Select\r\n DatumTerminserie = Datum\r\nEnd Function<\/pre>\n
\"1\";\"Tag\";\"2\";\"Woche\";\"3\";\"Monat\";\"4\";\"Jahr\"<\/pre>\n
Private Sub cmdOk_Click()\r\n If Me.NewRecord = True And IstFormularGeoeffnet(\"frmTerminserien\") Then\r\n DoCmd.RunCommand acCmdSaveRecord\r\n Dim db As Database\r\n Dim rstQuelle As Recordset\r\n Dim rstZiel As Recordset\r\n Dim Feld As Field\r\n Dim i As Integer\r\n Dim j As Integer\r\n Set db = CurrentDb\r\n Set rstQuelle = db.OpenRecordset(\"SELECT * FROM tblGeschaeftsvorfaelle \" _ & \"WHERE GeschaeftsvorfallID = \" & Me!GeschaeftsvorfallID, dbOpenDynaset)\r\n Set rstZiel = db.OpenRecordset(\"SELECT * FROM tblGeschaeftsvorfaelle WHERE \" _ & \"GeschaeftsvorfallID = 0\", dbOpenDynaset)\r\n For j = 1 To Forms!frmTerminserien!Anzahl\r\n rstZiel.AddNew\r\n For i = 1 To rstQuelle.Fields.Count - 1\r\n rstZiel.Fields(i) = rstQuelle.Fields(i)\r\n Next i\r\n rstZiel!Datum = DatumTerminserie(Forms!frmTerminserien!Startdatum, _ Forms!frmTerminserien!EinheitID, Forms!frmTerminserien!Schrittweite, _ Forms!frmTerminserien!LetzterTag, j)\r\n If DLookup(\"Rechnungsnummern\", \"tblOptionen\") = 1 Then\r\n rstZiel!Rechnungsnummer = IDFinden(\"SELECT * FROM \" _ & \"tblGeschaeftsvorfaelle WHERE GeschaeftsvorfallartID = \" _ & rstZiel!GeschaeftsvorfallartID & \" AND Year(Datum) = \" _ & Year(rstZiel!Datum), \"Rechnungsnummer\")\r\n End If\r\n rstZiel.Update\r\n Next j\r\n End If\r\n DoCmd.Close acForm, Me.Name\r\n If IstFormularGeoeffnet(\"frmGeschaeftsvorfaelle\") Then\r\n Forms!frmGeschaeftsvorfaelle!sfmGeschaeftsvorfaelleEingang.Requery\r\n Forms!frmGeschaeftsvorfaelle!sfmGeschaeftsvorfaelleAusgang.Requery\r\n Forms!frmGeschaeftsvorfaelle.Requery\r\n End If\r\nEnd Sub<\/pre>\n
Speichern von Geschäftsvorfällen<\/h2>\n
Hinweis<\/h3>\n
![](\"..\/fileadmin\/_temp_\/{4A28030B-C60A-42B0-A9D9-9A4E7C2FCB52}\/pic013.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{4A28030B-C60A-42B0-A9D9-9A4E7C2FCB52}\/pic014.png\")
<\/p>\nPrivate Sub Form_Current()\r\n Me!ogrAuswertung = _ IIf(IsNull(Me.OpenArgs), 1, _ Me.OpenArgs)\r\n Me!cboMonat = Month(Date)\r\n Me!cboQuartal = Format(Date, \"q\")\r\n Me!cboJahr = Year(Date)\r\n AuswahlAnpassen\r\nEnd Sub<\/pre>\n
Private Function AuswahlAnpassen()\r\n Select Case Me!ogrAuswertung\r\n Case 1\r\n Me.cboMonat.Enabled = True\r\n Me.cboQuartal.Enabled = False\r\n Case 2\r\n Me.cboMonat.Enabled = False\r\n Me.cboQuartal.Enabled = True\r\n Case 3\r\n Me.cboMonat.Enabled = False\r\n Me.cboQuartal.Enabled = False\r\n End Select\r\nEnd Function<\/pre>\n
Formular zur Festlegung derAusgabeparameter<\/h2>\n
Private Sub GruppierungVertauschen()\r\n Dim Hoehe As Double\r\n Hoehe = Me.ctlEingangAusgang.Top\r\n Me.ctlEingangAusgang.Top = Me.ctlZeitraum.Top\r\n Me.lblEingangAusgang.Top = Me.ctlZeitraum.Top\r\n Me.cboZeitraeume.Top = Hoehe\r\n Me.ctlZeitraum.Top = Hoehe\r\n Me.lblZeitraum.Top = Hoehe\r\nEnd Sub<\/pre>\n
Private Sub cmdAnzeigen_Click()\r\n Dim Startdatum As String\r\n Dim Enddatum As String\r\n On Error GoTo cmdAnzeigen_Click_Err\r\n Select Case Me!ogrAuswertung\r\n Case 1\r\n Startdatum = ISODatum(\"1.\" & Me!cboMonat & \".\" & Me!cboJahr)\r\n Enddatum = ISODatum(LetzterTagDesMonats(\"1.\" & Me!cboMonat & \".\" _ & Me!cboJahr) & \".\" & Me!cboMonat & \".\" & Me!cboJahr)\r\n Case 2\r\n Startdatum = ISODatum(\"1.\" & 1 + (Me!cboQuartal - 1) * 3 & \".\" _ & Me!cboJahr)\r\n Enddatum = ISODatum(LetzterTagDesMonats(\"1.\" & 3 + (Me!cboQuartal - 1) _ * 3 & \".\" & Me!cboJahr) & \".\" & 3 + (Me!cboQuartal - 1) * 3 & \".\" _ & Me!cboJahr)\r\n Case 3\r\n Startdatum = ISODatum(\"1.1.\" & Me!cboJahr)\r\n Enddatum = ISODatum(\"31.12.\" & Me!cboJahr)\r\n End Select\r\n DoCmd.OpenReport \"rptAuswertungVBA\", Wherecondition:=\"Datum >= \" & Startdatum _ & \" AND Datum <= \" & Enddatum, View:=acViewPreview\r\n Exit Sub\r\ncmdAnzeigen_Click_Err:\r\n If Err.Number = 2501 Then\r\n Resume Next\r\n End If\r\nEnd Sub<\/pre>\n
Gruppierungseigenschaften einstellen<\/h3>\n
![](\"..\/fileadmin\/_temp_\/{4A28030B-C60A-42B0-A9D9-9A4E7C2FCB52}\/pic015.png\")
<\/p>\nAufruf des Berichts rptVBA<\/h2>\n
Der Bericht repAuswertungenVBA<\/h2>\n
![](\"..\/fileadmin\/_temp_\/{4A28030B-C60A-42B0-A9D9-9A4E7C2FCB52}\/pic016.png\")
<\/p>\nHinweis<\/h3>\n
Hinweis<\/h3>\n