Selecionar todo o texto do text box

Opa alguém sabe como eu faço para quando eu clicar no campo, ele selecione todo o texto desse campo? Queria que quando eu clicasse no campo ele já selecionasse todo o texto.

Obrigado desde já.

Olá João Gabriel,
Tente assim:

Código:

Private Sub MeuCampo_Click()
    If Len(Me.MeuCampo & "") = 0 Then Exit Sub
    Me.MeuCampo.SelStart = 0
    Me.MeuCampo.SelLength = Len(Me.MeuCampo)
End Sub

Não se esqueça de alterar o nome do MeuCampo pelo nome do seu
Abraço

Opa eu tentei o código acima mas infelizmente não deu certo... Meu Acess é o 2013.

E outro detalhe, é uma combo box, mas eu fiz um teste em uma text box para ter certeza é também não deu certo.

Olá Jgabrielchaves,

Desculpe me intrometer, mas qual o problema que seu access retorna?
Também uso o access 2013 e o código funcionou perfeitamente

Dando um update:
Fiz o teste na text box e funcionou corretamente, mas na combo box não funcionou...
Estou procurando uma solução

Opa eu fiz exatamente igual o código mas não deu, ele não apresenta nenhum erro, simplesmente nada acontece. Mesmo em uma combo box xD

você pode usar também no evento "ao clicar" do "seucampo" o código

Me.outrocampo.SetFocus
Me.seucampo.SetFocus
SendKeys "{HOME}+{END}"

que vai dar certo

Olá a todos.

Rodrigo e Cleber, obrigado pela “intromissão”, isto é que é ser MaximoAccess

João, aguardamos o retorno.

mas o problema é a comobox mesmo, não dá certo com a comobox,
então ao invés de clicar dá um "Enter" a partir do campo anterior que dá certo

Olá de novo João,
Também acredito que com a combo box não seja possível realizar esta ação, mas como bem disse o amigo clebergyn você pode dar um enter a partir do campo anterior ou também dar um duplo clique no campo!
Caso consiga com algum código, posta ele para nós aprendermos também.

Olá João Gabriel,
Para ComboBox tente assim:

Código:

Private Sub cmdTeste_Click()
    If IsNull(Me.cbo1.Value) Then MsgBox "Não tem campo selecionado na combo para a operação pretendida.", vbInformation: Exit Sub
    Me.cbo1.SetFocus
    Me.cbo1.SelStart = 0
    Me.cbo1.SelLength = Len(Me.cbo1.Column(1))
End Sub

Estou a considerar que a Combo tem dois campos, sendo o primeiro o ID (0) e o segundo o texto que aparece na combo (1).

Caso só tenha um campo a ser listado na Combo altere assim:

Código:

    Me.cbo1.SelLength = Len(Me.cbo1.Column(0))

O meu teste SelLength.rar

Abraço

Opa agora descobri pq o meu não estava certo, esse código que você mandou é através de um botão, o que eu estava tentando fazer seria no evento de clico do próprio text box, mas isso não sei pq não dá certo com esse código...

Pelo o que estou vendo o mais fácil é vincular uma label ao textbox e quando clicar nela, seleciona todo o texto, não era o que eu queria, mas se não consegui fazer vou ficar com essa solução.

PS> Obrigado a todos que estão ajudando

Olá, tente no evento "ao receber foco" da combo.
Também pode ser solução uma tecla de função para quando o utilizador pretender selecionar o texto.

Abraço

Ainda não deu muito certo, o que fico mais próximo foi usando para o evento de quando passar o mouse, mas enquanto passo fica ativando várias vezes, o access tem algumas coisas que poderiam ser tão simples, queria saber pq o evento ao clicar e ao receber o foco não funcionam para isso...

Olá, poste o seu teste.

https://www.dropbox.com/s/y5u6y9btqzddx2n/SelLengthComEventoMouse.rar?dl=0

O meu DB infelizmente tem muita coisa para postar, mas usei no exemplo daqui... o que fiz foi colocar no evento de mouse, mas ele acaba atrapalhando, queria que ao clicar ele selecionasse tudo e só, sem ficar selecionando toda hora.

Coloquei o código no evento:

Código:


Private Sub cbo1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
'funciona, porem não como gostaria, eu digito o registro que quero e se passo o mouse novamente ele seleciona de novo... acaba atrapalhando
If IsNull(Me.cbo1.Value) Then Exit Sub
    Me.cbo1.SetFocus
    Me.cbo1.SelStart = 0
    Me.cbo1.SelLength = Len(Me.cbo1.Column(1))
End Sub

Olá João Gabrie,
Para o que pretende "...para quando eu clicar no campo, ele selecione todo o texto desse campo" o código exemplificado é suficiente no evento Ao fazer clique.
Na versão que estou a utilizar, efectivamente não está funcionar, talvez por ser uma CaixaDeCombinação.

Coloque apenas o código no evento "Ao entrar" e veja se tem o efeito pretendido.


Abraço