2010-07-10 58 views
1

正如標題所暗示的,我試圖讓相關標籤的標題爲表單控件 如:獲取相關標籤的標題爲窗體控件 - Access 2007年

Dim ctl As Control 
Dim errMess As String 
errMess = "" 
For Each ctl In frm 
    With ctl 
      If (ctl.Tag = "*") Then 
     errMess = errMess & ctl.Caption & vbNewLine   
      End If 
     End If 
    End With 
Next ctl 

顯然「CTL。標題「不起作用,我只是不確定如何引用此。

任何幫助表示讚賞。

乾杯

諾爾

回答

1

發現了答案是使用ctl.Controls.Item(0).Caption

Dim ctl As Control 
Dim errMess As String 
errMess = "" 
For Each ctl In frm 
    With ctl 
      If (ctl.Tag = "*") Then 
     errMess = errMess & ctl.Controls.Item(0).Caption & vbNewLine   
      End If 
     End If 
    End With 
Next ctl 
+1

如果標籤被附接到控制這將只工作。還要注意,某些控件類型(如選項組)具有多個控件,理論上,.Controls(0)可能不是選項組的標籤。而且,當然,您可以使用ctl.Controls(0).Caption而不需要Item()。 – 2010-07-11 18:31:24

+0

感謝大衛的建議,這是我會完全忽略的。 – noelmcg 2010-07-12 19:36:34