Office: (Office 2003) Kombinationsfeld bei Eingabe filtern

Hallo zusammen,

Ich habe auf einem Formular ein Kombinationsfeld, welches auf eine Tabelle mit Adressen zurückgreift.

ich möchte nun erreichen, das nach Eingabe eines jeden Zeichens die Daten im Kombinationsfeld gefiltert werden.

Konkret:

Wenn "B" eingegeben wird sollen nur noch die Adressen zur Auswahl stehen die mit "B" beginnen. Bei Eingabe des zweiten Zeichens "Be" dann nur noch die Einträge die mit "Be" beginnen usw.

Ich habe das als Access-Lösung schon mal gesehen, aber ich finde es nicht wieder. Dort wurde in Abhängigkeit von der Eingabe die RowSource des Kombinationsfeldes aktualisiert. Ich hab mir schon den Wolf gesucht, aber ich fende es nicht.

Hat jemand von euch eine Idee?

Vielen Dank
Jens

:)

 

Huhu.

Eigenschaften der Combobox, Register "Daten" => hier die Einstellung "automatisch Ergänzen" hilft nicht?

 

Hallo Jens,

welchen Sinn sollte das haben? Stelle die Eigenschaft 'Automatisch ergänzen' des Kombinationsfeldes auf 'ja', so nähert sich das Kombifeld automatisch mit jedem weiteren angegebenen Zeichen dem gewünschten Begriff.

 

Hallo Marsu,

der Grund ist ganz einfach. Es handelt sich um einen exteren Standort meines Kunden, und wir haben nur sehr beschränkte Leitungskapazitäten zur Verfügung.

Wenn ich nun alle Adressdaten via RowSource hinter dem Kombinationsfeld hinterlege führt das dazu, das alle Daten vom Server abgerufen werden. Das führt beim Öffnen des Formulars zu einem Zeitverzug von ca. 5 Sekunden. Das ist in dieser Form nicht wirklich praktikabel.

Daher meine Idee, die Rowsource des Kombinationsfeldes erst nach der Eingabe des ersten Buchstabens zu füllen. Dadurch kann ich die Datenmenge erheblich einschränken.

Gruß
Jens

 

Hallo Jens,

Josef P. hat mal mit der "Late-Binding-Combo Box" eine Möglichkeit geschaffen, den Daten erst bei aktivieren der Combo zu laden. Das Beispiel kannst Du auf seine Seite downloaden.

Klick hier

 

Hallo Sascha,

Die Lösung sieht zwar interresant aus, lösst aber nicht mein Problem. Eine Möglichkeit, die Daten erst beim Aktivieren des Kombinationsfeldes einzulesen lässt sich einfacher realisieren. Trotzdem muß ich alle Adressen einlesen, und das dauert halt.

Es ist auch kein Problem das ganze mit zwei Feldern zu lösen um die Daten vorzufiltern, aber das sieht ja "bescheiden" aus. Wie schon am Anfang gesagt, ich habe das schon mal gesehen. Es geht also.

Der Code entsprach in etwa:

Private Sub VS_ID_Nr_2_Change()

If Len(Me![VS ID-Nr 2]) > 1 Then
Me![VS ID-Nr 2].RowSource = "SELECT Such, Nr, Int, Typ, AdNr, Anschrift, Ort FROM [T-Adresse] WHERE (Typ = 1 OR Typ = 11 OR Typ = 12 OR Typ = 41) AND (aktiv = 1 OR aktiv = - 1) AND (Such Like '" & Me![VS ID-Nr 2] & "*') ORDER BY Such"
Me![VS ID-Nr 2].Dropdown
End If

End Sub

[VS ID-Nr 2] ist der Name meines Kombinationsfeldes. Leider reagiert der Code nicht. Ich vermute den Fehler in "Len(Me![VS ID-Nr 2]) > 1)".

Das muß etwas anders heißen, damit er die bereits eingegebenen Zeichen erkennt.

Gruß
Jens

 

Hallo
ich hänge eine Mdb in den Anhang
schaue dort Formular
FrmAutoErgaenzFilt und FrmAutoErgaenzFiltMitDatenherkunftAendern

Leider zu gross versuche zu verkleinern *mad.gif*

 

Hallo
so jetzt solte es gehen

 

Code:

Standard ist Value. Der hat aber erst nach Aktualisierung einen Wert.

 

Hallo Eberhard,

danke! Das war der Trick.

Da als Backend ein SQL-Server läuft musste ich noch das Platzhalterzeichen ändern, und der Eintrag "Automatisch ergänzen" muß auf "nein" eingestellt werden.

Für alle die es interresiert hier noch einmal der Funktionierende Code:

If Len(Me![VS ID-Nr 2].Text) > 1 Then
Me![VS ID-Nr 2].RowSource = "SELECT Such, Nr, Int, Typ, AdNr, Anschrift, Ort FROM [T-Adresse] WHERE (Typ = 1 OR Typ = 11 OR Typ = 12 OR Typ = 41) AND (aktiv = 1 OR aktiv = - 1) AND (Such Like '" & Me![VS ID-Nr 2].Text & "%') ORDER BY Such"
Me![VS ID-Nr 2].Dropdown
End If

Danke an alle!

Gruß
jens