title image


Smiley Mit dieser segensreichen Funktion


Function GetListSelect(AufrufendesFormular As String, Listenfeld As String, Spalte As String)

'gibt den Wert zurück, der im angegebenen Formular im angegebenen Control in der angegebenen Spaltennummer steht

'(SPalte 0 = 1. Spalte des Controls). Bei Mehrfachauswahl im COntrol werden alle Werte ausgegeben

'und voneinander durch Komma getrennt

'Anwendbar für List- und Kombofelder.

Dim item As Variant

Dim zw As String

On Error Resume Next

With Forms(AufrufendesFormular).Controls(Listenfeld)

Select Case .ControlType

Case acListBox 'mehrfachauswahl möglich

For Each item In .ItemsSelected

zw = zw & ", " & .Column(Spalte, item)

Next item

zw = Right$(zw, Len(zw) - 2) 'Komma und blank abschneiden

Case acComboBox 'keine Mehrfachauswahl möglich

If IsNull(.Value) Then

zw = ""

Else

zw = .Column(Spalte)

End If

Case Else

MsgBox "Falscher Controltyp"

Stop

End Select

End With

GetListSelect = zw

End Function







Aufruf dann in einem Formularereignis mit



GetListSelect Me.name, "lstDeineListe", 0



für die erste Spalte der gewählten Werte.



HTH

Martin
Atrus2711 ät gmx punkt net
Meine Beiträge zu MS Office betreffen stets Version 2000,
wenn nicht anders angegeben.




geschrieben von


Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: