Свойство Screen.PreviousControl (Access)

Используйте свойство PreviousControl вместе с объектом Screen , чтобы вернуть ссылку на элемент управления, который последним получил фокус. Только для чтения.

Синтаксис

expression. PreviousControl

выражение Переменная, представляющая объект Screen .

Замечания

Свойство PreviousControl содержит ссылку на элемент управления, который последний имел фокус. После установки ссылки на элемент управления можно получить доступ ко всем свойствам и методам элемента управления .

Вы не можете использовать свойство PreviousControl до тех пор, пока несколько элементов управления в любой форме не получили фокус после открытия формы. Microsoft Access создает ошибку, если вы пытаетесь использовать это свойство, если фокус получил только один элемент управления в форме.

Пример

В следующем примере отображается сообщение, если элемент управления, который в последний раз получил фокус, не был текстовым полем txtFinalEntry .

Public Function ProcessData() As Integer 
 
 ' No previous control error. 
 Const conNoPreviousControl = 2483 
 Dim ctlPrevious As Control 
 
 On Error GoTo Process_Err 
 
 Set ctlPrevious = Screen.PreviousControl 
 If ctlPrevious.Name = "txtFinalEntry" Then 
 ' 
 ' Process Data Here. 
 ' 
 ProcessData = True 
 Else 
 ' Set focus to txtFinalEntry and display message. 
 Me!txtFinalEntry.SetFocus 
 MsgBox "Please enter a value here." 
 ProcessData = False 
 End If 
 
Process_Exit: 
 Set ctlPrevious = Nothing 
 Exit Function 
 
Process_Err: 
 If Err = conNoPreviousControl Then 
 Me!txtFinalEntry.SetFocus 
 MsgBox "Please enter a value to process.", vbInformation 
 ProcessData = False 
 End If 
 Resume Process_Exit 
 
End Function

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.