子窗体内的子窗体控件

我构建了一个函数来遍历窗体上的所有控件并应用一个事件，如果它是一个文本框/组合框/列表框，该函数还会测试该控件是否为子窗体并为该窗体运行相同的函数子窗体控件。我遇到的问题是如果子窗体中有另一个子窗体，我无法循环控件。子窗体内的子窗体控件

Public Function FE_LoopThroughAllControlsNumLockOn(frm As Form) 
Dim ctl As control 
For Each ctl In frm 
    If ctl.ControlType = acSubform Then 
     Call FE_LoopThroughAllControlsNumLockOn(frm(ctl.Name).Form) 'Error here on subform within subform 
    ElseIf xIsControlForEventNumLock(ctl.ControlType) = True Then 
     ctl.OnGotFocus = "=FM_NUM_ON()" 
    End If 
Next ctl 
Set ctl = Nothing 
End Function 

Function xIsControlForEventNumLock(vControlType As AcControlType) As Boolean 
    Select Case vControlType 
     Case Is = acComboBox: xIsControlForEventNumLock = True 
     Case Is = acListBox: xIsControlForEventNumLock = True 
     Case Is = acTextBox: xIsControlForEventNumLock = True 
     Case Else: xIsControlForEventNumLock = False 
    End Select 
End Function

如果我尝试以下工作原理：

Debug.Print Forms!frmHR_Details!frm_HRDetails2.Form!HRSubForm2.Form!sID

但是，这不，为什么呢？

Debug.Print Forms("frmHR_Details").Form("frm_HRDetails2").Form.Form("HRSubForm2").Form.sID.Value

还是有可能不是一个办法做到这一点：

set ctl = Eval("Forms!frmHR_Details!frm_HRDetails2.Form!HRSubForm2.Form!sID")

来源

2017-10-19 Jp Posthumus

代替'FRM（ctl.Name）.Form'，尽量'ctl.Form'。 – Andre

仍然不起作用 –

那么，因为子表单不是一个真正的表单，而且函数需要一个表单对象来循环它的控件，所以不起作用。 – June7

看看这个链接。

http://access.mvps.org/access/forms/frm0031.htm

To refer to a control property, like Enabled   
On Mainform  
Me!ControlName.Enabled Me.Parent!ControlName.Enabled 
On Sub 1    Me!Subform1.Form!ControlName.Enabled Me!ControlName.Enabled 
On Sub 2    Me!Subform1.Form!Subform2.Form!ControlName.Enabled Me!Subform2.Form!ControlName.Enabled

来源

2017-10-24 04:03:21 ryguy72

没有，这将无法正常工作，我需要一个循环，可以从邮件形式运行子2。我的应用程序已在子表单类似这样的： 'Forms（MainFormName）.Form（Sub1Name）.Forms（Sub2Name）.Controls' –

子窗体内的子窗体控件

回答

相关问题