title image


Smiley Re: Werte in Listenfelder eintragen
Hier eine zum Teil brauchbare Lösung bezogen auf eine Abfrage. Du müsstest den Eintrag im ersten Listenfeld auslesen und ihn in die Variable Listentext bringen. Private Sub Befehl11_Click()Dim Db As DatabaseDim Rs As RecordsetDim strSql As StringDim Listentext As StringSet Db = CurrentDbstrSql = "SELECT Distinct DeineTabelle.DeinFeld FROM DeineTabelle;"Set Rs = Db.OpenRecordset(strSql) Do Until Rs.EOF Listentext = Listentext & Rs!DeinFeld & ";" Rs.MoveNext Loop Me.Listenfeld.RowSourceType = "Value List" Me.Listenfeld.RowSource = Mid(Listentext, 1, Len(Listentext) - 1) Rs.CloseEnd SubIch hoffe das hilft dir weiter.Mfg Reinhard

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: