<\/p>\n
Führen Sie Strichlisten Zum Beispiel über Anrufe bei Kunden, Störungen durch Arbeitskollegen, verzehrten Kaffee oder andere Dinge, die Sie während der Arbeit aufzeichnen möchten Damit ist es nun vorbei: Wir bieten Ihnen den ultimativen Aktivitätenzähler. Damit definieren Sie beliebig viele Aktivitäten in verschiedenen Kategorien und erhöhen die Anzahl mit einem einfachen Mausklick. Die Aktivitäten werden natürlich zur späteren Auswertung inklusive Datum gespeichert.<\/b><\/p>\n
Das Formular aus Bild 1 ist das wesentliche Element der Benutzeroberfläche des Aktivitätenzählers. Dieses Formular erlaubt das Wechseln des aktuellen Tages und zeigt jeweils die Anzahl der verschiedenen Aktivitäten für das aktuelle Datum an.<\/p>\n
![\"pic002.png\"](\"..\/fileadmin\/_temp_\/2012_03\/AktivitaetenZaehlen-web-images\/pic002.png\")
<\/p>\n
Bild 1: Aktivitäten zählen per Mausklick<\/span><\/b><\/p>\n Mit den beiden Schaltflächen rechts neben dem Textfeld zur Eingabe des Datums schalten Sie jeweils einen Tag vor oder zurück. Das Datumstextfeld selbst ist mit der Klasse clsDatebox <\/b>ausgestattet.<\/p>\n Das bedeutet, dass Sie die Eingabemarke auf einem Datumsteil platzieren können (entweder Tag, Monat oder Jahr) und den Wert mit den Tasten Nach oben <\/b>und Nach unten <\/b>einstellen können.<\/p>\n Unten zeigt das Formular die vorhandenen Aktivitätsbezeichnungen an, das Textfeld neben der jeweiligen Aktivität markiert die Anzahl für den aktuellen Tag. Die beiden Schaltflächen rechts neben der Anzahl dienen zum Erhöhen oder Vermindern des angezeigten Wertes. Negative Werte können auf diese Weise nicht eingetragen werden.<\/p>\n Fehlt noch die Schaltfläche mit der Beschriftung Aktivitäten bearbeiten<\/b>. Diese öffnet den Dialog aus Bild 2, der eine Übersicht der vorhandenen Aktivitätsbezeichnungen anzeigt. Markieren Sie einen Eintrag und klicken auf die Schaltfläche Aktivitätsbezeichnung löschen<\/b>, wird diese entfernt.<\/p>\n Bild 2: Verwalten der Aktivitätsbezeichnungen<\/span><\/b><\/p>\n Ein Doppelklick auf einen Listenfeldeintrag öffnet die Detailansicht mit dem gewünschten Datensatz und die Schaltfläche Neue Aktivitätsbezeichnung <\/b>zeigt den gleichen Dialog zur Eingabe einer neuen Aktivitätsbezeichnung an.<\/p>\n Dieser Dialog sieht wie in Bild 4.<\/p>\n Bild 3: Anlegen neuer Aktivitätsbezeichnungen<\/span><\/b><\/p>\n Bild 4: Verwalten und Anlegen neuer Kategorien<\/span><\/b><\/p>\n Datenmodell des Aktivitätszählers<\/b><\/p>\n Das Datenmodell der Datenbank ist überschaubar. Es enthält drei Tabellen und sieht wie in Bild 5 aus. Die Tabelle tblAktivitaetskategorien<\/b> enthält lediglich das Primärschlüsselfeld AktivitaetskategorieID <\/b>und das Feld zur Eingabe der Bezeichnung der Kategorie.<\/p>\n Bild 5: Datenmodell der Aktivitäten-Datenbank<\/span><\/b><\/p>\n Die Tabelle tblAktivitaetsbezeichnungen <\/b>enthält die Namen der verschiedenen Aktivitäten. Außerdem verweist sie mit dem Fremdschlüsselfeld AktivitaetskategorieID <\/b>auf die Tabelle tblAktivitaetskategorien<\/b>, damit jeder Bezeichnung eine Kategorie zugewiesen werden kann.<\/p>\n Fehlt noch die Tabelle tblAktivitaeten<\/b>. Diese enthält zunächst das Fremdschlüsselfeld AktivitaetsbezeichnungID<\/b>, mit dem Sie die jeweilige Aktivität festlegen.<\/p>\n Das Feld Aktivitaetsdatum <\/b>enthält das Datum, an dem die im Feld Aktivitaetsanzahl <\/b>gespeicherte Anzahl der entsprechenden Aktivität aufgezeichnet wurde.<\/p>\n Damit wird deutlich, dass Sie für die beiden Felder AktivitaetsbezeichnungID <\/b>und Aktivitaetsdatum <\/b>einen eindeutigen, zusammengesetzten Schlüssel definieren müssen: Für jede Aktivität soll nur eine Anzahl pro Tag aufgezeichnet werden.<\/p>\n Aktivitäten pflegen<\/b><\/p>\n Schauen wir uns zunächst die Formulare zur Verwaltung der Aktivitätsbezeichnungen und Aktivitätskategorien an. Das Formular frmAktivitaetsbezeichnungen <\/b>ist in Bild 6 abgebildet und enthält ein Listenfeld namens lst<\/b>. Das Listenfeld soll die Namen der Aktivitätsbezeichnung und der Kategorie anzeigen.<\/p>\n Bild 6: Das Formular zum Verwalten der Aktivitätsbezeichnungen in der Entwurfsansicht<\/span><\/b><\/p>\n Deshalb enthält die als Datensatzherkunft verwendete Abfrage die beiden Tabellen tblAktivitaetsbezeichnungen <\/b>und tblAktivitaetskategorien<\/b> (s. Bild 7). Zusätzlich liefert die Datensatzherkunft den Wert des Feldes AktivitaetsbezeichnungID<\/b>. Damit dieses nicht angezeigt wird, sind die Eigenschaften Spaltenanzahl <\/b>und Spaltenbreiten <\/b>auf die Werte 3 <\/b>und 0cm;6cm <\/b>eingestellt (die dritte Spalte wird auf der verbleibenden Breite angezeigt).<\/p>\n Bild 7: Datenherkunft des Listenfeldes zur Anzeige der Aktivitätsbezeichnungen<\/span><\/b><\/p>\n Ein Doppelklick auf einen Eintrag im Listenfeld löst die Prozedur aus Listing 1<\/a><\/span> aus. Diese prüft zunächst, ob der Doppelklick überhaupt einen Eintrag getroffen hat.<\/p>\n Listing 1: Öffnen des Formulars zum Bearbeiten von Aktivitätsdetails<\/p>\n Falls ja, öffnet die DoCmd.OpenForm<\/b>-Methode das Formular frmAktivitaetsbezeichnungDetails <\/b>zum Bearbeiten eines bestehenden Datensatzes. Dieser wird mit dem Parameter WhereCondition <\/b>auf den im Listenfeld angeklickten Eintrag festgelegt.<\/p>\n Wenn Sie einen neuen Eintrag anlegen möchten, klicken Sie auf die Schaltfläche cmdNeu<\/b>.<\/p>\n Dies löst die folgende Prozedur aus, die das gleiche Formular öffnet – nur diesmal mit dem Wert acFormAdd <\/b>für den Parameter DataMode<\/b>. Anschließend wird das Listenfeld aktualisiert:<\/p>\n Ein Klick auf die Schaltfläche cmdLoeschen <\/b>hingegen löst die Prozedur aus Listing 2<\/a><\/span> aus. Diese Prozedur prüft ebenfalls, ob der Benutzer überhaupt auf einen Eintrag geklickt hat und nicht etwa in den leeren Bereich des Listenfeldes.<\/p>\n Listing 2: Löschen einer Aktivitätsbezeichnung<\/p>\n Falls ja, erscheint ein Meldungsfenster mit der Frage, ob der Benutzer den Datensatz wirklich löschen möchte. Falls ja, verwendet die Prozedur die Execute<\/b>-Methode des aktuellen Database<\/b>-Objekts, um eine entsprechende DELETE<\/b>-Abfrage auszuführen. Anschließend wird das Listenfeld aktualisiert.<\/p>\n Aktivitätsbezeichnungen im Detail<\/b><\/p>\n Das Formular frmAktivitaetsbezeichnungenDetail <\/b>zeigt eine einzelne Aktivitätsbezeichnung an und erlaubt das Einstellen der Bezeichnung sowie der Kategorie, unter der diese Bezeichnung geführt wird (s. Bild 8).<\/p>\n Bild 8: Das Formular mit der Detailansicht einer Aktivitätsbezeichnung in der Entwurfsansicht<\/span><\/b><\/p>\n Ein spezielles Feature dieses Formulars ist die Möglichkeit, neue Kategorien direkt in das Kombinationsfeld einzutragen. Dies wird durch die Prozedur aus Listing 3<\/a><\/span> realisiert, die durch das Ereignis Bei Nicht in Liste <\/b>ausgelöst wird.<\/p>\n Listing 3: Anlegen einer neuen Aktivitätsbezeichnung<\/p>\n <\/p>\n Die Prozedur speichert den mit dem Parameter NewData <\/b>übergebenen Wert in der Tabelle tblAktivitaetskategorien <\/b>und gibt für den Parameter Response <\/b>den Wert acDataErrAdded <\/b>zurück, was die sonst erscheinende Meldung vermeidet.<\/p>\n Ein Klick auf die Schaltfläche cmdDetails<\/b> rechts vom Kombinationsfeld zur Auswahl der Kategorie löst die Prozedur aus Listing 4<\/a><\/span> aus. Diese öffnet das Formular frmAktivitaetskategorien<\/b>. Dieses funktioniert prinzipiell genau so wie das Formular frmAktivitaetsbezeichnungen<\/b>.<\/p>\n Listing 4: Öffnen der Übersicht der Kategorien<\/p>\n Interessant ist jedoch folgendes Feature: Beim Öffnen des Formulars zum Bearbeiten eines vorhandenen Datensatzes wird dieser direkt im Listenfeld markiert. Dazu wird erstens der aktuell im Kombinationsfeld cboAktivitaetskategorie <\/b>ausgewählte Eintrag mit dem Parameter OpenArgs<\/b> an das aufgerufene Formular übergeben.<\/p>\n Dann prüft die Prozedur, die beim Laden des so geöffneten Formulars ausgelöst wird, den Wert des Öffnungsarguments. Sie prüft, ob das Öffnungsargument gefüllt ist, und stellt das Listenfeld auf den damit übergebenen Wert ein:<\/p>\n Nach dem Schließen des Formulars frmAktivitaetskategorien <\/b>prüft die aufrufende Prozedur cmdDetails_Click<\/b>, ob das Formular noch geöffnet ist. Falls ja, liest sie den den Wert der im Listenfeld ausgewählten Kategorie ein und legt diese für das Kombinationsfeld cboAktivitaetskategorie <\/b>fest.<\/p>\n Beim Schließen des Detailformulars frmAktivitaetsbezeichnungDetails <\/b>ist Vorsicht angesagt. Wenn Sie ein Formular mit der DoCmd.Close<\/b>-Methode schließen, das gebundene Felder mit Restriktionen enthält, können Probleme auftreten.<\/p>\n Wenn der aktuelle Datensatz die Restriktionen nämlich nicht erfüllt, wird das Formular einfach geschlossen, ohne den Datensatz zu speichern – und ohne dass der Benutzer überhaupt davon erfährt, dass der Datensatz nicht gespeichert wurde! Also fügen wir in der Prozedur, die beim Klicken auf die Schaltfläche cmdOK <\/b>ausgelöst wird, vorsichtshalber eine kleine Validierung durch (s. Listing 5<\/a><\/span>).<\/p>\n Listing 5: Schließen des Formulars frmAktivitaetskategorien<\/p>\n Diese prüft zunächst, ob die Daten des aktuellen Datensatzes überhaupt geändert wurden. Falls ja, untersucht die Prozedur die Werte der beiden Felder auf Gültigkeit. Nur wenn beide in Ordnung sind, wird das Formular geschlossen, sonst erscheint eine entsprechende Meldung.<\/p>\n Das Formular zum Zählen der Aktivitäten<\/b><\/p>\n Auch wenn das Formular zum Zählen der Aktivitäten so harmlos aussieht, so ist doch die Darstellung nicht gerade trivial. Das Formular selbst ist recht einfach aufgebaut, wie die Entwurfsansicht aus Bild 9 zeigt.<\/p>\n Bild 11: Die erste Teilabfrage liefert bereits gespeicherte Aktivitäten.<\/span><\/b><\/p>\n Das Problem bei der Anzeige ist, dass es immer alle in der Tabelle tblAktivitaetsbezeichnungen <\/b>enthaltenen Einträge anzeigen soll – auch wenn noch gar keine Aktivitäten für den aktuellen Tag vorliegen (s. Bild 10).<\/p>\n Bild 9: Entwurfsansicht des Hauptformulars der Anwendung<\/span><\/b><\/p>\n Man könnte es sich nun natürlich einfach machen und einfach im Voraus für jede Aktivität und jeden Tag einen Eintrag in der Tabelle tblAktivitaeten <\/b>anlegen. Dies würde allerdings regelmäßig änderungen am Datenbestand nach sich ziehen – beispielsweise, wenn der Benutzer eine Aktivitätsbezeichnung hinzufügt oder entfernt. Also wählen wir die dynamische Variante, bei der wir die Datenherkunft für das Formular über eine Abfrage erstellen.<\/p>\n Diese realisieren wir über zwei aufeinander aufbauende Abfragen. Die erste Abfrage namens qryAktivitaetenNachDatum <\/b>sieht wie in Bild 11 aus und ermittelt zunächst alle Datensätze der Tabelle tblAktivitaeten <\/b>für den heutigen Tag. Damit das Datum dynamisch angepasst werden kann, fügen Sie einen Parameter namens prmAktivitaetDatum <\/b>hinzu.<\/p>\n Bild 10: Das Formular zeigt alle Aktivitätsbezeichnungen an, auch wenn es noch keine Aktivitäten gibt.<\/span><\/b><\/p>\n Die zweite Abfrage führt die Ergebnisse der ersten Abfrage mit den Daten der beiden Tabellen tblAktivitaetsbezeichnungen <\/b>und tblAktivitaetskategorien <\/b>zusammen (s. Bild 12). Diese beiden Tabellen werden grundsätzlich benötigt, damit Kategorie und Aktivitätsbezeichnung in der Liste angezeigt werden können.<\/p>\n Bild 12: Die zweite Teilabfrage führt die Ergebnisse der ersten Abfrage mit allen Aktivitätsbezeichnungen zusammen.<\/span><\/b><\/p>\n Die Abfrage qryAktivitaetenNachDatum <\/b>wird über eine Outer Join<\/b>-Beziehung mit der Tabelle tblAktivitaeten <\/b>verknüpft. Dies sorgt dafür, dass die Abfrage alle Aktivitätsbezeichnungen samt Kategorie liefert, aber nur die vorliegenden Datensätze der Tabelle tblAktivitaeten<\/b>.<\/p>\n Das Ergebnis sieht wie in Bild 13 aus. Dort, wo keine Datensätze in der Tabelle tblAktivitaeten<\/b> vorliegen, trägt Access einfach eine 0 <\/b>in das Feld AktivitaetAnzahl <\/b>ein.<\/p>\n Bild 13: Im Ergebnis fällt es nicht auf, dass die Tabelle tblAktivitaeten für einige Aktivitätsbezeichnungen gar keine Daten liefert. Diese werden schlicht durch den Wert 0 ersetzt.<\/span><\/b><\/p>\n Sicher fragen Sie sich nun, warum man nicht einfach mit einer einzigen Abfrage arbeiten kann und den Parameter direkt in der zweiten Abfrage unterbringt. Der Grund ist, dass die Abfrage dann erst die Aktivitätsbezeichnungen und die Aktivitäten zusammenführt und erst dann nach dem Datum filtert, wodurch bei Tagen, an denen nicht alle Aktivitäten ausgeführt wurden, nicht alle Aktivitäten zurückgeliefert werden (siehe qryAktivitaeten_Fehlversuch<\/b>).<\/p>\n Datenherkunft einstellen<\/b><\/p>\n Die Abfrage qryAktivitaeten <\/b>könnten Sie theoretisch direkt als Datenherkunft des Formulars eintragen. Allerdings stört der Parameter prmAktivitaetDatum<\/b>, der zuvor noch gefüllt werden muss.<\/p>\n Sie könnten statt dieses Parameters direkt auf das Feld mit dem Datum verweisen (Forms!frmAktivitaeten!txtDatum<\/b>), aber wir setzen den Parameter per VBA, um die Abfrage gegebenenfalls unabhängig vom Formular testen und einsetzen zu können. Dies geschieht mit der folgenden Prozedur, die zu verschiedenen Gelegenheiten aufgerufen wird:<\/p>\n Die Prozedur erstellt ein QueryDef<\/b>-Objekt auf Basis der Abfrage qryAktivitaeten<\/b>, setzt einen Wert für den Parameter prmAktivitaetDatum <\/b>ein, öffnet ein Recordset auf Basis der Abfrage und weist es der Eigenschaft Recordset <\/b>des Formulars zu.<\/p>\n Was aber ist m_Datum<\/b> Sollte hier nicht der Bezug auf das Textfeld stehen, welches das aktuelle Datum liefert Ja, das ist der Fall. Allerdings soll das Formular einigermaßen flexibel einsetzbar sein, sodass Sie es beispielsweise als Teil weiterer Lösungen einsetzen können. Ein Beispiel ist der Einsatz als Unterformular im Hauptformular der Lösung aus dem Beitrag Tagesablauf verwalten mit dem aiuTimeplanner <\/b>(www.access-im-unternehmen.de\/830<\/b>). Dieses Formular besitzt bereits ein Textformular zur Eingabe des Datums, das Sie ganz einfach für das hier vorgestellte Formular mitnutzen können, indem Sie es entsprechend referenzieren. Daher verwenden wir im Code eine Objektvariable, die Sie mit einem Verweis auf ein beliebiges Textfeld füllen können:<\/p>\n In der Beispieldatenbank verwenden wir ein Textfeld, das zusätzlich mit den Funktionen der Klasse clsDatebox <\/b>bestückt wurde. Diese Klasse wird im Beitrag Datumsfelder mit Klasse <\/b>(www.access-im-unternehmen.de\/831<\/b>) vorgestellt. Um die Funktionen greifbar zu machen, deklarieren Sie zunächst eine entsprechende Objektvariable mit dem Schlüsselwort WithEvents<\/b>:<\/p>\n Den Rest der Arbeit übernimmt die Prozedur, die durch das Ereignis Beim Laden <\/b>des Formulars frmAktivitaeten<\/b> ausgelöst wird. Dieses stellt zunächst das Textfeld txtDatum <\/b>auf das aktuelle Datum ein und weist dieses Textfeld der Objektvariablen m_Datum <\/b>zu. Wenn Sie das Datum nun von einem anderen Textfeld beziehen möchten, brauchen Sie nur die Zuweisung zu ändern und müssen den Namen des Textfelds nicht im kompletten Code ändern.<\/p>\n Danach wird ein neues Objekt auf Basis der Klasse clsDatebox <\/b>erstellt und seine Eigenschaft Datebox <\/b>mit einem Verweis auf das mit m_Datum <\/b>referenzierte Textfeld gefüllt. Zu guter Letzt ruft die Prozedur die Routine DatenherkunftSetzen <\/b>auf, damit die Aktivitäten für den aktuell im Textfeld angegebenen Tag angezeigt werden:<\/p>\n Anderes Datum einstellen<\/b><\/p>\n Die Klasse clsDatebox <\/b>liefert die Möglichkeit, das Datum durch Platzieren der Einfügemarke auf Tag, Monat oder Jahr des Textfeldes und Betätigen der Tasten Nach oben <\/b>und Nach unten <\/b>einzustellen. <\/p>\n Für änderungen um jeweils einen Tag haben wir außerdem zwei Schaltflächen hinzugefügt, die jeweils zum vorherigen beziehungsweise zum folgenden Tag wechseln.<\/p>\n Die beiden Schaltflächen lösen beim Klicken die folgenden beiden Prozeduren aus, die das Datum anpassen und anschließend die Routine DatenherkunftSetzen<\/b> auslösen:<\/p>\n Auch das manuelle ändern des Datums muss berücksichtigt werden. Dies erledigt die folgende Prozedur, die auf das Ereignis Nach Aktualisierung <\/b>des Textfeldes reagiert:<\/p>\n Und schließlich liefert die Klasse clsDatebox <\/b>ein Ereignis, das bei jeder änderung des Datums ausgelöst wird.<\/p>\n Da die Routine DatenherkunftSetzen <\/b>den Fokus jeweils auf die erste angezeigte Aktivität verschiebt, haben wir um den Aufruf herum ein paar Anweisungen platziert, die sich die aktuelle Position der Eingabemarke im Textfeld merken und diese nach dem Aufrufen von DatenherkunftSetzen <\/b>wieder zurücksetzen:<\/p>\n Aktivitäten zählen<\/b><\/p>\n Kommen wir zu den beiden Schaltflächen, die für jede Aktivität abgebildet werden und die jeweils die Anzahl um eins nach oben oder unten verändern sollen.<\/p>\n Wenn der Benutzer die Anzahl für eine Aktivität um eins erhöhen möchte, klickt er auf die Schaltfläche cmdPlus <\/b>und löst damit die Ereignisprozedur aus Listing 6<\/a><\/span> aus.<\/p>\n Listing 6: Erhöhen der Anzahl einer Aktivität<\/p>\n Beim Erhöhen der Anzahl einer Aktivität gibt es zwei Möglichkeiten: Entweder es gibt bereits einen Datensatz für die Aktivität in der Tabelle tblAktivitaeten<\/b>, die das Zieldatum aufweist, oder nicht.<\/p>\n Die Prozedur geht zunächst vom ersten Fall aus und versucht, mit einer UPDATE<\/b>-Abfrage die Anzahl der Aktivitäten für die angegebene Aktivitätsbezeichnung und das gewählte Datum um eins zu erhöhen.<\/p>\n Ob dies gelungen ist oder nicht, ergibt die anschließende Abfrage der Eigenschaft RecordsAffected <\/b>des Database<\/b>-Objekts. Diese liefert die Anzahl der von der zuletzt ausgeführten Aktionsabfrage betroffenen Datensätze zurück. Ist dieser größer 0<\/b>, war die Abfrage erfolgreich und der Wert des Feldes AktivitaetAnzahl <\/b>wurde um eins erhöht.<\/p>\n Liefert die Eigenschaft jedoch den Wert 0<\/b>, wurde kein Datensatz verändert, was darauf zurückzuführen ist, dass noch kein entsprechender Datensatz in der Tabelle tblAktivitaeten <\/b>vorliegt.<\/p>\n Auch das ist kein Problem: Dann legt die folgende INSERT INTO<\/b>-Aktionsabfrage einen neuen Datensatz mit den entsprechenden Werten für die Felder AktivitaetsbezeichnungID<\/b>, AktivitaetDatum <\/b>und AktivitaetAnzahl <\/b>in der Tabelle tblAktivitaeten <\/b>an.<\/p>\n Anschließend sorgt ein Aufruf der Prozedur DatenherkunftSetzen <\/b>noch für die Aktualisierung der Anzeige.<\/p>\n Vermindern der Anzahl einer Aktivität<\/b><\/p>\n Gelegentlich erhöht man vielleicht die Anzahl für die falsche Aktivität. Um dies zu korrigieren, gibt es die Schaltfläche cmdMinus<\/b>. Diese löst die Prozedur aus Listing 7<\/a><\/span> aus.<\/p>\n Listing 7: Vermindern der Anzahl einer Aktivität<\/p>\n Die Prozedur führt schlicht eine UPDATE-Aktionsabfrage aus, die den Wert des Feldes AktivitaetAnzahl <\/b>um eins vermindert. Diese Abfrage wird jedoch nur ausgeführt, wenn die Anzahl für das Feld AktivitaetAnzahl <\/b>der jeweiligen Aktivität überhaupt größer als 0<\/b> ist.<\/p>\n Aktivitätsbezeichnungen hinzufügen<\/p>\n![\"pic003.png\"](\"..\/fileadmin\/_temp_\/2012_03\/AktivitaetenZaehlen-web-images\/pic003.png\")
<\/p>\n![\"pic004.png\"](\"..\/fileadmin\/_temp_\/2012_03\/AktivitaetenZaehlen-web-images\/pic004.png\")
<\/p>\n![\"pic005.png\"](\"..\/fileadmin\/_temp_\/2012_03\/AktivitaetenZaehlen-web-images\/pic005.png\")
<\/p>\n![\"pic001.png\"](\"..\/fileadmin\/_temp_\/2012_03\/AktivitaetenZaehlen-web-images\/pic001.png\")
<\/p>\n![\"pic007.png\"](\"..\/fileadmin\/_temp_\/2012_03\/AktivitaetenZaehlen-web-images\/pic007.png\")
<\/p>\n![\"pic006.png\"](\"..\/fileadmin\/_temp_\/2012_03\/AktivitaetenZaehlen-web-images\/pic006.png\")
<\/p>\nPrivate Sub lst_DblClick(Cancel As Integer)\r\n If Not IsNull(Me!lst) Then\r\n DoCmd.OpenForm "frmAktivitaetsbezeichnungdetails", WindowMode:=acDialog, _\r\n WhereCondition:="AktivitaetsbezeichnungID = " & Me!lst, DataMode:=acFormEdit\r\n Me!lst.Requery\r\n End If\r\nEnd Sub<\/pre>\n
Private Sub cmdNeu_Click()\r\n DoCmd.OpenForm "frmAktivitaetsbezeichnungDetails", WindowMode:=acDialog, DataMode:=acFormAdd\r\n Me!lst.Requery\r\nEnd Sub<\/pre>\n
Private Sub cmdLoeschen_Click()\r\n Dim db As DAO.Database\r\n If Not IsNull(Me!lst) Then\r\n If MsgBox("Soll die Aktivitätsbezeichnung ''" & Me!lst.Column(1) & "'' wirklich gelöscht werden", _\r\n vbYesNo + vbExclamation, "Aktivitätsbezeichnung löschen") = vbYes Then\r\n Set db = CurrentDb\r\n db.Execute "DELETE FROM tblAktivitaetsbezeichnungen WHERE AktivitaetsbezeichnungID = " & Me!lst\r\n Me!lst.Requery\r\n Set db = Nothing\r\n End If\r\n End If\r\nEnd Sub<\/pre>\n![\"pic008.png\"](\"..\/fileadmin\/_temp_\/2012_03\/AktivitaetenZaehlen-web-images\/pic008.png\")
<\/p>\nPrivate Sub cboAktivitaetkategorieID_NotInList(NewData As String, Response As Integer)\r\n Response = acDataErrAdded\r\n Dim db As DAO.Database\r\n Set db = CurrentDb\r\n db.Execute "INSERT INTO tblAktivitaetskategorien(Aktivitaetskategorie) VALUES (''" & NewData & "'')", _\r\n dbFailOnError\r\n Set db = Nothing\r\nEnd Sub<\/pre>\nPrivate Sub cmdDetails_Click()\r\n DoCmd.OpenForm "frmAktivitaetskategorien", WindowMode:=acDialog, _\r\n OpenArgs:=Me!cboAktivitaetkategorieID\r\n If IstFormularGeoeffnet("frmAktivitaetskategorien") Then\r\n Me!cboAktivitaetkategorieID = Forms!frmAktivitaetskategorien!lst\r\n DoCmd.Close acForm, "frmAktivitaetskategorien"\r\n End If\r\nEnd Sub<\/pre>\nPrivate Sub Form_Load()\r\n If Not IsNull(Me.OpenArgs) Then\r\n Me!lst = Me.OpenArgs\r\n End If\r\nEnd Sub<\/pre>\n
Private Sub cmdOK_Click()\r\n If Me.Dirty Then\r\n If IsNull(Me!txtAktivitaetsbezeichnung) Then\r\n MsgBox "Geben Sie eine Bezeichnung ein."\r\n Me!txtAktivitaetsbezeichnung.SetFocus\r\n Exit Sub\r\n End If\r\n If IsNull(Me!cboAktivitaetkategorieID) Then\r\n MsgBox "Wählen Sie eine Kategorie aus."\r\n Me!cboAktivitaetkategorieID.SetFocus\r\n Exit Sub\r\n End If\r\n End If\r\n DoCmd.Close acForm, Me.Name\r\nEnd Sub<\/pre>\n
![\"pic011.png\"](\"..\/fileadmin\/_temp_\/2012_03\/AktivitaetenZaehlen-web-images\/pic011.png\")
<\/p>\n![\"pic009.png\"](\"..\/fileadmin\/_temp_\/2012_03\/AktivitaetenZaehlen-web-images\/pic009.png\")
<\/p>\n![\"pic010.png\"](\"..\/fileadmin\/_temp_\/2012_03\/AktivitaetenZaehlen-web-images\/pic010.png\")
<\/p>\n![\"pic012.png\"](\"..\/fileadmin\/_temp_\/2012_03\/AktivitaetenZaehlen-web-images\/pic012.png\")
<\/p>\n![\"pic013.png\"](\"..\/fileadmin\/_temp_\/2012_03\/AktivitaetenZaehlen-web-images\/pic013.png\")
<\/p>\nPrivate Sub DatenherkunftSetzen()\r\n Dim db As DAO.Database\r\n Dim rst As DAO.Recordset\r\n Dim qdf As DAO.QueryDef\r\n Set db = CurrentDb\r\n Set qdf = db.QueryDefs("qryAktivitaeten")\r\n qdf.Parameters("prmAktivitaetdatum") = m_Datum\r\n Set rst = qdf.OpenRecordset\r\n Set Me.Recordset = rst\r\n Set db = Nothing\r\nEnd Sub<\/pre>\nDim WithEvents m_Datum As TextBox<\/pre>\n
Dim WithEvents objDatebox As clsDatebox<\/pre>\n
Private Sub Form_Load()\r\n Me!txtDatum = Date\r\n Set m_Datum = Me!txtDatum\r\n Set objDatebox = New clsDatebox\r\n Set objDatebox.Datebox = m_Datum\r\n DatenherkunftSetzen\r\nEnd Sub<\/pre>\n
Private Sub cmdTagVor_Click()\r\n m_Datum.Value = m_Datum.Value + 1\r\n DatenherkunftSetzen\r\nEnd Sub\r\nPrivate Sub cmdTagZurueck_Click()\r\n m_Datum.Value = m_Datum.Value - 1\r\n DatenherkunftSetzen\r\nEnd Sub<\/pre>\n
Private Sub m_Datum_AfterUpdate()\r\n DatenherkunftSetzen\r\nEnd Sub<\/pre>\n
Private Sub objDatebox_DateChange()\r\n Dim intSelStart As Integer\r\n Dim intSelLength As Integer\r\n intSelStart = m_Datum.SelStart\r\n intSelLength = m_Datum.SelLength\r\n DatenherkunftSetzen\r\n m_Datum.SetFocus\r\n m_Datum.SelStart = intSelStart\r\n m_Datum.SelLength = intSelLength\r\nEnd Sub<\/pre>\n
Private Sub cmdPlus_Click()\r\n Dim db As DAO.Database\r\n Dim strSQL As String\r\n Set db = CurrentDb\r\n strSQL = "UPDATE tblAktivitaeten SET AktivitaetAnzahl = AktivitaetAnzahl + 1 " _\r\n & "WHERE AktivitaetsbezeichnungID = " & Me!AktivitaetsbezeichnungID _\r\n & " AND Aktivitaetdatum = " & ISODatum(m_Datum)\r\n db.Execute strSQL, dbFailOnError\r\n If db.RecordsAffected = 0 Then\r\n strSQL = "INSERT INTO tblAktivitaeten(AktivitaetsbezeichnungID, AktivitaetDatum, " _\r\n & "AktivitaetAnzahl) VALUES(" & Me!AktivitaetsbezeichnungID & ", " _\r\n & ISODatum(m_Datum) & ", 1)"\r\n db.Execute strSQL, dbFailOnError\r\n End If\r\n Set db = Nothing\r\n DatenherkunftSetzen\r\nEnd Sub<\/pre>\nPrivate Sub cmdMinus_Click()\r\n Dim db As DAO.Database\r\n If Me!AktivitaetAnzahl > 0 Then\r\n Set db = CurrentDb\r\n db.Execute "UPDATE tblAktivitaeten SET AktivitaetAnzahl = AktivitaetAnzahl -1 " _\r\n & "WHERE AktivitaetsbezeichnungID = " & Nz(Me!AktivitaetsbezeichnungID, 0) _\r\n & " AND Aktivitaetdatum = " & ISODatum(m_Datum), dbFailOnError\r\n Set db = Nothing\r\n Me.Requery\r\n End If\r\nEnd Sub<\/pre>\n