![\"Ausgangspunkt](\"..\/tl_files\/images\/pic_383_015.png\")
<\/a><\/p>\nBild 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>\nHier 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](\"..\/tl_files\/images\/pic_383_008.png\")
<\/a><\/p>\nBild 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>\nPrivate 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>\nListing 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](\"..\/tl_files\/images\/pic_383_010.png\")
<\/a><\/p>\nBild 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>\nUPDATE tblAufgaben SET Erledigt = -1 WHERE AufgabeID = 1<\/pre>\nDiese 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](\"..\/tl_files\/images\/pic_383_009.png\")
<\/a><\/p>\nBild 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>\nPrivate 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>\nListing 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
\n- Für das geplante Datum der Aufgabe ist noch kein Eintrag im Bericht vorhanden. Dann muss eine komplett neue Aufgabe angelegt werden – inklusive Bezeichnung, geplantem Erledigungsdatum und Kategorie.<\/li>\n
- Das Datum der Aufgabe ist bereits im Bericht vorhanden, aber es liegt für dieses Datum noch keine Aufgabe in der gewünschten Kategorie vor. Dann können wir in einem Formular zum Anlegen der neuen Aufgabe zumindest schon einmal das Datum vorbelegen.<\/li>\n
- Es ist auch bereits eine Aufgabe unterhalb des gewünschten Datums vorhanden, welche der betreffenden Kategorie angehört. Dann braucht man nur die Bezeichnung der Aufgabe einzugeben.<\/li>\n<\/ul>\n
Möchten Sie weiterlesen? Dann lösen Sie Ihr Ticket!<\/span>
\nHier geht es zur Bestellung des Jahresabonnements des Magazins Access [basics]<\/strong>:<\/span>
\nZur Bestellung ...<\/a><\/span>
\nDanach greifen Sie sofort auf alle rund 400 Artikel<\/strong> unseres Angebots zu - auch auf diesen hier!<\/span>
\nOder haben Sie bereits Zugangsdaten? Dann loggen Sie sich gleich hier ein:<\/span><\/p>\n<\/div>\n\n\t\n\t