title image


Smiley Re: Listenfeld
Hallo,



ähnlich so:



Sub txtAlter_Afterupdate()

Me!Listenfeld.Rowsource="Select Id, Nachname, Vorname from tblTabelle1 where Alter_Feld=" & Me!txtAlter & " order by Nachname"

End Sub

'

'

'

Sub Listenfeld_Afterupdate()

Me.Filter="Id= " & Me!Listenfeld.Column(0)

Me.Filteron=true

End Sub




Gruß vom Bodensee
Franz, DF6GL

PS: Bitte nach Tipps oder Lösungsvorschlägen immer eine Erfolgs- / Mißerfolgsmeldung posten!


geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: