MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


2 participantes

    [Resolvido]Formatar CNPJ

    Eloirp
    Eloirp
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 222
    Registrado : 15/06/2013

    [Resolvido]Formatar CNPJ Empty [Resolvido]Formatar CNPJ

    Mensagem  Eloirp 29/8/2015, 07:10

    Olá Amigos,

    Esou com dificuldade em formatar o CNPJ em uma listbox para seleção do cliente. Tenho somente os números em campo texto de uma base MySQL e quando carrego a listbox não está formatando corretamente.
    Abaixo o código que estou utilizando:

    strRS = "SELECT Codigo,CNPJ,Razao,Estado,Cidade FROM tbl_Parceiro WHERE Razao Like '%" & Me.Razao & "%' AND Status='ATIVO'"
    Set rs = Cnn.Execute(strRS)
       
    Do While Not rs.EOF
      Forms.reg_PedidoVda_SelecParc.Lista.RowSourceType = "Value List"
      Forms.reg_PedidoVda_SelecParc.Lista.AddItem rs!Codigo & ";" & Format(rs!CNPJ, "00.000.000/0000-00") & ";" & rs!Razao & ";" & rs!Cidade & ";" & rs!UF
      rs.MoveNext
    Loop
               
    Set rs = Nothing: Close


    Infelizmente não consigo mais inserir arquivos para demonstrar o resultado, pois vem uma mensagem do fórum que o espaço total de armazenamento foi ultrapassado, já deletei quase todos os anexos de post anteriores, mas não resolve...
    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4140
    Registrado : 29/06/2012

    [Resolvido]Formatar CNPJ Empty Re: [Resolvido]Formatar CNPJ

    Mensagem  Noobezinho 29/8/2015, 10:55

    Experimente assim:

    Format(rs!CNPJ, "00\.000\.000\/0000\-00")

    Caso não funfe, crie uma variável:

    minhaVar= Format(rs!CNPJ, "00\.000\.000\/0000\-00")

    e  na linha:

    Forms.reg_PedidoVda_SelecParc.Lista.AddItem rs!Codigo & ";" & minhavar & ";" & rs!Razao & ";" & rs!Cidade & ";" & rs!UF

    Para disponibilizar arquivos no fórum use o dropbox ou mega e então, coloque o link aqui.

    [ ]'s


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    Eloirp
    Eloirp
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 222
    Registrado : 15/06/2013

    [Resolvido]Formatar CNPJ Empty Re: [Resolvido]Formatar CNPJ

    Mensagem  Eloirp 29/8/2015, 14:23

    Valeu Noobezinho!
    100% resolvido!
    Qto aos arquivos eu achei que imagens tinha como anexar no próprio post porque anteriormente era assim, mas valeu pela info.
    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4140
    Registrado : 29/06/2012

    [Resolvido]Formatar CNPJ Empty Re: [Resolvido]Formatar CNPJ

    Mensagem  Noobezinho 29/8/2015, 16:29

    Que bom que resolveu!

    Para informar:
    O fórum está com problemas para anexar arquivos, por isso
    sugerimos o dropbox ou mega.
    Para anexar imagens:
    Primeiro clica-se no botão hospedar imagem.
    Com isso vai abrir uma janela para o site tinypic para subir a imagem.
    Após, copiar o link da imagem que já está com as tags de imagem
    e coloque aqui.
    Pronto!

    Boa sorte !


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.

    Conteúdo patrocinado


    [Resolvido]Formatar CNPJ Empty Re: [Resolvido]Formatar CNPJ

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 10:25