Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

sevEingabe Combo vorbelegen
Autor: chris3105
Datum: 07.04.10 15:13
Hallo. Ich habe eine eigentlich einfache Frage zu der Combo Box beim sevEingabe.ocx Dem zweispaltigen Combo (PLZ, STADT) soll in einem ungebundenen Formular optional ein Wert zugewiesen werden und zwar die PLZ. Allerdings soll die Eingabe des Benutzers über die Stadt erfolgen. 'Load Dim strSql As String Dim i As Integer With Me.cboPlz strSql = "SELECT plz, stadt FROM tblplz ORDER BY stadt" Set .Recordset = CurrentDb.OpenRecordset(strSql) .Refresh .BoundColumn = 1 .DisplayColumn = 2 .Columns(2).Width = 2200 .ListWidth = 2200 .Columns(1).Visible = False .AutoComplete = True End With ' In Access würde die Zuweisung schlicht über cboPlz = me.openargs erfolgen ' Das scheint mit dem OCX nicht zu funktionieren, da die zweite Spalte angezeigt wird ' Ein Workaround der funktioniert ist If Not IsNull(Me.OpenArgs) Then With cboPlz For I = 0 To .ListCount - 1 If .SubItem(I, 1) = Me.OpenArgs Then .ListIndex = I End If Next End With End If Gibt es da noch eine bessere/andere Möglichkeit? Vielen Dank Chris

sevEingabe Combo vorbelegen	1.657	chris3105	07.04.10 15:13
Re: sevEingabe Combo vorbelegen	968	Dieter	07.04.10 15:20
Re: sevEingabe Combo vorbelegen	925	chris3105	07.04.10 15:32
Re: sevEingabe Combo vorbelegen	1.009	Dieter	07.04.10 16:27
Re: sevEingabe Combo vorbelegen	918	chris3105	07.04.10 17:43

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen