Propriedade Form.SelLeft (Access)

Utilize a propriedade SelLeft para especificar ou determinar que coluna (campo) é mais à esquerda no retângulo de seleção atual. Long de leitura/gravação.

Sintaxe

expressão. SelLeft

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

Comentários

A propriedade SelLeft devolve um valor entre 2 e o número de colunas na folha de dados + 1 (o Access começa a contar em 0). As duas primeiras colunas são sempre a coluna do seletor de registos e a coluna de indicador expandir/fechar de uma subfolha de dados.

Se não houver seleção, o valor retornado por essas propriedades será a linha e a coluna da célula com o foco. Se tiver selecionado um ou mais registros na folha de dados (utilizando os seletores de registro), você não poderá alterar a configuração da propriedade SelLeft.

Utilize estas propriedades com as propriedades SelHeight e SelWidth para especificar ou determinar o tamanho real do retângulo de seleção.

As propriedades SelTop e SelLeft determinam a posição do canto superior esquerdo do retângulo de seleção.

As propriedades SelHeight e SelWidth determinam o canto inferior direito do retângulo de seleção.

Exemplo

O exemplo seguinte mostra como utilizar as propriedades SelHeight, SelWidth, SelTop e SelLeft para determinar a posição e o tamanho de um retângulo de seleção na vista Folha de Dados. O procedimento SetHeightWidth atribui a altura e largura do retângulo de seleção atual às variáveis lngNumRows, , lngNumColumnslngTopRowe lngLeftColumn apresenta esses valores numa caixa de mensagem.

Public Sub SetHeightWidth(ByRef frm As Form) 
 
 Dim lngNumRows As Long 
 Dim lngNumColumns As Long 
 Dim lngTopRow As Long 
 Dim lngLeftColumn As Long 
 Dim strMsg As String 
 
 ' Form is in Datasheet view. 
 If frm.CurrentView = 2 Then 
 
 ' Number of rows selected. 
 lngNumRows = frm.SelHeight 
 
 ' Number of columns selected. 
 lngNumColumns = frm.SelWidth 
 
 ' Topmost row selected. 
 lngTopRow = frm.SelTop 
 
 ' Leftmost column selected. 
 lngLeftColumn = frm.SelLeft 
 
 ' Display message. 
 strMsg = "Number of rows: " & lngNumRows & vbCrLf 
 strMsg = strMsg & "Number of columns: " _ 
 & lngNumColumns & vbCrLf 
 strMsg = strMsg & "Top row: " & lngTopRow & vbCrLf 
 strMsg = strMsg & "Left column: " & lngLeftColumn 
 MsgBox strMsg, vbInformation 
 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.