<\/p>\n
Es gibt immer wieder Standardabl\u00e4ufe im B\u00fcroalltag. Bei mir ist es das Schreiben von Artikeln. F\u00fcr jeden Artikel gibt es einige Aufgaben, die immer in der gleichen Reihenfolge ablaufen. Wer denkt, das geht nach 20 Jahren automatisch, irrt sich – immer wieder bleibt mal eine Teilaufgabe liegen oder wird nicht in der richtigen Reihenfolge erledigt. Um das zu \u00e4ndern, erstellen wir in diesem Beitrag eine L\u00f6sung, um wiederkehrende, nach dem gleichen Schema ablaufende Aufgaben zu verfolgen. Dazu speichern wir die einzelnen Schritte als Felder in einer Tabelle. \u00dcber die Benutzeroberfl\u00e4che stellen wir die Aufgaben und die Teilschritte optisch so dar, dass die nun zu erledigenden Teilaufgaben immer im Blickfeld sind!<\/b><\/p>\nBeispiel f\u00fcr einen Workflow<\/h2>\n
Wie sieht ein beispielhafter Workflow aus Ich w\u00e4hle gleich den aus meiner t\u00e4glichen Arbeit – das Erstellen eines Beitrags etwa f\u00fcr das vorliegende Magazin. Hier tauchen die folgenden Aufgaben auf:<\/p>\n
Zus\u00e4tzlich gibt es je Magazin noch eine Reihe weiterer Aufgaben:<\/p>\n
Das sind bereits einige Aufgaben, die im Alltag noch etwas detaillierter ausfallen. Sie sollen jedoch reichen, um Beispielmaterial f\u00fcr die zu erstellende L\u00f6sung zu liefern.<\/p>\n
In der Praxis gibt es f\u00fcr jeden Beitrag einen neuen Workflow und auch f\u00fcr jede neue Ausgabe. Wir k\u00f6nnten noch einen Schritt weitergehen und die Workflows einander unterordnen, also beispielsweise die Beitrags-Workflows den Magazin-Workflows zuweisen. Dies wollen wir aus Gr\u00fcnden der \u00dcbersicht in diesem Beitrag nicht erledigen.<\/p>\n
Wenn Sie immer wiederkehrende Unteraufgaben haben, k\u00f6nnen Sie einfach f\u00fcr jede Aufgabe ein Kontrollk\u00e4stchen zur Aufgabe hinzuf\u00fcgen und diese nach Erledigung der Aufgaben abhaken. Damit wissen Sie jederzeit, welchen Stand die Aufgabe hat. Wenn die Unteraufgaben sich nicht ver\u00e4ndern, ist das auch die beste und einfachste Methode.<\/p>\n
Wenn wir bei meinem Beispiel bleiben, wo sich die Unteraufgaben beim Schreiben eines Beitrags nie \u00e4ndern, k\u00f6nnen Sie einfach f\u00fcr jede Unteraufgabe ein Ja\/Nein<\/b>-Feld zu der Tabelle hinzuf\u00fcgen, in der Sie auch weitere Daten zu den Beitr\u00e4gen speichern – wie den Titel, den Inhalt et cetera.<\/p>\n
Der Entwurf der Tabelle tblBeitraege<\/b> sieht danach etwa wie in Bild 1 aus.<\/p>\n
![\"Einfache](\"..\/fileadmin\/_temp_\/2021_01\/pic_1288_001.png\")
<\/p>\n
Bild 1: Einfache Variante zum Einbau eines Workflows<\/span><\/b><\/p>\n Danach k\u00f6nnen Sie die Felder wie in Bild 2 in einem Formular zur Bearbeitung der Beitr\u00e4ge unterbringen. Damit erhalten Sie einen detaillierten \u00dcberblick \u00fcber alle Daten zu einem Beitrag.<\/p>\n Bild 2: Formularentwurf mit Ja\/Nein-Feldern<\/span><\/b><\/p>\n Noch praktischer f\u00fcr einen \u00dcberblick \u00fcber alle Aufgaben ist eine \u00dcbersicht der Aufgaben mehrerer Beitr\u00e4ge in einem Endlosformular oder in einem Datenblatt. Gegebenenfalls k\u00f6nnen Sie auch ein Listenfeld nutzen.<\/p>\n Damit sehen wir nun, wie weit jeder Beitrag ist und welche Aufgaben noch zu erledigen sind. Aber was, wenn der Lektor fragt, wo der Beitrag bleibt, sie diesen aber schon als verschickt gekennzeichnet haben Dann m\u00fcssen Sie gegebenenfalls den kompletten Ordner der gesendeten Elemente in Outlook durchsuchen.<\/p>\n Etwas einfacher geht es, wenn Sie zumindest wissen, wann Sie den Beitrag an den Lektor verschickt haben. Zu diesem Zweck \u00e4ndern wir den Datentyp der Ja\/Nein<\/b>-Felder der Tabelle tblBeitraege <\/b>in Datum\/Zeit <\/b>um (siehe Bild 3).<\/p>\n Bild 3: Tabelle mit Datum\/Uhrzeit-Feldern<\/span><\/b><\/p>\n Allerdings wollen wir diese Information nur abrufen, wenn unbedingt n\u00f6tig. In einer \u00dcbersicht hingegen sollen nur Kontrollk\u00e4stchen angezeigt werden, die angeben, ob die Unteraufgabe erledigt wurde oder nicht. In der Detailansicht wollen wir auch nur Kontrollk\u00e4stchen anzeigen, die der Benutzer nach Erledigung einer Teilaufgabe abhaken kann. Nach dem Abhaken soll dann das Datum der Erledigung in das betroffene Feld eingetragen werden.<\/p>\n Zusammenfassend: Die Tabelle soll ein Datumsfeld f\u00fcr das Erledigungsdatum einer jeden Unteraufgabe enthalten. Die Formulare hingegen sollen ein Kontrollk\u00e4stchen anzeigen. Das Kontrollk\u00e4stchen soll angehakt sein, wenn das Datumsfeld nicht leer ist, wenn es leer ist, soll das Kontrollk\u00e4stchen keinen Haken enthalten. Au\u00dferdem soll, wenn der Benutzer einen Haken in ein Kontrollk\u00e4stchen setzt, das Erledigungsdatum in das zugrunde liegende Datum\/Zeit<\/b>-Feld eingetragen werden.<\/p>\n Wir haben also ein Datum\/Zeit<\/b>-Feld, dessen Status Null<\/b>\/Nicht Null <\/b>in Form des Wertes eines Kontrollk\u00e4stchens erscheinen soll. Dazu ben\u00f6tigen wir eine technische L\u00f6sung, die zum Beispiel in einer entsprechend formulierten Abfrage liegen k\u00f6nnte. Diese w\u00fcrde f\u00fcr jedes Unteraufgaben-Feld zwei Felder enthalten – einmal das Datum\/Zeit<\/b>-Feld und ein weiteres Feld, das pr\u00fcft, ob das Datum\/Zeit<\/b>-Feld bereits einen Wert enth\u00e4lt oder nicht und abh\u00e4ngig davon den Wert True <\/b>oder False <\/b>ausgibt.<\/p>\n Diese Abfrage formulieren wir wie in Bild 4. Sie enth\u00e4lt das Feld BeitragGeschrieben <\/b>und ein berechnetes Feld namens BeitragGeschriebenJaNein<\/b>, das den Wert -1 <\/b>liefert, wenn das Feld BeitragGeschrieben <\/b>gef\u00fcllt ist:<\/p>\n Bild 4: Abfrage, die sowohl das Datum\/Zeit-Feld als auch ein davon abh\u00e4ngiges Ja\/Nein-Feld liefert.<\/span><\/b><\/p>\n Bild 5 zeigt, wie das Ergebnis der Abfrage f\u00fcr zwei Datens\u00e4tze aussieht, von denen einer einen Datumswert im Feld BeitragGeschrieben <\/b>aufweist und der andere den Wert Null<\/b>.<\/p>\n Bild 5: Ergebnis der Abfrage mit je einem gef\u00fcllten und einem nicht gef\u00fcllten BeitragGeschrieben-Feld <\/span><\/b><\/p>\n Wir w\u00fcrden nun gern noch das berechnete Feld BeitragGeschriebenJaNein <\/b>als Kontrollk\u00e4stchen in der Datenblattansicht anzeigen. Dazu verwenden wir normalerweise die Eigenschaft Steuerelement anzeigen <\/b>im Bereich Nachschlagen <\/b>der Eigenschaften einer Spalte der Abfrage. Hier finden wir allerdings nur die drei M\u00f6glichkeiten Textfeld<\/b>, Listenfeld <\/b>und Kombinationsfeld <\/b>vor (siehe Bild 6). Anders ist es, wenn wir ein Abfragefeld auf Basis eines Ja\/Nein<\/b>-Feldes erstellen – dann stehen Kontrollk\u00e4stchen, Textfeld und Kombinationsfeld zur Verf\u00fcgung. Da dies hier nicht der Fall ist, m\u00fcssen wir in den sauren Apfel bei\u00dfen und vorerst mit Textfeldern arbeiten.<\/p>\n Bild 6: Die Anzeige als Kontrollk\u00e4stchen ist nicht m\u00f6glich.<\/span><\/b><\/p>\n Der Nachteil davon zeigt sich, wenn wir das nun in einen Formular abbilden wollen – wir h\u00e4tten dort f\u00fcr die berechneten Ja\/Nein<\/b>-Felder gern direkt Kontrollk\u00e4stchen erhalten, aber beim Hinzuf\u00fcgen im Formularentwurf \u00fcbernimmt Access den in der Tabelle beziehungsweise Abfrage voreingestellten Steuerelementtyp.<\/p>\n Wenn wir die Felder aus der Abfrage, welche die Ja\/Nein<\/b>-Ausdr\u00fccke f\u00fcr die Datumsfelder berechnen, in das Formular ziehen und versuchen, diese in Kontrollk\u00e4stchen umzuwandeln, finden wir auch hier diese M\u00f6glichkeit nicht vor (siehe Bild 7).<\/p>\n Bild 7: Textfelder k\u00f6nnen nicht in Kontrollk\u00e4stchen umgewandelt werden<\/span><\/b><\/p>\n Also m\u00fcssen wir wohl oder \u00fcbel jeweils ein Kontrollk\u00e4stchen f\u00fcr jedes Feld in den Formularentwurf ziehen und dann der Eigenschaft Steuerelementinhalt <\/b>die berechneten Ja\/Nein<\/b>-Felder der als Datensatzquelle verwendeten Abfrage zuweisen. Au\u00dferdem benennen wir die Kontrollk\u00e4stchen auch direkt mit dem passenden Pr\u00e4fix, also beispielsweise chkBeitragGeschrieben<\/b>.<\/p>\n F\u00fcr das berechnete Feld BeitragGeschriebenJaNein<\/b> sieht das Kontrollk\u00e4stchen wie in Bild 8 aus: Es hat den Namen chkBeitragGeschrieben <\/b>und den Steuerelementinhalt BeitragGeschriebenJaNein<\/b>.<\/p>\n Bild 8: Kontrollk\u00e4stchen f\u00fcr die Unteraufgaben<\/span><\/b><\/p>\n Rechts daneben wollen wir nun noch das Datum abbilden f\u00fcr den Fall, dass die Unteraufgabe bereits erledigt wurde. Dazu f\u00fcgen wir noch die entsprechenden Textfelder hinzu. Diese markieren wir in der Feldliste und ziehen sie gleich neben die bereits angelegten Kontrollk\u00e4stchen. Die mit diesen Textfeldern ebenfalls zum Formularentwurf hinzugef\u00fcgten Bezeichnungsfelder markieren wir und l\u00f6schen diese direkt wieder. Die Textfelder platzieren wir so, dass sie sich direkt neben den Kontrollk\u00e4stchen befinden.<\/p>\n <\/p>\n Die Namen der Textfelder erg\u00e4nzen wir ebenfalls noch um das entsprechende Pr\u00e4fix, in diesem Fall txt. Das Textfeld f\u00fcr die erste Unteraufgabe hei\u00dft so beispielsweise txtBeitragGeschrieben<\/b>.<\/p>\n Nun fehlt noch Code, der daf\u00fcr sorgt, dass die Textfelder nur erscheinen, wenn die jeweilige Unteraufgabe bereits erledigt wurde. Diesen platzieren wir in der Prozedur, die durch das Ereignis Beim Anzeigen <\/b>des Formulars ausgel\u00f6st wird. Diese Prozedur finden Sie in Listing 1.<\/p>\n Listing 1: Ein- oder Ausblenden der Datumsfelder f\u00fcr erledigte Unteraufgaben<\/span><\/b><\/p>\n Hier berechnen wir f\u00fcr jedes Datumsfeld der Datensatzquelle, ob es den Wert Null hat und stellen die Eigenschaft Visible des dazugeh\u00f6renden Textfeldes zur Anzeige des Datums so ein, dass es nur angezeigt wird, wenn ein Datum gespeichert ist.<\/p>\n Wenn der Benutzer eine Aufgabe erledigt, markiert er das entsprechende Kombinationsfeld. Dann soll automatisch das aktuelle Datum plus Uhrzeit in das betreffende Datumsfeld eingetragen werden.<\/p>\n Das erste Problem ist, dass es sich bei dem Ja\/Nein<\/b>-Feld aus der Abfrage um ein berechnetes Feld handelt und wir es nicht direkt bearbeiten k\u00f6nnen. Access zeigt beim Versuch in der Statusleiste den folgenden Text an:<\/p>\n Der Ansatz mit dem gebundenen Ja\/Nein<\/b>-Feld war ein Holzweg, denn auch \u00fcber das Abfangen mit verschiedenen Ereignisprozeduren k\u00f6nnen wir die Anzeige dieser Meldung und das damit verbundene akustische Signal nicht abfangen.<\/p>\n Wir heben also die Bindung f\u00fcr die Kontrollk\u00e4stchen an die Felder der Datensatzquelle auf, indem wir die Eigenschaft Steuerelementinhalt <\/b>f\u00fcr alle Kontrollk\u00e4stchen leeren. Dann stellen wir, ebenfalls in der Prozedur Form_Current<\/b>, die Werte dieser Kontrollk\u00e4stchen per Code ein.<\/p>\n Dazu f\u00fcgen wir oben die Zeilen aus Listing 2 ein. Die Anweisungen stellen jeweils den Wert der Kontrollk\u00e4stchen auf das negierte Ergebnis der IsNull<\/b>-Funktion f\u00fcr das entsprechende Datumsfeld ein. Damit wird der Wert des Datumsfeldes immer noch nicht gesetzt, wenn der Benutzer eines der Kontrollk\u00e4stchen aktiviert. Dazu legen wir beispielsweise f\u00fcr das Kontrollk\u00e4stchen chkBeitragGeschrieben <\/b>die folgende Ereignisprozedur an:<\/p>\n Listing 2: Setzen der Kontrollk\u00e4stchen<\/span><\/b><\/p>\n Diese wird nach dem Aktualisieren des Kontrollk\u00e4stchens chkBeitragGeschrieben <\/b>ausgel\u00f6st und pr\u00fcft seinen Wert.<\/p>\n Hat der Benutzer das Kontrollk\u00e4stchen aktiviert, erh\u00e4lt das Feld BeitragGeschrieben <\/b>das aktuelle Datum als Wert und das daran gebundene Textfeld txtBeitragGeschrieben <\/b>wird \u00fcber das Einstellen der Eigenschaft Visible <\/b>sichtbar gemacht.<\/p>\n Anderenfalls leert die Prozedur das Feld BeitragGeschrieben <\/b>und blendet das Textfeld txtBeitragGeschrieben <\/b>aus.<\/p>\n Da es etwas aufwendig ist, diese Prozedur f\u00fcr alle Steuer-elemente zu erstellen, gliedern wir die Funktion aus und parametrisieren diese. Das Ergebnis sieht wie folgt aus:<\/p>\n Die Prozedur nimmt den Namen des Feldes per Parameter entgegen. Praktischerweise haben wir f\u00fcr die Kontrollk\u00e4stchen und Textfelder Namen vergeben, die sich aus dem Pr\u00e4fix chk <\/b>beziehungsweise txt <\/b>und dem Feldnamen zusammensetzen, sodass wir \u00fcber die Klammern-Syntax die Steuerelementnamen aus dem Pr\u00e4fix und dem Feldnamen zusammenstellen k\u00f6nnen.<\/p>\n Der Aufruf erfolgt mit jeweils einer Ereignisprozedur pro Kontrollk\u00e4stchen, die wir f\u00fcr das Ereignis Nach Aktualisierung <\/b>der Kontrollk\u00e4stchen hinzuf\u00fcgen:<\/p>\n Wenn wir nun noch die Ausrichtung der Textfelder auf Linksb\u00fcndig <\/b>und die Rahmenart auf Transparent <\/b>einstellen, erhalten wir das Ergebnis aus Bild 9.<\/p>\n Bild 9: Das Formular nach dem Finetuning<\/span><\/b><\/p>\n Manche Unteraufgaben sollen in einer bestimmten Reihenfolge abgearbeitet werden. F\u00fcr die Benutzeroberfl\u00e4che bedeutet dies, dass wir das Abhaken einer Aufgabe erst freigeben, wenn die vorherige Aufgabe erledigt wurde.<\/p>\n Sprich: Zu Beginn sind die Kontrollk\u00e4stchen f\u00fcr alle Aufgaben au\u00dfer f\u00fcr die erste deaktiviert. Erst nach dem Setzen eines Hakens f\u00fcr die erste Aufgabe wird die zweite Aufgabe freigeschaltet und so weiter. Auch das programmieren wir f\u00fcr unsere L\u00f6sung mit fixen Unteraufgaben manuell.<\/p>\n Dazu f\u00fcgen wir eine neue Prozedur namens KontrollkaestchenFreischalten <\/b>hinzu. Diese pr\u00fcft jeweils, ob das Feld zum vorherigen Kontrollk\u00e4stchen gef\u00fcllt ist oder nicht und aktiviert oder deaktiviert in Abh\u00e4ngigkeit davon das Kontrollk\u00e4stchen (siehe Listing 3). Der Aufruf erfolgt an verschiedenen Stellen. Die Erste ist die Prozedur Form_Current<\/b>, die jeweils beim Anzeigen des Datensatzes aufgerufen wird und bereits die Textfelder ein- und ausblendet sowie die Kontrollk\u00e4stchen f\u00fcllt:<\/p>\n Listing 3: Freischalten der Kontrollk\u00e4stchen<\/span><\/b><\/p>\n Au\u00dferdem bauen wir einen Aufruf in die Prozedur chk_AfterUpdate <\/b>ein, die nach dem Aktualisieren eines Kombinationsfeldes ausgel\u00f6st wird:<\/p>\n Damit deaktivieren wir alle Kontrollk\u00e4stchen unterhalb des ersten nicht angehakten.<\/p>\n Der Benutzer hat noch die M\u00f6glichkeit, eines der aktivierten Kontrollk\u00e4stchen wieder zu deaktivieren. Das bedeutet, dass er eine Unteraufgabe mittendrin wieder als nicht erledigt markieren kann, obwohl die folgenden Aufgaben aktiviert bleiben. Das k\u00f6nnen wir auf zwei Arten behandeln:<\/p>\n Im ersten Fall m\u00fcsste der Benutzer dann von unten nach oben alle Aufgaben bis zur zuletzt erledigten Aufgabe als nicht erledigt markieren. Im zweiten Fall sollten wir eine R\u00fcckfrage einbauen, bevor der Benutzer mehrere als erledigt markierte Unteraufgaben wieder zur\u00fccknimmt.<\/p>\n Wir w\u00e4hlen die zweite Variante, da diese f\u00fcr den Benutzer weniger Mausklicks erfordert, falls er tats\u00e4chlich einmal mehrere Unteraufgaben versehentlich als erledigt markiert hat.<\/p>\n Hier sehen wir, dass eine statische Vorgehensweise mit dem Eintragen der einzelnen Unteraufgaben als einzelne Felder in eine Tabelle f\u00fcr jeden Schritt einigen Aufwand nach sich zieht. In diesem Fall m\u00fcssen wir f\u00fcr jede Unteraufgabe, die wir als nicht erledigt markieren wollen, alle folgenden Unteraufgaben durchlaufen, was viel Arbeit bedeutet – vor allem, wo wir mit chk_AfterUpdate <\/b>schon eine parametrisierte Prozedur programmiert haben, die Code einsparen sollte.<\/p>\n Hier m\u00fcssten wir nun in den Else<\/b>-Zweig einsteigen. Dort m\u00fcssten wir in einer Select Case<\/b>-Bedingung pr\u00fcfen, welches Feld der Benutzer bearbeitet hat und davon abh\u00e4ngig die Felder f\u00fcr alle folgenden Unteraufgaben leeren und die Eigenschaften der Steuerelemente erneut einstellen. Die Select Case<\/b>-Bedingung gliedern wir allerdings so aus, dass wir zumindest nicht alle Konstellationen auflisten m\u00fcssen.<\/p>\n Schauen wir uns zun\u00e4chst die \u00c4nderungen beziehungsweise den Else<\/b>-Zweig der Prozedur chk_AfterUpdate <\/b>an (siehe Listing 4). Hier f\u00fcgen wir eine If…Then<\/b>-Bedingung ein, deren Bedingung das Ergebnis des Aufrufs einer MsgBox<\/b>-Funktion ist.<\/p>\n Listing 4: Aktualisierung nach \u00c4nderung des Wertes eines Kontrollk\u00e4stchens<\/span><\/b><\/p>\n Diese soll fragen, ob diese Aufgabe einschlie\u00dflich der folgenden Aufgaben wieder als nicht erledigt markiert werden soll. Antwortet der Benutzer hier mit Ja<\/b>, ruft die Prozedur die Routine AlsNichtErledigtMarkieren <\/b>auf und \u00fcbergibt den Namen des Feldes, also beispielsweise BeispieleErstellt<\/b>.<\/p>\n Wenn der Benutzer die unterste Aufgabe, hier Beitrag online<\/b>, als nicht erledigt markiert, soll nur das Kontrollk\u00e4stchen chkBeitragOnline<\/b> auf False <\/b>eingestellt und das Textfeld txtBeitragOnline <\/b>geleert werden. Das ist der erste Case<\/b>-Zweig der folgenden Prozedur AlsNichtErledigtMarkieren<\/b>:<\/p>\n Der zweite Zweig wird aufgerufen, wenn der Benutzer die vorletzte Aufgabe als nicht erledigt markieren will. Dann sollen die Kontrollk\u00e4stchen und Textfelder f\u00fcr die beiden letzten Aufgaben auf False <\/b>und Null <\/b>eingestellt werden:<\/p>\n Der n\u00e4chste Zweig ist dann wieder zwei Anweisungen l\u00e4nger und so setzt es sich fort:<\/p>\n Das k\u00f6nnen wir erheblich abk\u00fcrzen durch die folgende Variante, die sich selbst f\u00fcr die untergeordneten Felder aufruft:<\/p>\n Wenn sich Ihre Workflows selten \u00e4ndern, so wie es etwa beim Schreiben von Beitr\u00e4gen wie diesem hier ist, k\u00f6nnen Sie mit dieser Variante einer Workflow-Verwaltung vermutlich gut arbeiten – und sollte tats\u00e4chlich mal ein Zwischenschritt auftauchen, k\u00f6nnen Sie als Entwickler schnell die notwendigen Elemente im Formular und im VBA-Code hinzuf\u00fcgen.<\/p>\n Spannender wird es, wenn Sie verschiedene Workflows pflegen wollen, die sich gelegentlich \u00e4ndern. Oder wenn Sie die Workflow-Anwendung Benutzern zur Verf\u00fcgung stellen wollen, die selbst ihre Workflows gestalten sollen. Dann m\u00fcsste man die hier verwendeten Ans\u00e4tze in Form einer flexiblen Anwendung umsetzen. Das bedeutet, dass man sowohl f\u00fcr die Workflows als auch f\u00fcr die enthaltenen Aufgaben Tabellen anlegt, in denen die Daten gespeichert werden, sowie Formulare, mit denen der Benutzer seine Workflows selbst definieren kann.<\/p>\n Eine Erweiterung der vorliegenden und auch einer flexibleren L\u00f6sung w\u00e4re das Anzeigen aller Workflows in einer \u00dcbersicht, um den Status der einzelnen Aufgaben im \u00dcberblick zu betrachten.<\/p>\n<\/p>\n Enthaltene Beispieldateien:<\/p>\n WorkflowsImGriff.accdb<\/p>\n![\"Formularentwurf](\"..\/fileadmin\/_temp_\/2021_01\/pic_1288_002.png\")
<\/p>\nBessere Reproduzierbarkeit mit Datum<\/h2>\n
![\"Tabelle](\"..\/fileadmin\/_temp_\/2021_01\/pic_1288_003.png\")
<\/p>\n![\"Abfrage,](\"..\/fileadmin\/_temp_\/2021_01\/pic_1288_004.png\")
<\/p>\nBeitragGeschriebenJaNein: Nicht IstNull([BeitragGeschrieben])<\/pre>\n
![\"Ergebnis](\"..\/fileadmin\/_temp_\/2021_01\/pic_1288_005.png\")
<\/p>\n![\"Die](\"..\/fileadmin\/_temp_\/2021_01\/pic_1288_006.png\")
<\/p>\n![\"Textfelder](\"..\/fileadmin\/_temp_\/2021_01\/pic_1288_007.png\")
<\/p>\n![\"Kontrollk\u00e4stchen](\"..\/fileadmin\/_temp_\/2021_01\/pic_1288_008.png\")
<\/p>\nDatum f\u00fcr erledigte Aufgaben anzeigen<\/h2>\n
Private Sub <\/span>Form_Current()\n Me!txtBeitragGeschrieben.Visible = Not<\/span> IsNull(Me!BeitragGeschrieben)\n Me!txtBeitragGesetzt.Visible = Not<\/span> IsNull(Me!BeitragGesetzt)\n Me!txtBeitragZumLektor.Visible = Not<\/span> IsNull(Me!BeitragZumLektor)\n Me!txtBeitragLektoriert.Visible = Not<\/span> IsNull(Me!BeitragLektoriert)\n Me!txtBeitragKorrigiert.Visible = Not<\/span> IsNull(Me!BeitragKorrigiert)\n Me!txtBeitragEingelesen.Visible = Not<\/span> IsNull(Me!BeitragEingelesen)\n Me!txtBeispieleErstellt.Visible = Not<\/span> IsNull(Me!BeispieleErstellt)\n Me!txtBeitragOnline.Visible = Not<\/span> IsNull(Me!BeitragOnline)\nEnd Sub<\/span><\/pre>\nDatum beim Aktivieren von Kontrollk\u00e4stchen setzen<\/h2>\n
Feld 'BeitragGeschriebenJaNein' basiert auf einem Ausdruck und kann nicht bearbeitet werden.<\/pre>\n
Private Sub <\/span>Form_Current()\n Me!chkBeitragGeschrieben = Not<\/span> IsNull(Me!BeitragGeschrieben)\n Me!chkBeitragGesetzt = Not<\/span> IsNull(Me!BeitragGesetzt)\n Me!chkBeitragZumLektor = Not<\/span> IsNull(Me!BeitragZumLektor)\n Me!chkBeitragLektoriert = Not<\/span> IsNull(Me!BeitragLektoriert)\n Me!chkBeitragKorrigiert = Not<\/span> IsNull(Me!BeitragKorrigiert)\n Me!chkBeitragEingelesen = Not<\/span> IsNull(Me!BeitragEingelesen)\n Me!chkBeispieleErstellt = Not<\/span> IsNull(Me!BeispieleErstellt)\n Me!chkBeitragOnline = Not<\/span> IsNull(Me!BeitragOnline)\n ...\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>chkBeitragGeschrieben_AfterUpdate()\n If <\/span>Me!chkBeitragGeschrieben = True<\/span> Then<\/span>\n Me!BeitragGeschrieben = Date\n Me!txtBeitragGeschrieben.Visible = True<\/span>\n Else<\/span>\n Me!BeitragGeschrieben = Null\n Me!txtBeitragGeschrieben.Visible = False<\/span>\n End If<\/span>\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>chk_AfterUpdate(strFeld As String<\/span>)\n If <\/span>Me(\"chk\" & strFeld) = True<\/span> Then<\/span>\n Me(strFeld) = Date\n Me(\"txt\" & strFeld).Visible = True<\/span>\n Else<\/span>\n Me(strFeld) = Null\n Me(\"txt\" & strFeld).Visible = False<\/span>\n End If<\/span>\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>chkBeitragGeschrieben_AfterUpdate()\n chk_AfterUpdate \"BeitragGeschrieben\"\nEnd Sub<\/span>\nPrivate Sub <\/span>chkBeispieleErstellt_AfterUpdate()\n chk_AfterUpdate \"BeispieleErstellt\"\nEnd Sub<\/span>\nPrivate Sub <\/span>chkBeitragEingelesen_AfterUpdate()\n chk_AfterUpdate \"BeitragEingelesen\"\nEnd Sub<\/span>\nPrivate Sub <\/span>chkBeitragGesetzt_AfterUpdate()\n chk_AfterUpdate \"BeitragGesetzt\"\nEnd Sub<\/span>\nPrivate Sub <\/span>chkBeitragKorrigiert_AfterUpdate()\n chk_AfterUpdate \"BeitragKorrigiert\"\nEnd Sub<\/span>\nPrivate Sub <\/span>chkBeitragLektoriert_AfterUpdate()\n chk_AfterUpdate \"BeitragLektoriert\"\nEnd Sub<\/span>\nPrivate Sub <\/span>chkBeitragOnline_AfterUpdate()\n chk_AfterUpdate \"BeitragOnline\"\nEnd Sub<\/span>\nPrivate Sub <\/span>chkBeitragZumLektor_AfterUpdate()\n chk_AfterUpdate \"BeitragZumLektor\"\nEnd Sub<\/span><\/pre>\n![\"Das](\"..\/fileadmin\/_temp_\/2021_01\/pic_1288_009.png\")
<\/p>\nUnteraufgabe f\u00fcr Unteraufgabe<\/h2>\n
Private Sub <\/span>KontrollkaestchenFreischalten()\n Me!chkBeitragGeschrieben.Enabled = True<\/span>\n Me!chkBeitragGesetzt.Enabled = Not<\/span> IsNull(Me!BeitragGeschrieben)\n Me!chkBeitragZumLektor.Enabled = Not<\/span> IsNull(Me!BeitragGesetzt)\n Me!chkBeitragLektoriert.Enabled = Not<\/span> IsNull(Me!BeitragZumLektor)\n Me!chkBeitragKorrigiert.Enabled = Not<\/span> IsNull(Me!BeitragLektoriert)\n Me!chkBeitragEingelesen.Enabled = Not<\/span> IsNull(Me!BeitragKorrigiert)\n Me!chkBeispieleErstellt.Enabled = Not<\/span> IsNull(Me!BeitragEingelesen)\n Me!chkBeitragOnline.Enabled = Not<\/span> IsNull(Me!BeispieleErstellt)\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>Form_Current()\n ...\n KontrollkaestchenFreischalten\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>chk_AfterUpdate(strFeld As String<\/span>)\n ...\n KontrollkaestchenFreischalten\nEnd Sub<\/span><\/pre>\nBeim Deaktivieren alle Folgeaufgaben deaktivieren<\/h2>\n
\n
Private Sub <\/span>chk_AfterUpdate(strFeld As String<\/span>)\n If <\/span>Me(\"chk\" & strFeld) = True<\/span> Then<\/span>\n Me(strFeld) = Date\n Me(\"txt\" & strFeld).Visible = True<\/span>\n Else<\/span>\n If <\/span>MsgBox<\/span>(\"Diese Aufgabe inklusive der folgenden Aufgaben als nicht erledigt markieren\", vbYesNo) = vbYes Then<\/span>\n AlsNichtErledigtMarkieren strFeld\n End If<\/span>\n End If<\/span>\n KontrollkaestchenFreischalten\nEnd Sub<\/span><\/pre>\nProzedur zum Markieren als nicht erledigt<\/h2>\n
Private Sub <\/span>AlsNichtErledigtMarkieren(strFeld As String<\/span>)\n Select Case strFeld\n Case <\/span>\"BeitragOnline\"\n Me!txtBeitragOnline = Null\n Me!chkBeitragOnline = False<\/span><\/pre>\n Case <\/span>\"BeispieleErstellt\"\n Me!txtBeispieleErstellt = Null\n Me!chkBeispieleErstellt = False<\/span>\n Me!txtBeitragOnline = Null\n Me!chkBeitragOnline = False<\/span><\/pre>\n Case <\/span>\"BeitragEingelesen\"\n Me!txtBeitragEingelesen = Null\n Me!chkBeitragEingelesen = False<\/span>\n Me!txtBeispieleErstellt = Null\n Me!chkBeispieleErstellt = False<\/span>\n Me!txtBeitragOnline = Null\n Me!chkBeitragOnline = False<\/span>\n Case <\/span>\"BeitragKorrigiert\"\n Me!txtBeitragKorrigiert = Null\n Me!chkBeitragKorrigiert = False<\/span>\n Me!txtBeitragEingelesen = Null\n Me!chkBeitragEingelesen = False<\/span>\n Me!txtBeispieleErstellt = Null\n Me!chkBeispieleErstellt = False<\/span>\n Me!txtBeitragOnline = Null\n Me!chkBeitragOnline = False<\/span>\n '... weitere Case-Zweige\n End Select<\/span>\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>AlsNichtErledigtMarkieren(strFeld As String<\/span>)\n Me(\"txt\" & strFeld) = Null\n Me(\"chk\" & strFeld) = False<\/span>\n Select Case strFeld\n Case <\/span>\"BeitragOnline\"\n Case <\/span>\"BeispieleErstellt\"\n AlsNichtErledigtMarkieren \"BeitragOnline\"\n Case <\/span>\"BeitragEingelesen\"\n AlsNichtErledigtMarkieren \"BeispieleErstellt\"\n Case <\/span>\"BeitragKorrigiert\"\n AlsNichtErledigtMarkieren \"BeitragEingelesen\"\n Case <\/span>\"BeitragLektoriert\"\n AlsNichtErledigtMarkieren \"BeitragKorrigiert\"\n Case <\/span>\"BeitragZumLektor\"\n AlsNichtErledigtMarkieren \"BeitragLektoriert\"\n Case <\/span>\"BeitragGesetzt\"\n AlsNichtErledigtMarkieren \"BeitragZumLektor\"\n Case <\/span>\"BeitragGeschrieben\"\n AlsNichtErledigtMarkieren \"BeitragGesetzt\"\n End Select<\/span>\nEnd Sub<\/span><\/pre>\nZusammenfassung und Ausblick<\/h2>\n
Downloads zu diesem Beitrag<\/h2>\n