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]Preencher um campo do formulário com zeros a esquerda

    avatar
    Ghunnar
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 70
    Registrado : 10/02/2011

    [Resolvido]Preencher um campo do formulário com zeros a esquerda Empty [Resolvido]Preencher um campo do formulário com zeros a esquerda

    Mensagem  Ghunnar em 10/3/2011, 01:16

    Vejam, o campo do formulário possui máscara 99999999-9 que representa um número de conta corrente de um banco. Caso eu digite, por exemplo, 98765 gostaria que automaticamente fosse preenchido com zeros os números restantes à esquerda.
    criquio
    criquio
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11228
    Registrado : 30/12/2009

    [Resolvido]Preencher um campo do formulário com zeros a esquerda Empty Re: [Resolvido]Preencher um campo do formulário com zeros a esquerda

    Mensagem  criquio em 10/3/2011, 01:43

    Tente assim, no evento "Após atualizar" do campo:

    Dim Cont As String
    Cont = 9 - Len(Me.SeuCampo)
    If Cont > 0 Then
    Do While Cont > 0
    Me.SeuCampo = 0 & Me.SeuCampo
    Cont = Cont - 1
    Loop
    End If
    Me.SeuCampo.InputMask = "########-#"


    Fiz aqui agora meio às pressas e funcionou. Qualquer coisa, retorne.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    avatar
    Ghunnar
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 70
    Registrado : 10/02/2011

    [Resolvido]Preencher um campo do formulário com zeros a esquerda Empty Re: [Resolvido]Preencher um campo do formulário com zeros a esquerda

    Mensagem  Ghunnar em 11/3/2011, 01:58

    Criquio,

    cara sensacional...beleza, deu certo, é isso aí...Obrigado mesmo.

    Vai eu aqui te explorar mais um pouco....

    no campo seguinte tenho o nome do cliente como fazer aparecer automaticamente o nome do cliente quando eu acabar de digitar o número da conta que você tão brilhantemente me ajudou com os zeros a esquerda?
    criquio
    criquio
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11228
    Registrado : 30/12/2009

    [Resolvido]Preencher um campo do formulário com zeros a esquerda Empty Re: [Resolvido]Preencher um campo do formulário com zeros a esquerda

    Mensagem  criquio em 11/3/2011, 02:47

    Tente assim, no evento "Após atualizar" do campo da conta:

    Me.CampoClienteNoForm = DLookup("CampoClienteTabela", "NomeTabela", "CampoContaTabela=" & Me!CampoContaNoForm)


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    avatar
    Ghunnar
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 70
    Registrado : 10/02/2011

    [Resolvido]Preencher um campo do formulário com zeros a esquerda Empty Re: [Resolvido]Preencher um campo do formulário com zeros a esquerda

    Mensagem  Ghunnar em 11/3/2011, 03:51

    Criquio,

    quando eu criei o evento em "após atualizar" não aconteceu o esperado...

    apareceu a mensagem: "erro em tempo de execução 94 - uso de null inválido,

    para criar este evento tive que tirar o que tinha dado certo sobre os zeros a esquerda da conta. Tem como colocar dois eventos em um item só, neste caso "após atualizar"?

    Sabe o bom disso é o tanto de possibilidades que temos as vezes que procurar, é realmente uma charada...
    avatar
    Ghunnar
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 70
    Registrado : 10/02/2011

    [Resolvido]Preencher um campo do formulário com zeros a esquerda Empty Re: [Resolvido]Preencher um campo do formulário com zeros a esquerda

    Mensagem  Ghunnar em 19/3/2011, 04:36

    Obrigado, a questão do zero a esquerda deu certo.

    Dou por finalizado.
    crysostomo
    crysostomo
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 702
    Registrado : 23/01/2018

    [Resolvido]Preencher um campo do formulário com zeros a esquerda Empty Re: [Resolvido]Preencher um campo do formulário com zeros a esquerda

    Mensagem  crysostomo em 28/2/2019, 11:39

    Criquio está dando certo esse código não. No formulário que trás os campos da tabela estão corretos trazem o 00034, já em outra tabela no campo não acoplado quando eu vou fazer a busca ele só vem 34
    CÓDIGO:
    Private Sub Etiqueta_AfterUpdate()
    Dim Cont As String
    Cont = 5 - Len(Me.Etiqueta)
    If Cont > 0 Then
    Do While Cont > 0
    Me.Etiqueta = 0 & Me.Etiqueta
    Cont = Cont - 1
    Loop
    End If
    Me.Etiqueta.InputMask = "#####"
    End Sub


    .................................................................................
    Uma mão ajuda a outra.
    O medo não é morrer, o medo é se alguém está morto dentro de você, assim como o fracassado é aquele que nem tentou

    Conteúdo patrocinado

    [Resolvido]Preencher um campo do formulário com zeros a esquerda Empty Re: [Resolvido]Preencher um campo do formulário com zeros a esquerda

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 25/5/2019, 21:12