Propriedade Screen.PreviousControl (Access)

Use a propriedade PreviousControl junto com o objeto Screen para retornar uma referência ao controle que recebeu o foco pela última vez. Somente leitura.

Sintaxe

expressão. PreviousControl

Expressão Uma variável que representa um objeto Screen .

Comentários

A propriedade PreviousControl contém uma referência ao controle que última tinha o foco. Depois de estabelecer uma referência ao controle, você poderá acessar todas as propriedades e métodos do controle.

Você não pode usar a propriedade PreviousControl até que mais de um controle em qualquer formulário tiver recebido o foco após um formulário é aberto. O Microsoft Access gerará um erro se você tentar utilizar essa propriedade quando somente um controle em um formulário tiver recebido o foco.

Exemplo

O exemplo a seguir exibirá uma mensagem se o controle que tiver recebido o foco pela última vez não for a caixa de texto 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

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.