CesarF
New Member
- Joined
- May 16, 2009
- Messages
- 28
Hi,
I created an Access-like forms manager for Excel.
I'm using the control's tag as an identifier for field's handling.
Actually I've 9 xlsm files, with 40+ forms in total and each form with about 20+ controls.
I need to list every control's form/name/tag of all file forms while unloaded, in VBE's immediate window.
This is as far as I can go now, and last line is where I'm stuck:
I already tried ...Properties("controls")(1).name but it only shows "Count"
and ...Properties("controls")(1).value shows the count of controls, instead the control's first property.
I also tried set frm = Application.VBE.ActiveVBProject.VBComponents(cpn.Name) after the "if", but no luck
I've several files, so I'm looking for a dynamic solution, instead hardcoding every form's name.
I've been googling for hours, but find no
I hope you can help me, thank you in advance.
kr,
César.
I created an Access-like forms manager for Excel.
I'm using the control's tag as an identifier for field's handling.
Actually I've 9 xlsm files, with 40+ forms in total and each form with about 20+ controls.
I need to list every control's form/name/tag of all file forms while unloaded, in VBE's immediate window.
This is as far as I can go now, and last line is where I'm stuck:
Rich (BB code):
For Each cpn In Application.VBE.ActiveVBProject.VBComponents
If cpn.Type = 3 Then
' For Each prp In Application.VBE.ActiveVBProject.VBComponents(cpn.Name).Properties
' Debug.Print " " & prp.Name
' Next
For Each ctl In Application.VBE.ActiveVBProject.VBComponents(cpn.Name).Properties("controls")
I already tried ...Properties("controls")(1).name but it only shows "Count"
and ...Properties("controls")(1).value shows the count of controls, instead the control's first property.
I also tried set frm = Application.VBE.ActiveVBProject.VBComponents(cpn.Name) after the "if", but no luck
I've several files, so I'm looking for a dynamic solution, instead hardcoding every form's name.
I've been googling for hours, but find no
I hope you can help me, thank you in advance.
kr,
César.