Mehrdeutiger Name

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo
Doch genauso sieht deine Schleife aus, ... und noch dazu innerhalb einer With-Anweisung auf ein Frame.
Erstelle mal, z.B. im Frame "Frame_P8_Kfz" einen zusätzlichen Commandbutton manuell, und füge diese Anweisung in den Commandbutton
Me.Textbox2 = "Test"
zu, und führe den Commandbutton mal aus. Ergebnis = Fehler
Ändere die Anweisung in
Me.Frame_P8_Grunddaten.textbox2 = "Test"
... und siehe da. Plötzlich funktioniert es :-)
Die Textboxen werden bei dir zur Laufzeit innerhalb einer WITH-Anweisung auf ein Frame erstellt,... daher funktioniert das. Es gibt in der UF zwar, oberflächlich, betrachtet zwei Textboxen mit dem gleichen Namen, aber dem ist nun mal nicht so.
Die Textboxen können NUR über die Bezeichnung des übergeordneten Objectes dem sie zugewiesen wurden (WITH-ANWEISUNG !!!) angesprochen werden.
Im manuellen Modus ist das nicht möglich, da hier kein übergeordnetes Objekt bekannt ist, bzw. verwendet wird.
Ist die Apollo-Rakete nun gestartet :-) !!!
Gruss Rainer

Hallo,
Reiner ist anscheinend im falschen Zug.
Ich habe nur eine Erklärung, warum das zur Laufzeit klappt:
Im Enturfsmodus schreit der Compiler bei gleicher Namensvergabe. Wenn du die Objekte aber zur Laufzeit erstellst und 'falsch' benamst ist der Compiler außen vor.
Das Prob ist jetzt aber: Wenn du die Textboxen nach Namen abfragst, wirst du immer nur den Inhalt der 1. TB dieses Namens erhalten. Sind diese allerdings in unterschiedlichen Frames, kannst du die TBs auch Frameweise abfragen und erhälst eindeutige Ergebnisse.
UF mit 2 Frames und dieser Code:


Private Sub UserForm_Initialize()
Dim txtb As Object, i As Integer
For i = 1 To 2
Set txtb = Me.Frame1.Controls.Add("forms.textbox.1")
With txtb
.Name = "TextBox" & i
.Top = i * 20
End With
Next i
For i = 1 To 2
Set txtb = Me.Frame2.Controls.Add("forms.textbox.1")
With txtb
.Name = "TextBox" & i
.Top = i * 20
End With
Next i
End Sub
Private Sub UserForm_Terminate()
Dim txtb As Object
For Each txtb In Me.Frame1.Controls
Debug.Print txtb.Name & " " & txtb.Value
Next
For Each txtb In Me.Frame2.Controls
Debug.Print txtb.Name & " " & txtb.Value
Next
Debug.Print Me.Controls("TextBox1").Value
End Sub

Gruß ausm Pott
Udo

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Mehrdeutiger Name

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread