Propriedade Screen.ActiveDatasheet (Access)

Utilize a propriedade ActiveDatasheet juntamente com o objeto Screen para identificar ou consultar a folha de dados que tem o foco. Objeto Form somente leitura.

Sintaxe

expressão. ActiveDatasheet

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

Comentários

A configuração da propriedade ActiveDatasheet contém o objeto da folha de dados que tem o foco em tempo de execução.

Utilize esta propriedade para fazer referência a uma folha de dados ativa juntamente com uma das respetivas propriedades ou métodos. Por exemplo, o código a seguir utiliza a propriedade ActiveDatasheet para referir-se à primeira linha da seleção na folha de dados ativa.

TopRow = Screen.ActiveDatasheet.SelTop

Exemplo

O exemplo a seguir utiliza a propriedade ActiveDatasheet para identificar a célula da folha de dados que tem o foco ou, se mais de uma célula estiver selecionada, a posição da primeira linha e coluna na seleção.

Public Sub GetSelection() 
 ' This procedure demonstrates how to get a pointer to the 
 ' current active datasheet. 
 
 Dim objDatasheet As Object 
 Dim lngFirstRow As Long 
 Dim lngFirstColumn As Long 
 Const conNoActiveDatasheet = 2484 
 
 On Error GoTo GetSelection_Err 
 
 Set objDatasheet = Screen.ActiveDatasheet 
 
 lngFirstRow = objDatasheet.SelTop 
 lngFirstColumn = objDatasheet.SelLeft 
 MsgBox "The first item in this selection is located at " & _ 
 "Row " & lngFirstRow & ", Column " & _ 
 lngFirstColumn, vbInformation 
 
GetSelection_Bye: 
 Exit Sub 
GetSelection_Err: 
 If Err = conNoActiveDatasheet Then 
 MsgBox "No data sheet is active.", vbExclamation 
 Resume GetSelection_Bye 
 End If 
End Sub

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.