Brauche Hilfe beim Kombifeld

[asiat]

Hallo,

ja..also..ich habe die Frage schon mal gestellt, alerdings mit einer dummen Bemerkung...worauf mir nicht wirklich weitergeholfen wurde obwohl viele es versucht haben.
wie auch immer...ich wollte es noch mal versuchen..
also das Problemm ist folgendes:

Ich habe ein Ungebundenes Kombinatiosfeld "Vorname"
gefüllt wird das Ding so:

Code (vb) [Auswählen] Erweitern

Private Sub Nachname_Change()
Me.Nachname.RowSource = "SELECT Nachname FROM tbl_Kontakt WHERE Nachname LIKE '*" & Me.Nachname.Text & "*'"
If Me.Nachname.ListCount > 0 Then
Me.Nachname.Dropdown
End If

End Sub

Warum in CHAGE ?
Ihr kennt das bestimmt von Google, wenn Mann was eingibt wird sofort dropdownliste aufgeklappt mit vorschlägen.
---
genau so hier auch, wenn nichts gefunden wird dann wird zugeklappt.



und jetzt kommt das eigentliche Problemm.

wenn wie im bild Kombifeld aufklappt dann kann ich nicht mit Pfeiltasten das Vorgeschlagene Wörter auswählen.
besser gesagt wenn ich pfeiltaste drucke dann wird gleich erstes Wort genommen und die Liste wird zugeklappt.

hatt vielleicht eine Idee wie man das Umsetzen kann?

[lumbumba]

Statt Nachname_Change nimm Nachname_KeyUp und verwerte die entsprechenden keyCodes
Zudem solltest du die anpassen weil *TextInCombobox* mehr anzeigt als du wahrscheinlich wolltest.

Code [Auswählen] Erweitern

Sub Nachname_KeyUp(KeyCode As Integer, Shift As Integer)
   Select case Keycode
      case 37, 38, 39, 40 'Alle Pfeiltasten, mache hier nix
      case else
         Me.Nachname.RowSource = "SELECT Nachname FROM tbl_Kontakt WHERE Nachname LIKE '" & Me.Nachname.Text & "*'"
         If Me.Nachname.ListCount > 0 Then Me.Nachname.Dropdown
   end Select

End Sub

[bahasu]

Hallo

Ihr kennt das bestimmt von Google, wenn Mann was eingibt wird sofort dropdownliste aufgeklappt mit vorschlägen.

Kannst Du nicht beim Kombifeld die Eigenschaft "Automatisch ergänzen" nutzen?
Wenn Mann (oder Frau ) in diesem Fall etwas eingibt, wird aus der hinterlegten Liste ein passender Eintrag vorgeschlagen. Ist das nicht das, was Du suchst?

Harald

[Jonny]

Hallo,
ich habe deine Routine beim Ereignis "beim Hingehen" _Enter kopiert.

Läuft tadelos.

Bei Change titt immer ein, wenn auch nur ein Zeichen verändert wird. Also abc löst dreimal das Ereignis aus.

Gruß

Johann

[asiat]

wow..nicht alle auf ein mal 

lumbumba
Danke Sehr, funktioniert sehr gut.

bahasu
so wie ich es haben möchte finde ich schöner...hat man so eine Auswahl.

Jonny
hmm^!!  Wie? amm da hast du bestimmt noch was geändert oder? ich meine ich habe gerade das ausprobiert und das geht nicht.

___________________________________
Das Thread als gelöst markiere ich später

[asiat]

NOCH EINE ZUSÄTZLICHE FRAGE !

ich habe felder PLZ und Ort
wenn ich in PLZ z.B 30659 Eingebe dann soll die zweitspaltige dropdownliste mir eine auswahl an PLZ und Orte die villeicht schon in der tabelle tbl_Kontakt vorhanden sind anbieten wenn ich was in der dropdownliste auswähle dann soll automatisch das Ort in Feld "Ort" eingefügt werden.


gibt es bei Kombobox sowas wie zeig mir das was ich gerade ausgewählt habe?
hat da eine idee ?

------------------------------------------

habe schon gefunden !!!

das habe ich gemeint

Code (vb) [Auswählen] Erweitern

Private Sub PLZ_AfterUpdate()
Me.Ort = Me.PLZ.Column(1)
End Sub