TextBox auslesen
10.06.2015 15:17:10
Hannes
ich bin neu hier im Forum.
Mit folgendem Code erstelle ich eine gewisse Anzahl von TextBoxen und benenne sie ordentlich. _
Das klappt auch gut, wie die Kontrollausgabe zeigt.
For i = 2 To felder
Set tebo = Me.Controls.Add("Forms.TextBox.1")
With tebo
.Name = "TextBox" & i
.Left = 12
.Top = 12 + i * 30
.Width = 320
.Height = 19.5
End With
MsgBox (tebo.Name)
Set cb = Me.Controls.Add("Forms.checkbox.1")
With cb
.Left = 372
.Top = 12 + i * 30
.Width = 14
End With
Set cb = Me.Controls.Add("Forms.checkbox.1")
With cb
.Left = 456
.Top = 12 + i * 30
.Width = 14
End With
Set cb = Me.Controls.Add("Forms.checkbox.1")
With cb
.Left = 564
.Top = 12 + i * 30
.Width = 14
End With
Next i
Set butt = Me.Controls("CommandButton1")
With butt
.Left = 234
.Height = 42
.Top = 12 + i * 30
.Width = 228
.Caption = "Fertig"
.Font.Size = 30
.Font.Bold = True
End With
Will ich jedoch nun mittels des folgenden Codes die Werte der einzelnen TextBoxes auslesen, so _ kommt immer die Fehlermeldung, die Variable sei nich definiert. Dabei steht der Cursor dann auf dem fett markieren Baustein. Das zieht sich für alle Textboxen durch.
Arr_Namen_Felder(1) = TextBox1.Value
Arr_Namen_Felder(2) = TextBox2.Value
If felder_gesamt = 2 Then Unload Namen_Felder
Arr_Namen_Felder(3) = TextBox3.Value
If felder_gesamt = 3 Then Unload Namen_Felder
Hat jemand eine Idee, woran das liegen könnte?
Vielen Dank bereits im Voraus.
Gruß
Hannes
Anzeige