ACLs programmieren - Teil 4

Auch hier hätte man mit einer Select-Case-Anweisung arbeiten können, was den Code etwas schlanker gemacht hätte. Man muss aber in jedem Schleifendurchlauf alle Optionen abprüfen, da man nicht vorhersagen kann, welche Werte an welcher Position in der Liste vorkommen. Wenn beispielsweise die erste Option nicht ausgewählt wurde, verschieben sich alle folgenden Werte um eine Position nach vorne. Mit

Call acl.Save

wird nun die Verarbeitung der ACL abgeschlossen. Die geänderten Eigenschaften werden damit geschrieben. Nun sind nur noch einige Aufräumarbeiten erforderlich. Dazu wird zunächst mit

doc.verarbeitet = "True"

der Wert für das Feld verarbeitet gesetzt, wobei wie oben ausgeführt mit einer Zeichenkette gearbeitet wird. Anschließend muss noch das Datum modifiziert werden:

Dim dateTime As String
dateTime = Date$ + Time$
doc.verarbeitungsdatum = dateTime

Nach den Veränderungen wird das Dokument gespeichert. Dazu setzen Sie die Anweisung

Call doc.save (True,False)

ein. Schließlich sollte die Eingabemaske noch geschlossen werden. Das geschieht mit

Call uidoc.close

Die Änderungen sind damit abgeschlossen. Bei der ACL der Datenbank lässt sich nun überprüfen, ob der Eintrag auch tatsächlich gesetzt wurde (Bild 3).

Beim Code fehlt derzeit allerdings noch die Fehlerüberprüfung. Darauf kommen wir weiter unten noch einmal zurück.