{"id":55000476,"date":"2007-08-01T00:00:00","date_gmt":"2021-02-11T21:17:16","guid":{"rendered":"http:\/\/access-im-unternehmen.aix-dev.de\/aiu\/?p=476"},"modified":"-0001-11-30T00:00:00","modified_gmt":"-0001-11-30T00:00:00","slug":"Kombinationsfelder_mit_Suchfunktion","status":"publish","type":"post","link":"https:\/\/access-im-unternehmen.de\/Kombinationsfelder_mit_Suchfunktion\/","title":{"rendered":"Kombinationsfelder mit Suchfunktion"},"content":{"rendered":"

\"\"<\/p>\n

Kombinationsfelder zeigen normalerweise nur den Inhalt eines Feldes an. An der mangelnden Flexibilität dieses Steuerelements liegt das nicht: Natürlich können Sie auch den Inhalt mehrerer Felder gleichzeitig anzeigen und mit ein wenig Fantasie oder der Lektüre dieses Beitrags erweitern Sie das Kombinationsfeld gleichzeitig zum Suchfeld.<\/b><\/p>\n<\/p><\/div>\n

\n

Sinnvolle Beispiele für die Anzeige gleich mehrerer Felder in einem Kombinationsfeld gibt es viele: Das Formular frmBuchungen <\/b>der Lösung Kassenbuch <\/b>aus dem gleichnamigen Artikel (s. Shortlink 486) liefert beispielsweise gleich mehrere Einsatzmöglichkeiten. So können Sie dort mit einem Kombinationsfeld schnell nach einem bestimmten Buchungsdatensatz suchen, aber auch Buchungskonten mit einem flexiblen Kombinationfeld auswählen.<\/p>\n

Ersteres beschreibt dieser Beitrag im Detail: Sie erfahren, wie Sie das Kombinationsfeld dazu bringen, den Inhalt mehr als eines Feldes gleichzeitig anzuzeigen, und wie Sie darüber hinaus auch noch in den Inhalten der beiden Felder suchen können. Das Formular soll dann den ausgewählten Buchungsdatensatz anzeigen.<\/p>\n

Erstmal soll das Kombinationsfeld namens cboGeheZuBeleg<\/b> aber die gewünschten Daten beim „normalen“ Aufklappen liefern – etwa so wie in Bild 1, wo es die Buchungsnummer und den Buchungstext gleichzeitig anzeigt.<\/p>\n

\n \"abb001.tif\"\n <\/div>\n
\n

Bild 1: Anzeige des Inhalts zweier Felder beim Aufklappen der Kombinationsfeldeinträge<\/span><\/b><\/p>\n<\/p><\/div>\n

Das ist an sich noch keine große Kunst. Sie stellen einfach die Eigenschaften Spaltenanzahl <\/b>und Spaltenbreiten <\/b>auf 2 <\/b>beziehungsweise 0cm <\/b>sowie die Datensatzherkunft des Kombinationsfeldes auf den folgenden Wert ein:<\/p>\n

SELECT tblBuchungen.BuchungID, [Belegnummer] 
& ' ' & [Buchungstext] AS Buchung 
FROM tblBuchungen<\/pre>\n
Diese SQL-Anweisung setzt die beiden Felder der Tabelle tblBuchungen<\/b>, die übrigens wie in Bild 2 aussieht, zu einer per Leerzeichen getrennten Zeichenkette zusammen.<\/p>\n
\n                    \"abb002.tif\"\n                <\/div>\n
\n
Bild 2: Diese Tabelle liefert die Daten für das Kombinationsfeld zum Auswählen des aktuellen Buchungsdatensatzes.<\/span><\/b><\/p>\n<\/p><\/div>\n
Die Ereignisprozedur aus Listing 1 nimmt den einfacheren Teil der Programmierung des Kombinationsfeldes vorneweg. Die erste Anweisung sorgt für die Anzeige des Datensatzes mit der in der gebundenen Spalte des Kombinationsfeldes enthaltenen Buchungs-ID.<\/p>\n
\n
Listing 1: Nach dem Aktualisieren des Kombinationsfeldes soll das Formular den passenden Datensatz anzeigen.<\/p>\n
Private Sub cboGeheZuBeleg_AfterUpdate()<\/pre>\n
     Me.Recordset.FindFirst \"BuchungID = \" & Me.cboGeheZuBeleg<\/pre>\n
     Me.cboGeheZuBeleg.RowSource = \"SELECT BuchungID, Belegnummer & '' '' & Buchungstext \" _
 \"FROM tblBuchungen\"<\/pre>\n
     Me.cboGeheZuBeleg = Null<\/pre>\n
     bolUpdatedGeheZuBeleg = True<\/pre>\n
End Sub<\/pre>\n<\/p><\/div>\n
Die zweite stellt die RowSource<\/b>-Eigenschaft, die der Datensatzherkunft<\/b>-Eigenschaft im Eigenschaftsfenster entspricht, wieder auf den ursprünglichen Wert ein. Warum dies geschieht, erfahren Sie weiter unten. Außerdem leert die Routine noch das Kombinationsfeld und setzt eine Variable, deren Funktion Sie ebenfalls später kennen lernen, auf den Wert True<\/b>.<\/p>\n
Nicht automatisch ergänzen<\/b><\/p>\n
Die Eigenschaft Automatisch ergänzen <\/b>des Kombinationsfeldes sorgt dafür, dass dieses direkt den nächsten in der Liste enthaltenen Datensatz anzeigt, der mit der aktuell eingegebenen Zeichenfolge übereinstimmt. Was an sich eine Hilfe ist, wirkt sich hier eher hinderlich aus, wie Sie gleich erfahren werden.<\/p>\n
Das Kombinationsfeld soll bei der Suche nach Zeichenketten innerhalb der angezeigten Einträge helfen, indem es die angezeigten Einträge dem aktuellen Inhalt des Kombinationsfeldes entsprechend einschränkt.<\/p>\n
Sinnvollerweise soll es nach der Eingabe des ersten Zeichens auch noch aufklappen, sodass der Benutzer sieht, welche Einträge in Frage kommen.<\/p>\n
Das passende Ereignis heißt Bei änderung <\/b>– es reagiert auf die Eingabe jedes einzelnen Zeichens. Die Routine aus Listing 2 setzt die obigen Ideen um, indem sie zunächst die Eigenschaft RowSource <\/b>auf einen SQL-Ausdruck einstellt, der die Datensatzherkunft auf alle Datensätze der Tabelle tblBuchungen <\/b>reduziert, deren Feld Belegnummer <\/b>mit dem eingegebenen Text beginnt oder dessen Buchungstext den eingegebenen Text enthält. Anschließend klappt sie das Kombinationsfeld mit der DropDown<\/b>-Methode auf.<\/p>\n
\n
Listing 2: Diese Routine sorgt beim ändern des Kombinationsfeld-Textes für die Aktualisierung der Elemente der Datensatzherkunft.<\/p>\n
Private Sub cboGeheZuBuchung_Change()<\/pre>\n
     Dim strSQL As String<\/pre>\n
     strSQL = \"SELECT BuchungID, Belegnummer & '' '' & Buchungstext FROM tblBuchungen \" _
 \"WHERE Belegnummer LIKE ''\" & Me!cboGeheZuBuchung.Text & \"*' OR Buchungstext LIKE ''*\" _
 & Me!cboGeheZuBuchung.Text & \"*'\"<\/pre>\n
     Me!cboGeheZuBuchung.RowSource = strSQL<\/pre>\n
     Me!cboGeheZuBuchung.Dropdown<\/pre>\n
End Sub<\/pre>\n<\/p><\/div>\n
Interessanterweise funktioniert dies aber nicht wie gewünscht: Die Eingabe der Zahl 1 beispielsweise zeigt nur einen Datensatz an, obwohl es in den Beispieldaten mehr als einen Datensatz gibt, dessen Belegnummer mit dieser Zahl beginnt.<\/p>\n
Der Grund ist ganz einfach: Die Eigenschaft Automatisch ergänzen <\/b>sorgt dafür, dass das Kombinationsfeld direkt den ersten zur Zahl passenden Eintrag anzeigt (siehe Bild 3). Die SQL-Anweisung kann dazu natürlich nur einen Datensatz finden – nämlich den, der mit dem durch die automatische Ergänzung im Kombinationsfeld angezeigten Text übereinstimmt.<\/p>\n
\n                    \"abb003.tif\"\n                <\/div>\n
\n
Bild 3: Die Eigenschaft Automatisch ergänzen sorgt dafür, dass Access direkt bei der Eingabe den nächsten passenden Wert anzeigt..<\/span><\/b><\/p>\n<\/p><\/div>\n
<\/p>\n
Bei der Eingabe eines Textes, der in einem der Buchungstexte enthalten ist, funktioniert es hingegen: Das ist aber auch nicht verwunderlich, da die automatische Ergänzung hier nicht anschlägt.<\/p>\n
Für die dem SQL-Ausdruck entsprechende Anzeige der enthaltenen Elemente deaktivieren Sie das automatische Ergänzen also einfach.<\/p>\n
Bei der Eingabe eines Ausdrucks, der mit einer der Belegnummern übereinstimmt, markiert Access direkt den passenden Eintrag im aufgeklappten Kombinationsfeld (siehe Bild 4). Geben Sie hingegen einen Ausdruck ein, zeigt das Kombinationsfeld zwar alle passenden Elemente in der ausgeklappten Liste an, aber markiert nicht den ersten Eintrag.<\/p>\n
\n                    \"abb004.tif\"\n                <\/div>\n
\n
Bild 4: Beim Eingeben eines Ausdrucks, der mit dem Beginn der Listeneinträge übereinstimmt, wird das erste passende Element markiert.<\/span><\/b><\/p>\n<\/p><\/div>\n
Der wesentliche Unterschied ist, dass im ersten Fall das Abschließen der Eingabe mit der Eingabetaste oder anderweitiges Verlassen des Kombinationsfeldes den aktuell markierten Eintrag auswählt, das Ereignis Nach Aktualisierung<\/b> auslöst und wie oben beschrieben die passende Buchung im Formular anzeigt.<\/p>\n
Beginnt keiner der Listeneinträge mit dem Suchbegriff, wird auch kein Eintrag markiert und ein Verlassen des Kombinationsfeldes führt dazu, dass Access versucht, den aktuell eingegebenen Suchbegriff aus den angezeigten Elementen auszuwählen. Dies führt zu einem Fehler, da der passende Eintrag schlicht nicht existiert („Der von Ihnen eingegebene Text ist kein Element der Liste“).<\/p>\n
Ein Fall für die Fehlerbehandlung<\/b><\/p>\n
Ein Fehler im Formular Eine gute Gelegenheit, ein Beispiel für das Ereignis Bei Fehler <\/b>zu liefern!<\/p>\n
Legen Sie also eine Prozedur für die passende Ereigniseigenschaft an und bestücken Sie diese zunächst nur mit der folgenden Zeile, um die Nummer des hier auftauchenden Fehlers herauszufinden:<\/p>\n
Debug.Print DataErr<\/pre>\n
Der Fehler taucht wie erwartet auf, aber zusätzlich gibt das Direktfenster die Fehlernummer aus – in diesem Fall die Nummer 2237. Damit können Sie zunächst eine Bedingung in der Bei Fehler<\/b>-Ereignisprozedur unterbringen, die nur beim Auftreten des Fehlers 2237 die passenden Anweisungen ausführt.<\/p>\n
Die passende Routine aus Listing 3 prüft neben der Fehlernummer auch noch den Namen des betroffenen Steuerelements – immerhin können ja auch verschiedene Steuerelemente diesen Fehler auslösen. Hört das Steuerelement auf den Namen cboGeheZuBeleg<\/b>, passiert Folgendes:<\/p>\n
\n
Listing 3: Auswählen des ersten Datensatzes der aktuellen Datensatzherkunft und Einstellen des Formulars auf die passende Buchung<\/p>\n
Private Sub Form_Error(DataErr As Integer, Response As Integer)<\/pre>\n
     Dim strSQL As String<\/pre>\n
     Dim lngBuchung As Long<\/pre>\n
     Select Case DataErr<\/pre>\n
         Case 2237<\/pre>\n
             Select Case Me.ActiveControl.Name<\/pre>\n
                 Case \"cboGeheZuBeleg\"<\/pre>\n
                     Me.ActiveControl.Undo<\/pre>\n
                     strSQL = Me.ActiveControl.RowSource<\/pre>\n
                     lngBuchung = CurrentDb.OpenRecordset(strSQL, dbOpenDynaset).Fields(\"BuchungID\")<\/pre>\n
                     Me.ActiveControl = lngBuchung<\/pre>\n
                     Response = acDataErrContinue<\/pre>\n
                     cboGeheZuBeleg_AfterUpdate<\/pre>\n
             End Select<\/pre>\n
     End Select<\/pre>\n
End Sub<\/pre>\n<\/p><\/div>\n