Compartilhar via

Propriedade Form.SelWidth (Access)

  • Artigo

Use a propriedade SelWidth para especificar ou determinar o número de colunas (campos) selecionadas no retângulo de seleção atual. Long de leitura/gravação.

Sintaxe

expressão. SelWidth

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

Comentários

Se não houver seleção, o valor retornado por essa propriedade será zero. A configuração dessa propriedade como 0 remove a seleção da folha de dados ou do formulário.

Se você tiver selecionado um ou mais registros na folha de dados (utilizando os seletores de registro), você não pode alterar a configuração da propriedade SelWidth (exceto defini-la como 0).

Use essas propriedades com as propriedades SelTop e SelLeft para especificar ou determinar a posição real do retângulo de seleção na planilha de dados. Se não houver seleção, as propriedades SelTop e SelLeft retornarão o número da linha e o número da coluna da célula com o foco.

As propriedades SelHeight e SelWidth contêm a posição do canto inferior direito do retângulo de seleção.

Os valores de propriedade SelTop e SelLeft determinam o canto superior esquerdo 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, e 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.