MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    Criar uma botão com a função da Tecla BackSpace

    Compartilhe

    ronaldofacre
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 30
    Registrado : 19/09/2015

    Criar uma botão com a função da Tecla BackSpace

    Mensagem  ronaldofacre em 28/8/2018, 17:10

    Boa tarde!

    Estou criando um formulário que fará a função de um teclado de apenas números. A rotina será que ao clicar no botão "1" ele preencha a caixa de texto "cCodigo" com o número 1. Assim sendo, criei os botões de 0 a 9 e para isso usei o seguinte código:

    Private Sub bt1_Click()
    Me.cCodigo.SetFocus
    Me.cCodigo.Text = (Me.cCodigo.Text & "1")
    End Sub

    Private Sub bt2_Click()
    Me.cCodigo.SetFocus
    Me.cCodigo.Text = (Me.cCodigo.Text & "2")
    End Sub

    .... repeti isso até o botão zero.

    Agora peço ajuda aos companheiros, pois preciso criar o botão que faça a função da tecla BackSpace, ou seja , preciso dar a opção de apagar o número digitado caso o usuário erre ao digitar.

    Ex.: 12345 apague somente o 5.

    Desde já agradeço a todos!!!
    avatar
    livio.sfranca
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 149
    Registrado : 09/01/2018

    Re: Criar uma botão com a função da Tecla BackSpace

    Mensagem  livio.sfranca em 28/8/2018, 17:30

    Boa tarde Ronaldo,

    Dentro do evento "Ao clicar" do seu botão, coloque:

    Código:
        Dim sTexto As String
        Dim tCaract As Integer
       
        sTexto = Me.txtCampo.Value
        tCaract = Len(sTexto)
        Me.txtCampo.Value = Left(sTexto, tCaract - 1)
        Me.txtCampo.SetFocus
        Me.txtCampo.SelStart = Len(Me.txtCampo)

    Substitua onde tem txtCampo pelo nome do seu campo que contém o texto à apagar.

    Espero que ajude.
    avatar
    livio.sfranca
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 149
    Registrado : 09/01/2018

    Re: Criar uma botão com a função da Tecla BackSpace

    Mensagem  livio.sfranca em 28/8/2018, 17:41

    Só um complemento que esqueci, para evitar erros:

    Código:
        Dim sTexto As String
        Dim tCaract As Integer
       
        sTexto = Me.txtCampo.Value
        tCaract = Len(sTexto)
        If tCaract > 0 Then
            Me.txtCampo.Value = Left(sTexto, tCaract - 1)
            Me.txtCampo.SetFocus
            Me.txtCampo.SelStart = Len(Me.txtCampo)
        End If
    avatar
    caiosouza
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 362
    Registrado : 05/12/2016

    Re: Criar uma botão com a função da Tecla BackSpace

    Mensagem  caiosouza em 29/8/2018, 13:00

    Bom dia!

    Faça o simples:

    Código:
    Private Sub BotaoDelete_Click()
            SendKeys "{BACKSPACE}"
    End Sub


    .................................................................................
    A persistência leva ao sucesso!

      Data/hora atual: 16/12/2018, 15:46