Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss
Wert einer Spalte in einem Listenfeld ermitteln
11 views
Skip to first unread message
Michael Alexander
May 22, 2012, 3:48:33 AM5/22/12
to
Hallo!
Ich habe ein Listenfeld mit zwei Spalten, Name und Nummer
Während Name sichtbar ist, ist Nummer Spaltenbreite 0, also nicht sichtbar.
Nunmehr kann der User gewünschte Namen auswählen und diese werden dann in
einem String untereinander angezeigt:
Dim varItm As Variant
....
set ctl = Me.MeineListe
...
For Each varItm In ctl.ItemsSelected
strMailstring = strMailstring & vbCrLf & ctl.ItemData(varItm)
Next varItm
Das funktioniert auch.
Aber wie komme ich jetzt an den Spaltenwert 2 (Nummer) heran, den ich für
weitere Selektionen brauche.
Ich wollte varItm mit Redim dimmensionieren, brachte einen Fehler.
Nunmehr bin ich am Ende mit meinem Latein.
Google brachte auch keine Lösung...
Danke für Eure Tipps.
Michael
Acc2010
Ich habe ein Listenfeld mit zwei Spalten, Name und Nummer
Während Name sichtbar ist, ist Nummer Spaltenbreite 0, also nicht sichtbar.
Nunmehr kann der User gewünschte Namen auswählen und diese werden dann in
einem String untereinander angezeigt:
Dim varItm As Variant
....
set ctl = Me.MeineListe
...
For Each varItm In ctl.ItemsSelected
strMailstring = strMailstring & vbCrLf & ctl.ItemData(varItm)
Next varItm
Das funktioniert auch.
Aber wie komme ich jetzt an den Spaltenwert 2 (Nummer) heran, den ich für
weitere Selektionen brauche.
Ich wollte varItm mit Redim dimmensionieren, brachte einen Fehler.
Nunmehr bin ich am Ende mit meinem Latein.
Google brachte auch keine Lösung...
Danke für Eure Tipps.
Michael
Acc2010
Karl Donaubauer
May 22, 2012, 4:02:47 AM5/22/12
to
Michael Alexander wrote:
> Ich habe ein Listenfeld mit zwei Spalten, Name und Nummer
> Während Name sichtbar ist, ist Nummer Spaltenbreite 0, also nicht
> sichtbar.
> Nunmehr kann der User gewünschte Namen auswählen und diese werden
> dann in einem String untereinander angezeigt:
>
> Dim varItm As Variant
> ....
> set ctl = Me.MeineListe
> ...
> For Each varItm In ctl.ItemsSelected
> strMailstring = strMailstring & vbCrLf & ctl.ItemData(varItm)
> Next varItm
>
> Das funktioniert auch.
>
> Aber wie komme ich jetzt an den Spaltenwert 2 (Nummer) heran, den
> ich für weitere Selektionen brauche.
> ...
> Ich habe ein Listenfeld mit zwei Spalten, Name und Nummer
> Während Name sichtbar ist, ist Nummer Spaltenbreite 0, also nicht
> sichtbar.
> Nunmehr kann der User gewünschte Namen auswählen und diese werden
> dann in einem String untereinander angezeigt:
>
> Dim varItm As Variant
> ....
> set ctl = Me.MeineListe
> ...
> For Each varItm In ctl.ItemsSelected
> strMailstring = strMailstring & vbCrLf & ctl.ItemData(varItm)
> Next varItm
>
> Das funktioniert auch.
>
> Aber wie komme ich jetzt an den Spaltenwert 2 (Nummer) heran, den
> ich für weitere Selektionen brauche.
Einfach in der Schleife die 2. Spalte ansprechen:
ctl.Column(1, varItm)
--
Servus
Karl
*********
Access-FAQ: http://www.donkarl.com
Michael Alexander
May 22, 2012, 4:31:37 AM5/22/12
to
Herzlichen Dank!!!!!!!!!!!
Gruß
Michael
PS: Hab' lang damit herumgeschistelt!
"Karl Donaubauer" <NoS...@donkarl.com> schrieb im Newsbeitrag
news:a20vh2...@mid.individual.net...
Gruß
Michael
PS: Hab' lang damit herumgeschistelt!
"Karl Donaubauer" <NoS...@donkarl.com> schrieb im Newsbeitrag
news:a20vh2...@mid.individual.net...
0 new messages