textbox füllen

[Volker]

Hallo NG,
bin eigendlich nen anfänger. habe es aber soweit geschafft in einer
userform (word2002) von einer db mit dem Dim -----oRS As ADODB.Recordset----
eine listbox füllen zu lassen.

Dim x As Variant
Dim y() As Variant
Set oRS = oConn.Execute(strsql)
x = oRS.GetRows()
If IsArray(x) Then
ReDim y(UBound(x, 2), UBound(x, 1))
For i = 0 To UBound(x, 1)
For j = 0 To UBound(x, 2)
y(j, i) = x(i, j)
Next
ListBox1.List = y() 'liste wird gefüllt
Next i

Leider schaff ich es jetzt nicht die entsprechenden Textboxen auf gleiche
art oder entsprechenb zu füllen.
Versucht habe ich es mit:

listennr = ListBox1.ListIndex 'angezeigte Nr von Liste
For Each ctrl In Me.Controls
If TypeOf ctrl Is MSForms.TextBox Then
Me.Nachname.SetFocus 'kann nicht stimmen da immer
nur eine textbox gefüllt wird
Me.Nachname.Value = y(listennr, i) 'hier müssen variable
stehen----aber welche ???
End If
Next

weiss einer von euch rat, oder sagt mir jemand wo ich rat nachlesen kann?

Besten dank im vorraus
Volker

 

[Cindy M -WordMVP-]

Hi Volker,

bin eigendlich nen anfänger.

In den Newsgruppen auch, offensichtlich. Du solltest immer ein wenig 'rum
lesen, zuerst, um zu sehen ob eine Gruppe geeignet ist. Deine Frage ist es
wohl; die Sprache aber nicht In Zukunft fahrst Du besser, wenn Du
deutschsprachige Fragen in de.word.vba stellst

Leider schaff ich es jetzt nicht die entsprechenden Textboxen auf gleiche
art oder entsprechenb zu füllen.
Versucht habe ich es mit:

Du willst eine Gruppe von Textfelder füllen? Das geht in VBA nur harzig...

1. SetFocus musst Du sowieso nicht benutzen.

2. Das Problem, das nur ein Textfeld gefüllt wird, kommt daher, dass Du
"Nachname" spezifisch erwähnst. Wenn Du das machen willst, kannst Du einfach
alle Textfelder auflisten
Me.Nachname.TEXT = y(1,1)
Me.Vorname.TEXT = y(1,2)

3. Die andere Möglichkeit wäre, die Textfelder so zu benennen:
Info1, Info2, Info3 usw.

Die Schleife würde einen "Zähler" inkrementieren, so dass Du die Felder so
ansprechen könntest:
FeldName = "Info" & Trim(CStr(Zähler))
Me.Controls(FeldName).Text = y(1, Zähler)

listennr = ListBox1.ListIndex 'angezeigte Nr von Liste
For Each ctrl In Me.Controls
If TypeOf ctrl Is MSForms.TextBox Then
Me.Nachname.SetFocus 'kann nicht stimmen da immer
nur eine textbox gefüllt wird
Me.Nachname.Value = y(listennr, i) 'hier müssen variable
stehen----aber welche ???
End If
Next

Cindy Meister
INTER-Solutions, Switzerland
http://homepage.swissonline.ch/cindymeister (last update Sep 30 2003)
http://www.word.mvps.org

This reply is posted in the Newsgroup; please post any follow question or
reply in the newsgroup and not by e-mail