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

    [Resolvido]SetFocus e contarCaracter

    Compartilhe
    avatar
    AndrePeteca
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 128
    Registrado : 24/02/2015

    [Resolvido]SetFocus e contarCaracter

    Mensagem  AndrePeteca em Sab 05 Mar 2016, 22:28

    Boa a noite a todos, tenho 2 perguntas
    1 se tem como eu fazer um setFocus em um campo já preenchido e não selecionar o conteúdo do campo.
    2 como eu faço para contar três caracteres no meu campo e parar no quarto carácter para o Usuário continuar preenchendo
    avatar
    formiga10x
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 747
    Registrado : 11/09/2013

    Re: [Resolvido]SetFocus e contarCaracter

    Mensagem  formiga10x em Dom 06 Mar 2016, 06:34

    1 se tem como eu fazer um setFocus em um campo já preenchido e não selecionar o conteúdo do campo.

    Código:
    Private Sub Comando0_Click()
    If IsNull(Me.txtFocus) Or Me.txtFocus = "" Then Exit Sub

        Dim TamanhoTexto As Byte
        TamanhoTexto = Len(Me.txtFocus)
        Me.txtFocus.SetFocus
        Me.txtFocus.SelStart = TamanhoTexto
        
    End Sub

    2 como eu faço para contar três caracteres no meu campo e parar no quarto carácter para o Usuário continuar preenchendo
    Esta parte não entendi bem mas se for para após digitar 3 caracteres e informar que o usuário deverá preencher o restante utilize a propriedade SelStart da textbox informando como tamanho 3.

    Código:
    Private Sub txtConta_Change()

        If Len(Me.txtConta.Text) >= 4 Then
            MsgBox ("Maior ou igual a 4"), vbInformation, "Atenção"
        End If
        
    End Sub
    Anexos
    TesteTxt.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (20 Kb) Baixado 6 vez(es)


    .................................................................................
    Abraço
    Formiga10x

    Sempre que possível poste o bd ou parte dele, com uma explicação bem clara e objetiva do que quer.
    “Um homem não está acabado quando enfrenta a derrota. Ele está acabado quando desiste - Richard Nixon”
    Formiga10x

    "Lembro do exato momento em que me dei conta que boa parte de minha vida foi dedicada a localizar erros em meus próprios programas."
    - Maurice Vicent Wilkes
    avatar
    AndrePeteca
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 128
    Registrado : 24/02/2015

    Re: [Resolvido]SetFocus e contarCaracter

    Mensagem  AndrePeteca em Dom 06 Mar 2016, 22:10

    2 como eu faço para contar três caracteres no meu campo e parar no quarto carácter para o Usuário continuar preenchendo

    boa tarde formiga10x, o primeiro deu certo, o segundo vou tentar explicar melhor para ver se você consegue me ajudar.
    este procedimento e para numero de telefone celular, vai fazer uma pergunta para o usuário, se o numero do celular tem 9 na frente? se sim colocar a mascar e numero 9 na frente, gostaria que depois que coloca-se a mascare o numero 9 para-se no terceiro carácter para o usuário continuar digitando o numero do celular

    este e o código que estou usando, o que esta dando de errado e quando faz o setFocus ai seleciona tudo do campo e se o usuário continuar a digitar apaga tudo.

    Código:

        If MsgBox("O celular tem o numero 9?", vbQuestion + vbYesNo, "CELULAR") = vbYes Then
            Me.txt_Fone.InputMask = "# #### - ####"
            Me.txt_Fone = "9  "
            Me.txt_Fone.SetFocus
        Else
            Me.txt_Fone.InputMask = "#### - ####"
            Me.txt_Fone.SetFocus
        End If
    avatar
    formiga10x
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 747
    Registrado : 11/09/2013

    Re: [Resolvido]SetFocus e contarCaracter

    Mensagem  formiga10x em Dom 06 Mar 2016, 23:37

    No evento ao receber foco da txt_Fone.

    Código:
    Private Sub txt_Fone_GotFocus()
        If MsgBox("O celular tem o numero 9?", vbQuestion + vbYesNo, "CELULAR") = vbYes Then
        
            Me.txt_Fone.InputMask = "# #### - ####"
            Me.txt_Fone = 9
            Me.txt_Fone.SelStart = 2
                   
        Else
        
            Me.txt_Fone = ""
            Me.txt_Fone.InputMask = "#### - ####"
            Me.txt_Fone.SelStart = 0
          
       End If
    End Sub
    avatar
    AndrePeteca
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 128
    Registrado : 24/02/2015

    Re: [Resolvido]SetFocus e contarCaracter

    Mensagem  AndrePeteca em Ter 08 Mar 2016, 04:48

    Deu certinho agora, muito obriga formiga10x valeu mesmo.

      Data/hora atual: Sab 22 Jul 2017, 17:37