Supportnet / Forum / Datenbanken
Steuerelemente auflisten
Frage
Hilfe kann mir jemand helfen?
Ich will alle Steuerelemente in einem Formular auflisten
eigentlich diese Schlaufe:
[code]
For A = 1 To Form_frmtest.Controls.Count
Debug.Print Form_frmtest.Controls.Item(A - 1).Name
Next
[/code]
Nur sollte der Formularname noch in einer Variablen stehen
Also irgendwie so:
[code]
Dim frm As ????
For A = 1 To frm.Count
Debug.Print frm.Item(A - 1).Name
Next
[/code]
Wie muss ich diese Variable deklarieren
Antwort 1 von reto
Hab es selber rausgefunden.
Für alle dies Intressiert hier der Code
Dim ic As Integer
Dim sFormName As String
sFormName = Me.Liste0.Column(0)
DoCmd.OpenForm sFormName, , , , , acHidden
For ic = 0 To Forms.Count - 1
If Forms(ic).Name = sFormName Then
For a = 1 To Forms(ic).Controls.Count
Debug.Print Forms(ic).Controls.Item(a - 1).Name
Next a
Exit For
End If
Next ic
DoCmd.Close acForm, sFormName
[code/]
Für alle dies Intressiert hier der Code
Dim ic As Integer
Dim sFormName As String
sFormName = Me.Liste0.Column(0)
DoCmd.OpenForm sFormName, , , , , acHidden
For ic = 0 To Forms.Count - 1
If Forms(ic).Name = sFormName Then
For a = 1 To Forms(ic).Controls.Count
Debug.Print Forms(ic).Controls.Item(a - 1).Name
Next a
Exit For
End If
Next ic
DoCmd.Close acForm, sFormName
[code/]