<\/p>\n
Wenn eine Funktion oder ein Steuerelemente temporär nicht zur Verfügung steht, haben Sie zwei Möglichkeiten: Entweder Sie weisen den Benutzer per Meldungsfenster auf diesen Umstand hin, wenn er versucht, das Steuerelemente dennoch zu benutzen. Das ist schlecht, weil dies den Benutzer einen unnötigen Klick kostet. Oder Sie deaktivieren das Steuerelement direkt. Das dies manchmal gar nicht so einfach ist und wie Sie es dennoch schaffen, zeigt dieser Beitrag.<\/b><\/p>\n
Gründe, Steuerelemente zu deaktivieren, gibt es viele:<\/p>\n
Schauen wir uns also erstmal an, wie wir Steuerelemente in Abhängigkeit bestimmter Bedingungen aktiviern und deaktivieren können.<\/p>\n
Steuerelemente in Abhängigkeit anderer Steuerelemente aktivieren oder deaktivieren<\/b><\/p>\n
Das Formular aus Bild 1 besteht aus einem Kombinationsfeld, das die Kundenart festlegt (Firma oder Privatperson) und davon abhängig die Textfelder txtFirma, txtVorname und txtNachname aktivieren beziehungsweise deaktivieren soll. Wenn keine Kundenart ausgewählt ist, sollen dementsprechend alle Steuerelemente deaktiviert sein.<\/p>\n
![\"pic001.png\"](\"..\/fileadmin\/_temp_\/2011_02\/SteuerelementeDeaktivieren-web-images\/pic001.png\")
<\/p>\n
Bild 1: Beispielformular der Datenbank<\/span><\/b><\/p>\n Schauen wir uns erst an, was geschehen soll, wenn der Benutzer eine Kundenart auswählt. Dies löst das Ereignis Nach Aktualisierung des Kombinationsfelds aus. Die entsprechende Ereignisprozedur sieht wie folgt aus:<\/p>\n Sie fragt den Wert von cboKundenartID <\/b>ab und stellt die Enabled<\/b>-Eigenschaft der folgenden Textfelder entsprechend ein.<\/p>\n Das Einstellen von Eigenschaften wie Enabled<\/b>, Locked<\/b>, Visible <\/b>et cetera, die abhängig von einer oder mehrerer Bedingungen auf True <\/b>oder False <\/b>eingestellt werden können, ist grundsätzlich auf zwei Arten möglich: Auf die die schreibintensive Art wie oben oder auf eine etwas pfiffigere Weise wie in der folgenden Variante:<\/p>\n Genau wie oben soll das Feld txtFirma <\/b>nur aktiviert sein, wenn das Kombinationsfeld cboKundenartID <\/b>den Wert 1 <\/b>enthält. Beim Wert 2 <\/b>sollen nur die beiden Felder txtVorname <\/b>und txtNachname <\/b>aktiviert sein.<\/p>\n Die zweite Variante löst dies etwas eleganter und mit wesentlich weniger Codezeilen. Die erste Zeile sorgt beispielsweise dafür, dass die Eigenschaft Enabled <\/b>des Textfeldes txtFirma <\/b>nur auf True <\/b>eingestellt wird, wenn cboKundenartID <\/b>den Wert 1 <\/b>hat (sollte cboKundenartID <\/b>den Wert Null <\/b>aufweisen, was darauf hindeutet, dass gar kein Eintrag ausgewählt ist, liefert Nz(Me!cboKundenartID)<\/b> ersatzweise den Wert 0<\/b>).<\/p>\n Beide Varianten liefern das Ergebnis aus Bild 2.<\/p>\n Bild 2: Das Kombinationsfeld aktiviert oder deaktiviert die weiteren Steuerelemente.<\/span><\/b><\/p>\n <\/p>\n Steuerelemente beim Anzeigen des Datensatzes aktivieren oder deaktivieren<\/b><\/p>\n Einen kleinen Schönheitsfehler hat die Lösung noch: Beim Öffnen des Formulars oder beim Datensatzwechseln werden die Textfelder nicht entsprechend der ausgewählten Kundenart aktiviert beziehungsweise deaktiviert. Also fügen Sie eine weitere Ereignisprozedur hinzu, die beim Anzeigen eines jeden Datensatzes ausgelöst wird. Das Ereignis heißt Beim Anzeigen <\/b>und die Ereignisprozedur müsste eigentlich genau den gleichen Inhalt haben wie die durch das Kombinationsfeld ausgelöste:<\/p>\n Nun fragen alle drei Anweisungen den gleichen Wert im Formular ab und führen auch noch die Nz<\/b>-Funktion mit diesem Wert als Parameter aus. Das sollte nur einmal geschehen, also ermitteln wir den Wert von Nz(Me!cboKundenartID) <\/b>zu Beginn und schreiben das Ergebnis in eine Variable. Diese wird später als Vergleichswert hinzugezogen:<\/p>\n Wenn zwei Prozeduren genau die gleichen Anweisungen enthalten, ist es jedoch Zeit für ein kleines Refactoring. Wir schreiben die drei Anweisungen in eine eigene Prozedur und rufen diese von den ursprünglichen Prozeduren auf:<\/p>\n Nun läuft es rund – die drei Textfelder werden jeweils in Abhängigkeit vom Kombinationsfeld aktiviert oder deaktiviert.<\/p>\n Schaltfläche auf Knopfdruck deaktiveren<\/b><\/p>\n Das Aktivieren und Deaktivieren ist in der Regel kein Problem. Die einzige Ausnahme ist das Deaktivieren des Steuerelements, das gerade den Fokus besitzt. Das passiert gern bei Schaltflächen. Nehmen wir die Verwerfen<\/b>-Schaltfläche im Beispielformular. Diese soll beim Anzeigen eines Datensatzes zunächst deaktiviert sein, was durch eine kleine Erweiterung der Beim Anzeigen<\/b>-Prozedur um diese Zeile geschieht:<\/p>\n Die Schaltfläche soll nur aktiviert sein, wenn der Benutzer änderungen am Datensatz vorgenommen hat. Das erledigt die folgende Prozedur, die durch das Ereignis Bei Geändert <\/b>ausgelöst wird:<\/p>\n Ist die Schaltfläche aktiviert, soll sie dem Benutzer die Möglichkeit geben, die änderungen zu verwerfen. Das erledigt die Undo-Methode. Wenn es keine zu verwerfenden änderungen mehr gibt, soll die Schaltfläche Verwerfen <\/b>dementsprechend wieder deaktivert werden. Bringen wir also gleich beide Anweisungen in der folgenden Prozedur unter:<\/p>\n Damit deaktivieren Sie aber das Steuerelement, das gerade den Fokus hat (Sie klicken es ja schließlich gerade an). Dies führt in den meisten Fällen zur Fehlermeldung aus Bild 3.<\/p>\n Bild 3: Diese Fehlermeldung erscheint, wenn Sie das aktiver Steuerelement deaktivieren möchten.<\/span><\/b><\/p>\n In den meisten Fällen Ja! Es gibt nämlich eine Ausnahme: Wenn Sie Access 2010 verwenden, tritt dieses Problem nicht mehr auf. Microsoft hat offensichtlich (undokumentiert, wie immer) eine Verbesserung eingebaut, die das Deaktivieren des aktiven Steuerelements erlaubt.<\/p>\n Darauf gestoßen ist der Autor auch nur durch Zufall: Eine unter Access 2010 entwickelte Datenbank wurde unter Access 2007 betrieben, was plötzlich Fehlermeldungen zu Tage brachte, die zuvor nie auftraten.<\/p>\n Fokus verschieben, dann deaktivieren<\/b><\/p>\n Für alle, die deshalb nicht gleich die Access-Version wechseln möchten, stellen wir nachfolgend eine Alternative vor. Die einzige Möglichkeit, einem Steuerelement den Fokus zu entziehen, ist das Verschieben des Fokus auf ein anderes Steuerelement. Und genau das macht die Prozedur ActivateAnotherControl <\/b>aus Listing 1<\/a><\/span>.<\/p>\n Listing 1: Diese Prozedur sucht das nächste aktive Steuerelement und verschiebt den Fokus darauf.<\/p>\n Die Prozedur erwartet einen Verweis auf das zu deaktivierende Steuerelement als Parameter. Sie prüft zunächst anhand der Funktion SysCmd(acSysCmdAccessVer)<\/b>, welche Access-Version aktuell vorliegt. Ist diese kleiner als 14, also Access 2010, wird die Prozedur fortgesetzt. Unter Access 2010 löst das Deaktivieren des aktiven Steuerelements ja keinen Fehler mehr aus.<\/p>\n Nach dieser Prüfung durchläuft die Routine alle Steuerelemente des Formulars. Dabei prüft sie zunächst, ob die Eigenschaft TabIndex <\/b>des untersuchten Steuerelements mit der des Steuerelements übereinstimmt, das deaktiviert werden soll. Der Verweis auf dieses Steuerelements wurde ja mit dem einzigen Parameter der Prozedur übergeben. Handelt es sich nicht um das gleiche Steuerelement, prüft die Routine den Typ des aktuell untersuchten Steuerelements. Entspricht dieser einem der gängigen und aktivierbaren Steuerelemente, fehlt nur noch die Prüfung, ob dieses Steuerelement selbst überhaupt aktiviert ist. Falls ja, wird der Fokus auf dieses Steuerelement verschoben und die Prozedur wird verlassen.<\/p>\nPrivate Sub cboKundenartID_AfterUpdate()\r\n Select Case Me!cboKundenartID\r\n Case 1\r\n Me!txtFirma.Enabled = True\r\n Me!txtVorname.Enabled = False\r\n Me!txtNachname.Enabled = False\r\n Case 2\r\n Me!txtFirma.Enabled = False\r\n Me!txtVorname.Enabled = True\r\n Me!txtNachname.Enabled = True\r\n Case Else\r\n Me!txtFirma.Enabled = False\r\n Me!txtVorname.Enabled = False\r\n Me!txtNachname.Enabled = False\r\n End Select\r\nEnd Sub<\/pre>\n
Private Sub cboKundenartID_AfterUpdate()\r\n Me!txtFirma.Enabled = Nz(Me!cboKundenartID) = 1\r\n Me!txtVorname.Enabled = Nz(Me!cboKundenartID) = 2\r\n Me!txtNachname.Enabled = Nz(Me!cboKundenartID) = 2\r\nEnd Sub<\/pre>\n
![\"pic002.png\"](\"..\/fileadmin\/_temp_\/2011_02\/SteuerelementeDeaktivieren-web-images\/pic002.png\")
<\/p>\nPrivate Sub Form_Current()\r\n Me!txtFirma.Enabled = Nz(Me!cboKundenartID) = 1\r\n Me!txtVorname.Enabled = Nz(Me!cboKundenartID) = 2\r\n Me!txtNachname.Enabled = Nz(Me!cboKundenartID) = 2\r\nEnd Sub<\/pre>\n
Dim intKundenart As Integer\r\nintKundenart = Nz(Me!cboKundenartID)\r\nMe!txtFirma.Enabled = intKundenart = 1\r\nMe!txtVorname.Enabled = intKundenart = 2\r\nMe!txtNachname.Enabled = intKundenart = 2<\/pre>\n
Private Sub cboKundenartID_AfterUpdate()\r\n TextfelderAktualisieren\r\nEnd Sub\r\nPrivate Sub cmdOK_Click()\r\n DoCmd.Close acForm, Me.Name\r\nEnd Sub\r\nPrivate Sub Form_Current()\r\n TextfelderAktualisieren\r\nEnd Sub\r\nPrivate Sub TextfelderAktualisieren()\r\n Dim intKundenart As Integer\r\n intKundenart = Nz(Me!cboKundenartID)\r\n Me!txtFirma.Enabled = intKundenart = 1\r\n Me!txtVorname.Enabled = intKundenart = 2\r\n Me!txtNachname.Enabled = intKundenart = 2\r\nEnd Sub<\/pre>\n
Me!cmdVerwerfen.Enabled = False<\/pre>\n
Private Sub Form_Dirty(Cancel As Integer)\r\n Me!cmdVerwerfen.Enabled = True\r\nEnd Sub<\/pre>\n
Private Sub cmdVerwerfen_Click()\r\n Me.Undo\r\n Me!cmdVerwerfen.Enabled = False\r\nEnd Sub<\/pre>\n
![\"pic003.png\"](\"..\/fileadmin\/_temp_\/2011_02\/SteuerelementeDeaktivieren-web-images\/pic003.png\")
<\/p>\nPublic Function ActivateAnotherControl(ctl As Control)\r\n Dim i As Integer\r\n Dim frm As Form\r\n If Val(SysCmd(acSysCmdAccessVer)) < 14 Then\r\n Set frm = ctl.Parent\r\n For i = 0 To frm.Controls.Count - 1\r\n If Not i = ctl.TabIndex Then\r\n Select Case frm.Controls(i).ControlType\r\n Case acTextBox, acCommandButton, acComboBox, acListBox, acSubform, _\r\n acToggleButton, acCheckBox, acOptionButton\r\n If frm.Controls(i).Enabled = True Then\r\n frm.Controls(i).SetFocus\r\n Exit For\r\n End If\r\n End Select\r\n End If\r\n Next i\r\n End If\r\nEnd Function<\/pre>\n