<\/p>\n
Eine gute Ergonomie macht sich manchmal in Kleinigkeiten bemerkbar. So machte mich zuletzt ein Kunde darauf aufmerksam, dass es doch toll wäre, die Einträge von Kombinationsfeldern wie auch im Eigenschaftsfenster von Access einfach per Doppelklick auszuwählen – so, dass mit jedem Doppelklick der jeweils nächste Eintrag angezeigt wird. Nun, technisch ist das recht leicht umzusetzen, aber die Idee muss man erstmal haben! In diesem Beitrag lesen Sie nun, wie Sie Ihre Kombinationsfeldeinträge mit einer Funktion zum Auswählen von Einträgen per Doppelklick ausstatten.<\/b><\/p>\n
Voraussetzung für die hier vorgestellte Lösung ist ein beliebiges Kombinationsfeld – egal, ob es aus einer Feldliste, einer Wertliste oder einer Tabelle oder Abfrage als Datensatzherkunft gefüttert wird. Zu Beginn der Entwicklung dieser Lösung schien es drei Fälle zu geben, um die man sich beim Auslösen der Ereignisprozedur Beim Doppelklicken <\/b>kümmern muss:<\/p>\n Die zweite Frage, die sich stellte, war: Wie erfahre ich, welcher der jeweils nächste Eintrag ist und wähle diesen aus – und wie identifiziere ich den letzten Eintrag des Kombinationsfeldes<\/p>\n Leeres Kombinationsfeld<\/b><\/p>\n Beginnen wir mit dem Fall, dass das Kombinationsfeld noch leer ist. Zu Beispielzwecken verwenden wir im Formular frmKombifeldPerDoppelklick <\/b>gleich zwei Kombinationsfelder – eines mit einer Wertliste und eines mit einer auf der Tabelle tblPersonal<\/b> basierenden Abfrage (s. Bild 1). Legen Sie dort zunächst eines der Kombinationsfelder, zum Beispiel cboPersonal<\/b>, den Wert [Ereignisprozedur] <\/b>für die Eigenschaft Bei Doppelklick <\/b>an und erstellen Sie mit einem Klick auf die Schaltfläche mit den drei Punkten die entsprechende Ereignisprozedur.<\/p>\n Bild 1: Beispielformular zum ändern des Kombinationsfeldeintrags per Doppelklick<\/span><\/b><\/p>\n Ob aktuell kein Eintrag ausgewählt ist, ermitteln Sie mit der Funktion IsNull<\/b>. Liefert IsNull(Me!Personal) <\/b>den Wert True <\/b>zurück, ist noch kein Eintrag ausgewählt. In diesem Fall soll der erste Eintrag aktiviert werden. Wie dies funktioniert, wurde in Access im Unternehmen schon zigfach durchexerziert – und zwar dort, wo gleich beim Öffnen eines Formulars der erste Eintrag eines Kombinationsfeldes angezeigt werden soll.<\/p>\n Den entsprechenden Wert ermitteln Sie über die Eigenschaft ItemData <\/b>mit dem Index 0<\/b>:<\/p>\n Damit können Sie den Fall des leeren Kombinationsfeldes bereits testen:<\/p>\n Kombinationsfeld mit ausgewählten Wert<\/b><\/p>\n Wenn bereits ein Wert ausgewählt ist, soll das Kombinationsfeld beim Doppelklick zum nächsten Eintrag springen. Dazu fügen Sie zur obigen If…Then<\/b>-Bedingung zunächst einfach einen Else<\/b>-Zweig hinzu. Im ersten Fall haben wir mit der ItemData<\/b>-Eigenschaft und dem Index 0 <\/b>den Wert des ersten Eintrags des Kombinationsfeldes ermittelt. Auf die gleiche Weise können Sie auch die übrigen Einträge selektieren – Sie brauchen nur den der Position entsprechenden Index anzugeben.<\/p>\n Woher aber erhalten wir die Position Dazu offeriert das Kombinationsfeld die ListIndex<\/b>-Eigenschaft. Sie gibt den Index des aktuell ausgewählten Eintrags zurück. Der per Doppelklick auszuwählende Eintrag ist der nächste Eintrag, also addieren wir den Wert 1 zum Index und ermittelten mit ItemData den Wert zu diesem Index. Diesen weisen Sie dem Kombinationsfeld zu und sorgen so dafür, dass per Doppelklick die folgenden Einträge angesteuert werden können.<\/p>\n Letzter Wert<\/b><\/p>\n Was aber ist mit dem letzten Eintrag Soll beim Doppelklick auf den letzten Eintrag wieder der erste Eintrag angezeigt werden oder das Kombinationsfeld gar wieder geleert werden Am ergonomischsten wäre es wohl, wenn nach dem letzten Eintrag zunächst wieder ein leeres Kombinationsfeld und erst dann wieder der erste Eintrag ausgewählt würde. Auf diese Weise würde der Benutzer leicht erkennen können, dass er alle Einträge einmal durchlaufen hat.<\/p>\n Das Schöne an dieser Variante ist, dass Sie gar nichts mehr tun müssen, um sie zu realisieren: Wenn das Kombinationsfeld den letzten Eintrag anzeigt und der Benutzer per Doppelklick zum folgenden Eintrag springen will, liefert Me!cboPersonal.ItemData(Me!cboPersonal.ListIndex + 1) <\/b>den Wert Null, weil es keinen entsprechenden Wert im Kombinationsfeld findet.<\/p>\n <\/p>\n Die Variante aus Listing 1<\/a><\/span> scheint also bereits die komplette Lösung unseres Problems zu sein. Und es kommt noch besser: Wenn kein Wert im Kombinationsfeld ausgewählt ist, liefert nicht nur IsNull <\/b>den Wert True<\/b>, sondern die ListIndex<\/b>-Eigenschaft auch noch den Wert -1<\/b>. Was bedeutet das Nun: Sie können auch noch diesen Fall mit der folgenden Anweisung abhandeln:<\/p>\n Listing 1: Auswählen des jeweils nächsten Datensatzes per Doppelklick<\/p>\n Wenn ListIndex den Wert -1 aufweist, wird ItemData mit dem Index 0 abgefragt – und das entspricht genau dem ersten Eintrag. Die komplette Lösung sieht also wie in Listing 2<\/a><\/span> aus – ein Einzeiler!<\/p>\n Listing 2: Auswählen des jeweils nächsten Datensatzes per Doppelklick, einfache Variante<\/p>\n Kommando zurück!<\/b><\/p>\n Das ist zugegebenermaßen zu einfach. Also bauen wir noch eine Variante ein, bei der ein Doppelklick bei gedrückter Umschalttaste nicht den folgenden, sondern den vorherigen Eintrag auswählt.<\/p>\n Hier wird es schon interessanter: Wir müssen nämlich zunächst einmal prüfen, ob der Benutzer überhaupt die Umschalttaste gedrückt hält. Die Ereignisprozedur Bei Doppelklick <\/b>liefert keinerlei Parameter und somit auch keine Informationen über die beim Klicken gedrückten Umschalt<\/b>-, Strg<\/b>– und Alt<\/b>-Tasten. Also bemühen wir die Ereignisprozedur Bei Maustaste <\/b>ab des gleichen Steuerelements, dass mit dem Shift<\/b>-Parameter die gewünschte Information offeriert. Hat Shift <\/b>den Wert 1<\/b>, drückt der Benutzer gleichzeitig die Umschalttaste. Dies müssen wir uns bis zum Auslösen des Ereignisses Bei Doppelklick <\/b>merken und schreiben in diesem Fall den Wert True <\/b>in die Variable bolBack<\/b>.<\/p>\n Außerdem fügen Sie in die Ereignisprozedur, die durch das Ereignis Bei Doppelklick <\/b>ausgelöst wird, zunächst eine Fallunterscheidung ein, die den Wert von bolBack <\/b>untersucht. Ist dieser True<\/b>, soll der vorherige Eintrag ausgewählt werden, sonst der folgende. Interessant ist für uns die Auswahl des vorherigen Eintrags. Hier untersuchen wir in einem Select Case<\/b>-Konstrukt, welcher Eintrag gerade ausgewählt ist.<\/p>\n Entscheidend hierfür ist die Eigenschaft ListIndex <\/b>des Kombinationsfeldes. Hat diese den Wert 0<\/b>, wird der erste Eintrag angezeigt. In diesem Fall soll das Kombinationsfeld geleert werden.<\/p>\n Wenn gerade gar kein Eintrag ausgewählt ist, soll ein Doppelklick bei gedrückter Umschalttaste nicht den ersten, sondern den letzten Eintrag der Liste anzeigen. Die Eigenschaft ListIndex <\/b>hat in diesem Fall den Wert -1<\/b>.<\/p>\n Das Kombinationsfeld wird auf den Eintrag mit dem Wert eingestellt, den die Eigenschaft ItemData <\/b>mit dem maximalen Wert liefert. Der maximale Wert entspricht der Anzahl aller Einträge minus 1: ListCount -1<\/b>.<\/p>\n Bleiben die übrigen Fälle, bei denen einfach der Eintrag angezeigt werden soll, der vor dem aktuellen Eintrag liegt. Dies erledigt das einfache Subtrahieren des Wertes 1 vom Index des aktuellen Eintrags. Den kompletten geänderten Code gegen über der einfachen Version zeigt Listing 3<\/a><\/span>.<\/p>\n Listing 3: Der Code der Klasse clsComboboxDoubleclick<\/p>\n Funktion in Klassen ausgliedern<\/p>\n Wenn Sie mehrere Kombinationsfelder in einem oder mehreren Formularen mit dieser Funktion ausstatten möchten, erhalten Sie einigen redundanten Code. Das ist ungünstig und deshalb verlegen wir den Code in zwei Klassen.<\/p>\n Damit brauchen Sie zum Hinzufügen der Funktionalität nur die wenigen Zeilen aus Listing 4<\/a><\/span> zum Klassenmodul des Formulars hinzuzufügen.<\/p>\n Listing 4: Einrichten der Doppelklick-Funktionalität für mehrere Kombinationsfelder<\/p>\n Nach dem Deklarieren und Instanzieren eines Objekts auf Basis der Klasse clsComboboxDoubleclick <\/b>brauchen Sie nur für jedes betroffene Kombinationsfeld einmal die Methode AddDoubleclickCombobox <\/b>aufzurufen und den Namen des betroffenen Kombinationsfeldes zu übergeben.<\/p>\n Die Klasse objComboBoxDoubleclick <\/b>(s. Listing 5<\/a><\/span>) verarbeitet die übergebenen Kombinationsfelder in dieser Methode, indem Sie für jedes eine eigenes Objekt des Typs clsComboboxDoubleclickControl <\/b>anlegt, einen Verweis auf das Kombinationsfeld übergibt und das neue Objekt in einer Collection speichert, damit dieses samt Verweis auf das Kombinationsfeld nicht verloren geht.<\/p>\n Listing 5: Der Code der Klasse clsComboboxDoubleclick<\/p>\n Die Klasse clsComboboxDoubleclickControl <\/b>nimmt den Verweis auf das Kombinationsfeld auf und legt für dieses die beiden bereits beschriebenen Ereignisprozeduren an (s. Listing 6<\/a><\/span>). Diese beziehen sich jeweils auf das im Objekt m_Combobox <\/b>referenzierte Kombinationsfeld. Die Funktion entspricht der aus dem vorherigen Beispiel.<\/p>\n Listing 6: Code der Klasse clsComboboxDoubleclickControl<\/p>\n Auch die Variable bolBack<\/b>, die festlegt, ob der Benutzer die Umschalttaste beim Doppelklick gedrückt hält, brauchen Sie nur einmal pro Klasse.<\/p>\n Einsatz in eigenen Anwendungen<\/p>\n Wenn Sie diese Lösung in Ihrer eigenen Anwendung einsetzen möchten, brauchen Sie nur die beiden Klassen clsComboboxDoubleclick <\/b>und clsComboboxDoubleclickControl <\/b>zu importieren und der Ereignisprozedur Beim Laden <\/b>die Codezeilen aus Listing 4<\/a><\/span> hinzuzufügen.<\/p>\n Enthaltene Beispieldateien:<\/p>\n KombifeldPerDoppelklick.mdb<\/p>\n\n
![\"pic001.png\"](\"..\/fileadmin\/_temp_\/2011_05\/KombifeldPerDoppelklick-web-images\/pic001.png\")
<\/p>\nMe!cboPersonal = Me!cboPersonal.ItemData(0)<\/pre>\n
If IsNull(Me!cboPersonal) Then\r\n Me!cboPersonal = Me!cboPersonal.ItemData(0)\r\nEnd If<\/pre>\n
Private Sub cboPersonal_DblClick(Cancel As Integer)\r\n If IsNull(Me!cboPersonal) Then\r\n Me!cboPersonal = Me!cboPersonal.ItemData(0)\r\n Else\r\n Me!cboPersonal = Me!cboPersonal.ItemData(Me!cboPersonal.ListIndex + 1)\r\n End If\r\nEnd Sub\r\nMe!cboPersonal = Me!cboPersonal.\r\nItemData(Me!cboPersonal.ListIndex + 1)<\/pre>\n
Private Sub cboPersonal_DblClick(Cancel As Integer)\r\n Me!cboPersonal = Me!cboPersonal.ItemData(Me!cboPersonal.ListIndex + 1)\r\nEnd Sub<\/pre>\n
Dim bolBack As Boolean\r\nPrivate Sub cboPersonal_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)\r\n If Button = 1 And Shift = 1 Then\r\n bolBack = True\r\n End If\r\nEnd Sub\r\nPrivate Sub cboPersonal_DblClick(Cancel As Integer)\r\n If bolBack Then\r\n Select Case Me!cboPersonal.ListIndex\r\n Case 0\r\n Me!cboPersonal = Null\r\n Case -1\r\n Me!cboPersonal = Me!cboPersonal.ItemData(Me!cboPersonal.ListCount - 1)\r\n Case Else\r\n Me!cboPersonal = Me!cboPersonal.ItemData(Me!cboPersonal.ListIndex - 1)\r\n End Select\r\n bolBack = False\r\n Else\r\n Me!cboPersonal = Me!cboPersonal.ItemData(Me!cboPersonal.ListIndex + 1)\r\n End If\r\nEnd Sub<\/pre>\n
Dim objComboboxDoubleclick As clsComboboxDoubleclick\r\nPrivate Sub Form_Load()\r\n Set objComboboxDoubleclick = New clsComboboxDoubleclick\r\n With objComboboxDoubleclick\r\n .AddDoubleclickCombobox Me!cboPersonal\r\n .AddDoubleclickCombobox Me!cboArtikel\r\n End With\r\nEnd Sub<\/pre>\n
Dim colComboboxes As Collection\r\nPublic Sub AddDoubleclickCombobox(cbo As Combobox)\r\n Dim objCombobox As clsComboboxDoubleclickControl\r\n Set objCombobox = New clsComboboxDoubleclickControl\r\n Set objCombobox.Combobox = cbo\r\n colComboboxes.Add objCombobox, cbo.Name\r\nEnd Sub\r\nPrivate Sub Class_Initialize()\r\n Set colComboboxes = New Collection\r\nEnd Sub<\/pre>\n
Private WithEvents m_Combobox As Combobox\r\nDim bolBack As Boolean\r\nPublic Property Set Combobox(cbo As Combobox)\r\n Set m_Combobox = cbo\r\n With m_Combobox\r\n .OnDblClick = "[Event Procedure]"\r\n .OnMouseDown = "[Event Procedure]"\r\n End With\r\nEnd Property\r\nPrivate Sub m_Combobox_DblClick(Cancel As Integer)\r\n If bolBack Then\r\n Select Case m_Combobox.ListIndex\r\n Case 0\r\n m_Combobox.Value = Null\r\n Case -1\r\n m_Combobox.Value = m_Combobox.ItemData(m_Combobox.ListCount - 1)\r\n Case Else\r\n m_Combobox.Value = m_Combobox.ItemData(m_Combobox.ListIndex - 1)\r\n End Select\r\n bolBack = False\r\n Else\r\n m_Combobox.Value = m_Combobox.ItemData(m_Combobox.ListIndex + 1)\r\n End If\r\nEnd Sub\r\nPrivate Sub m_Combobox_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)\r\n If Button = 1 And Shift = 1 Then\r\n bolBack = True\r\n End If\r\nEnd Sub<\/pre>\n
Downloads zu diesem Beitrag<\/h3>\n