MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    [Resolvido]SetFocus e contarCaracter

    Compartilhe

    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

    formiga10x
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 731
    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

    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

    formiga10x
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 731
    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

    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: Dom 04 Dez 2016, 01:55