Propriedade Form.SelLeft (Access)

Use a propriedade SelLeft para especificar ou determinar qual 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 retorna 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 seletora de registro e a coluna indicador de expansão/colapso para uma subdatasheet.

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.

Use essas 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 a seguir mostra como usar as propriedades SelHeight, SelWidth, SelTop e SelLeft para determinar a posição e o tamanho de um retângulo de seleção no modo de exibição Datasheet. O procedimento SetHeightWidth atribui a altura e a largura do retângulo de seleção atual às variáveis lngNumRows, lngNumColumns, lngTopRowe lngLeftColumn exibe esses valores em uma 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.