MS Access VBA form /subform control question

Function ShowControls()
Dim frmCust as Form  
Dim i as Integer Set frmCust = Forms!Customer!CustomerSubform.Form  
For i = 0 To frmCust.Count - 1    
Debug.Print frmCust(i).ControlName  
Next i 
End Function

Select allOpen in new window

check this

Public Function getControls()
Dim frm As Form
Dim ctl As control
DoCmd.OpenForm "Customer", acNormal, , , , acHidden
Set frm = Forms("Customer")


For Each ctl In frm.Controls
Debug.Print ctl.Name
Next
Set frm = Nothing
End Function

Select allOpen in new window

Thank you for both your replies.

John Tsioumpris. I will look at this as a possible solution,(fall back) -  though I would still like a more direct access to the subform without the need to open the subform separately.

Jonathan Kelly. I tried using your code and still get the error message Run time error 2465 that the subform could be found.
I played with what you wrote and found something that worked.

I had to use the control name for the subform as defined in the mainform, ie When I click on the holder for the subform (in the mainform), I needed to use its name rather then the actual name of the subform.
So the actual code
where Mainform is FrmDepotIssuesDBSv3
           Subform  is frmSubdbs3
          The holder name for the subform is Daily Depot Appointments (as defined in the main form)

Function ShowControls()
Dim frmDepotEntry As Form
Dim i As Integer
Set frmDepotEntry = Forms!FrmDepotIssuesDBSv3![Daily Depot Appointments].Form
For i = 0 To frmDepotEntry.Count - 1
Debug.Print i, frmDepotEntry(i).ControlName
Next i
End Function

As a follow on question, is there a way of getting the index value without going the "For i = 0 To frmDepotEntry.Count - 1 " process ?
Some kind of function like :

FormIndex(ControlName) where it returns the form control index straight ? Or will I need to build a function to do that??

Thank you both for all your help and guidance. 

 



 

Here is another modified solution without"opening"

Public Function getControls()
Dim frm As Form_Customer
Set frm = New Form_Customer
Dim ctl As control
For Each ctl In frm.Controls
Debug.Print ctl.Name
Next
Set frm = Nothing


End Function

Select allOpen in new window

In order for this to work your form should carry code behind....if you are uncertain on this just right click the form in question (Customer) --> Design View --> Design tab --> look for the button to enter VBE (on Access 2007 for example is called "View Code")