Access) (Screen.ActiveControl 屬性

使用 ActiveControl 屬性搭配 Screen 物件來識別或參照具有焦點的控制項。 唯讀 控制項 物件。

語法

運算式。ActiveControl

表達 代表 Screen 物件的變數。

註解

此屬性設定值包含在執行階段有焦點的 控制項 物件的參照。

使用 ActiveControl 屬性來參照在執行時間具有焦點的控制項及其其中一個屬性或方法。 下列範例會將具有焦點的控制項名稱指派給 strControlName變數。

Dim ctlCurrentControl As Control 
Dim strControlName As String 
Set ctlCurrentControl = Screen.ActiveControl 
strControlName = ctlCurrentControl.Name

如果沒有控制項有焦點時您使用 ActiveControl 屬性，或如果全部作用中表單的控制項都是隱藏或停用，就會發生錯誤。

範例

下列範例會將作用中的控制項指派給 ctlCurrentControl 變數，然後根據控制項的 Name 屬性值採取不同的動作。

Dim ctlCurrentControl As Control 
 
Set ctlCurrentControl = Screen.ActiveControl 
If ctlCurrentControl.Name = "txtCustomerID" Then 
 . 
 . ' Do something here. 
 . 
ElseIf ctlCurrentControl.Name = "btnCustomerDetails" Then 
 . 
 . ' Do something here. 
 . 
End If

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。