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]Formatação de caixa de texto no form

    avatar
    flecha
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 274
    Registrado : 11/01/2012

    [Resolvido]Formatação de caixa de texto no form Empty [Resolvido]Formatação de caixa de texto no form

    Mensagem  flecha em 23/11/2018, 12:24

    Oi pessoal!

    tenho uma caixa de texto em um form, alimentada por essa instrução:

    Me.TxtRg.Value = idcolab.Column(4)

    sendo que essa instrução é dada pelo evento , após atualizar, da caixa de combinação do mesmo form.

    Se eu colocar a Máscara ###\.###\.### na propriedade da caixa de texto não formata como deveria, fica assim de: 22222222 para 222.222.22

    Como posso proceder?
    Obrigado.
    Sidney
    Sidney
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 377
    Registrado : 08/10/2012

    [Resolvido]Formatação de caixa de texto no form Empty Re: [Resolvido]Formatação de caixa de texto no form

    Mensagem  Sidney em 23/11/2018, 14:44

    Flecha, bom dia!
    E como voce quer que fique?

    att; Sidney
    avatar
    flecha
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 274
    Registrado : 11/01/2012

    [Resolvido]Formatação de caixa de texto no form Empty Re: [Resolvido]Formatação de caixa de texto no form

    Mensagem  flecha em 23/11/2018, 14:58

    Sidney,

    Formato para RG : xxx.xxx.xxx, xx.xxx.xxx e x.xxx.xxx conforme a quantidade. Não preciso de dígito final.

    12.200.200 pode ser 2.200.200.

    Obrigado.
    Sidney
    Sidney
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 377
    Registrado : 08/10/2012

    [Resolvido]Formatação de caixa de texto no form Empty Re: [Resolvido]Formatação de caixa de texto no form

    Mensagem  Sidney em 23/11/2018, 17:12

    Flecha

    Coleque esta instruções, no evento apos atualizar no seu campos RG,
    Código:

    Dim intNDigitos As Integer

    intNDigitos = Len(txt_RG)

    If intNDigitos = 6 Then
        Me!txt_RG = Left(Me.txt_RG, 3) & "." & Right(Me.txt_RG, 3)

    ElseIf intNDigitos = 7 Then
        Me!txt_RG = Left(Me.txt_RG, 1) & "." & Mid(Me.txt_RG, 3, 3) & "." & Right(Me.txt_RG, 3)

    ElseIf intNDigitos = 8 Then
        Me!txt_RG = Left(Me.txt_RG, 2) & "." & Mid(Me.txt_RG, 3, 3) & "." & Right(Me.txt_RG, 3)

    ElseIf intNDigitos = 9 Then
        Me!txt_RG = Left(Me.txt_RG, 3) & "." & Mid(Me.txt_RG, 3, 3) & "." & Right(Me.txt_RG, 3)

    End If
    End Sub


    Nota: o campo tem que ser do tipo String.

    att; Sindey
    avatar
    flecha
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 274
    Registrado : 11/01/2012

    [Resolvido]Formatação de caixa de texto no form Empty Re: [Resolvido]Formatação de caixa de texto no form

    Mensagem  flecha em 23/11/2018, 19:31

    Sidney,
    Não deu certo não.
    É um campo que não tem tabulação, o cursor não passa por ele, é Nãoacoplado.

    Agradeço a ajuda, essa instrução que vc me passou eu tenho para formatar Campo "fone"

    vou colocar como resolvido, depois retorno.

    Valeu!

    Conteúdo patrocinado

    [Resolvido]Formatação de caixa de texto no form Empty Re: [Resolvido]Formatação de caixa de texto no form

    Mensagem  Conteúdo patrocinado

      Tópicos similares

      -

      Data/hora atual: 5/12/2019, 16:54