{"id":55000383,"date":"2018-02-01T00:00:00","date_gmt":"2020-01-24T15:59:58","guid":{"rendered":"http:\/\/access-im-unternehmen.aix-dev.de\/aiu\/?p=383"},"modified":"-0001-11-30T00:00:00","modified_gmt":"-0001-11-30T00:00:00","slug":"Aufgabenplaner","status":"publish","type":"post","link":"https:\/\/access-basics.de\/index.php\/Aufgabenplaner.html","title":{"rendered":"Aufgabenplaner"},"content":{"rendered":"

Im Artikel Berichtsansicht <\/b>haben Sie eine neue Ansicht für Berichte kennen gelernt, die ganz neue Möglichkeiten eröffnet. Sie können damit hierarchische Daten anzeigen, ohne das TreeView-Steuerelement nutzen zu müssen und in einer Kombination aus Bericht und Formular arbeiten. Das wollen wir gleich einmal in einer Lösung ausprobieren, mit der Sie Ihre täglichen Aufgaben verwalten können.<\/p>\n

Beispieldatenbank<\/h2>\n

Die Beispiele dieses Artikels finden Sie in der Datenbank 1801_Aufgabenplaner.accdb<\/b>.<\/p>\n

Vorarbeiten<\/h2>\n

Die Vorarbeiten zu diesem Artikel haben im Artikel Berichtsansicht stattgefunden. Dort haben wir bereits ein kleines Datenmodell mit den beiden Tabellen tblAufgaben und tblKategorien erstellt und ein Grundgerüst eines Berichts, der im Entwurf wie in Bild 1 aussieht.<\/p>\n

\"Ausgangspunkt<\/a><\/p>\n

Bild 1: Ausgangspunkt dieser Lösung – der Bericht rptAufgabenplaner<\/p>\n

Kontrollkästchen nutzen<\/h2>\n

Wenn Sie nun auf das Kontrollkästchen klicken, erfolgt nicht die erwartete änderung des Zustands des Kontrollkästchens. Im Gegenteil – ein Warnsignal macht deutlich, dass die gewünschte Funktion nicht verfügbar ist. Also schauen wir uns an, ob wir das Kontrollkästchen auf andere Weise für unsere Zwecke einsetzen können.<\/p>\n

Dazu hinterlegen wir für die Ereigniseigenschaft Beim Klicken <\/b>des Kontrollkästchens eine Ereignisprozedur. Vorher stellen wir die Eigenschaft Name <\/b>dieses Steuerelements jedoch noch von Erledigt <\/b>auf chkErledigt <\/b>um. Wählen Sie dann den Wert [Ereignisprozedur] <\/b>für die Eigenschaft Beim Klicken <\/b>aus und klicken Sie auf die Schaltfläche mit den drei Punkten.<\/p>\n

Wir gehen nun einmal naiv an die Aufgabe heran und hinterlegen die folgende Prozedur für das Ereignis:<\/p>\n

Private Sub <\/span>chkErledigt_Click()\r\n    If <\/span>Me!Erledigt = False<\/span> Then<\/span>\r\n        Me!Erledigt = True<\/span>\r\n    Else<\/span>\r\n        Me!Erledigt = False<\/span>\r\n    End If<\/span>\r\nEnd Sub<\/span><\/pre>\n
Hier wollen wir schlicht prüfen, welchen Wert das Feld Erledigt <\/b>aktuell hat und den Wert in Abhängigkeit davon auf True <\/b>oder False <\/b>ändern. Wenn wir nun in die Berichtsansicht wechseln und auf das Kontrollkästchen eines der Einträge klicken, erhalten wir die Fehlermeldung aus Bild 2.<\/p>\n
\"Fehler<\/a><\/p>\n
Bild 2: Fehler beim Zuweisen eines Wertes an ein Feld im Bericht<\/p>\n
Offensichtlich weisen die gefundenen Felder eines Berichts auch in der Berichtsansicht keine Möglichkeit auf, Werte zuzuweisen. Doch damit geben wir uns noch nicht geschlagen. Es gibt ja noch die Möglichkeit, die Daten in der zugrunde liegenden Tabelle zu ändern – und wer weiß, vielleicht können wir den Bericht ja nach dieser Aktion aktualisieren, sodass er doch noch den geänderten Wert im Kontrollkästchen anzeigt<\/p>\n
Tabellenwert ändern und Bericht aktualisieren<\/h2>\n
Die Prozedur chkErledigt_Click <\/b>aktualisieren wir nun wie in Listing 1.<\/p>\n
Private Sub <\/span>chkErledigt_Click()\r\n     Dim <\/span>db As <\/span>DAO.Database\r\n     Dim <\/span>lngAufgabeID As Long<\/span>\r\n     Dim <\/span>bolErledigt As Boolean<\/span>\r\n     Dim <\/span>strSQL As String<\/span>\r\n     lngAufgabeID = Me!AufgabeID\r\n     If <\/span>Me!Erledigt = False<\/span> Then<\/span>\r\n         bolErledigt = True<\/span>\r\n     Else<\/span>\r\n         bolErledigt = False<\/span>\r\n     End If<\/span>\r\n     Set<\/span> db = CurrentDb\r\n     strSQL = \"UPDATE tblAufgaben SET Erledigt = \" & CInt(bolErledigt) & \" WHERE AufgabeID = \" & lngAufgabeID\r\n     db.Execute strSQL, dbFailOnError\r\n     Me.Requery\r\n     Me!chkErledigt.SetFocus\r\nEnd Sub<\/span><\/pre>\n
Listing 1: Prozedur zum Einstellen des Wertes des Feldes Erledigt<\/p>\n
Die neue Version der Prozedur ermittelt zunächst den Primärschlüsselwert des aktuellen Datensatzes, also den Wert des Feldes AufgabeID<\/b>.<\/p>\n
Dazu muss dieses Feld zunächst einmal zum Entwurf des Berichts hinzugefügt werden, am Besten in den Detailbereich. Da wir die Anzeige dieses Wertes in einem Textfeld für die Benutzung des Berichts nicht benötigen, stellen wir die Eigenschaft Sichtbar<\/b> des Textfeldes auf Nein <\/b>ein (siehe Bild 3).<\/p>\n
\"Hinzufügen<\/a><\/p>\n
Bild 3: Hinzufügen des Feldes AufgabeID als unsichtbares Textfeld<\/p>\n
Danach können wir das Feld nutzen, um den Wert des Primärschlüssels des aktuellen Datensatzes zu ermitteln und in der Variablen lngAufgabeID <\/b>zu speichern. Auch den Wert des Feldes Erledigt <\/b>fragen wir hier ab. Hat dieses den Wert False<\/b>, tragen wir den Wert True <\/b>in die Variable bolErledigt <\/b>ein und umgekehrt. Dieser Variable soll den einzustellenden Wert für das Feld Erledigt <\/b>aufnehmen.<\/p>\n
Danach fügen wir der Variablen db <\/b>einen Verweis auf das aktuelle Database<\/b>-Objekt hinzu und stellen in der Variablen strSQL <\/b>die auszuführende SQL-Abfrage zusammen. Wenn wir den Wert des Feldes Erledigt <\/b>für den ersten Datensatz mit dem Primärschlüsselwert 1 <\/b>auf True <\/b>einstellen wollen, sieht der Inhalt von strSQL etwa so aus: <\/p>\n
UPDATE tblAufgaben SET Erledigt = -1 WHERE AufgabeID = 1<\/pre>\n
Diese Abfrage führen wir dann mit der Execute<\/b>-Methode des Database<\/b>-Objekts aus. Anschließend aktualisieren wir den Inhalt des Berichts in der Berichtsansicht mit der Requery<\/b>-Methode, was tatsächlich zum gewünschten Ergebnis führt (siehe Bild 4).<\/p>\n
\"Nun<\/a><\/p>\n
Bild 4: Nun werden die Kontrollkästchen korrekt aktualisiert.<\/p>\n
Die Anweisung zum Einstellen des Fokus auf das Kontrollkästchen verhindert, dass das Textfeld mit der Bezeichnung der Aufgabe im Anschluss den Fokus erhält.<\/p>\n
Aufgabenbezeichnung bearbeiten<\/h2>\n
Wie Sie sich vorstellen können, ist auch das Bearbeiten des Inhalts eines Textfeldes in der Berichtsansicht nicht ohne Weiteres möglich. Aber auch hier gibt es Workarounds.<\/p>\n
Der einfachste ist, den Text einer Bezeichnung per Doppelklick in einer InputBox<\/b> anzuzeigen und mit dieser dann den neuen Wert für die Bezeichnung abzufragen. Dazu hinterlegen wir für das Ereignis Beim Doppelklicken <\/b>des Textfeldes mit dem Feld Bezeichnung<\/b>, dessen Eigenschaft Name <\/b>wir zuvor auf txtBezeichnung <\/b>ändern, die Ereignisprozedur aus Listing 2. Diese arbeitet weitgehend wie die aus dem ersten Beispiel zum ändern des Wertes des Feldes Erledigt<\/b>.<\/p>\n
Private Sub <\/span>txtBezeichnung_DblClick(Cancel As Integer<\/span>)\r\n     Dim <\/span>db As <\/span>DAO.Database\r\n     Dim <\/span>strBezeichnung As String<\/span>\r\n     Dim <\/span>strSQL As String<\/span>\r\n     Dim <\/span>lngAufgabeID As Long<\/span>\r\n     strBezeichnung = Me!txtBezeichnung\r\n     lngAufgabeID = Me!AufgabeID\r\n     strBezeichnung = InputBox(\"Neue Bezeichnung eingeben:\", \"Bezeichnung ändern\", strBezeichnung)\r\n     If <\/span>Len<\/span>(strBezeichnung) > 0 Then<\/span>\r\n         Set<\/span> db = CurrentDb\r\n         strSQL = \"UPDATE tblAufgaben SET Bezeichnung = '\" & strBezeichnung & \"' WHERE AufgabeID = \" & lngAufgabeID\r\n         db.Execute strSQL, dbFailOnError\r\n         Me.Requery\r\n     End If<\/span>\r\nEnd Sub<\/span><\/pre>\n
Listing 2: Prozedur zum Einstellen des Wertes des Feldes Bezeichnung<\/p>\n
Neue Aufgabe anlegen<\/h2>\n
Wenn Sie eine neue Aufgabe anlegen wollen, wird es schon interessanter. Hier gibt es verschiedene Möglichkeiten:<\/p>\n