Kombinationsfeld
steffen
ich benötige ein paar Zeilen Code um folgendes Ereignis auszulösen:
Bei einem Klick auf ein Kombinationsfeld
1) soll es sich ausklappen
2) der vorh. Text soll markiert werden
3) Wenn man einen Text eingibt soll der vorhandene komplett überschrieben werden
Bis jetzt sieht es so aus:
Private Sub Suche_Ort_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Suche_Ort.Dropdown
Suche_Ort.SelLength = Len(Nz(Me!Suche_Ort.Text))
Suche_Ort.SelStart = 0
End Sub
Schon mal danke für eure Hilfe!!
Mfg steffen
Anzeige