2015-03-19 33 views
0

我需要将一个标签附加到文本框,我想知道属性表中我可以在哪里或如何执行该操作。在属性表窗口中的位置我可以在Access/VBA中定义标签父项

在此先感谢。

19月 - 2015年(上午8:45)在里约热内卢

我想与大家分享此代码为父/子控件的操作:

Private Sub Comando15_Click() 
On Error GoTo Err_Handler 
Dim ctl As Control 

For Each ctl In Me.Form.Controls 
    With ctl 
     If .ControlType = acLabel Then 
      If .Parent.Name <> Me.Form.Name Then 
       MsgBox "Controle Pai: " & Chr(13) + Chr(10) & .Parent.Name & Chr(13) + Chr(10) + Chr(10) & _ 
        "Controle Filho: " & Chr(13) + Chr(10) & .Name 
      End If 
     End If 
    End With 
Next ctl 

Exit_Handler: 退出子 Err_Handler: MSGBOX Err.Description,vbExclamation, “错误编号:” &的Err.Number 恢复Exit_Handler 结束小组

+0

您是在Form Design还是通过某些VBA代码创建文本框?如果它在代码中,您可以将它添加到您的问题中并告诉我们什么不起作用? – 2015-03-19 01:39:09

+0

我在表单设计中创建它。是否知道属性表中的哪个字段用于将标签定义为文本框的子项?谢谢。 – 2015-03-19 02:34:45

回答

0

哇!我找到了!为了将标签附加到文本框中,请在设计视图中打开表单并选择标签和文本框。会出现一个小警告框(带有感叹号和下拉按钮)。只需点击按钮并选择“将lable_name附加到textbox_name”选项。这样简单。

感谢马克的快速回复。

相关问题