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]Formatar CNPJ

    Compartilhe

    Eloirp
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    [Resolvido]Formatar CNPJ

    Mensagem  Eloirp em Sab 29 Ago 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
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]Formatar CNPJ

    Mensagem  Noobezinho em Sab 29 Ago 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


    .................................................................................
    Noobezinho

    * A solução funcionou?  [Você precisa estar registrado e conectado para ver esta imagem.] 
    Agradeça e feche o tópico clicando no botão Resolvido
    Se não sabe como, veja [Você precisa estar registrado e conectado para ver este link.].

    Como anexar imagem no teu post do fórum : [Você precisa estar registrado e conectado para ver este link.]

    * Criar arquivos.zip com o Winrar - veja [Você precisa estar registrado e conectado para ver este link.].

    Atualmente estou verificando se quem está pedindo ajuda, ajudamos e não retornou.
    Se a pessoa em questão não deu retorno, não tentarei ajudar novamente .

    Eloirp
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    Re: [Resolvido]Formatar CNPJ

    Mensagem  Eloirp em Sab 29 Ago 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
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]Formatar CNPJ

    Mensagem  Noobezinho em Sab 29 Ago 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 !


    .................................................................................
    Noobezinho

    * A solução funcionou?  [Você precisa estar registrado e conectado para ver esta imagem.] 
    Agradeça e feche o tópico clicando no botão Resolvido
    Se não sabe como, veja [Você precisa estar registrado e conectado para ver este link.].

    Como anexar imagem no teu post do fórum : [Você precisa estar registrado e conectado para ver este link.]

    * Criar arquivos.zip com o Winrar - veja [Você precisa estar registrado e conectado para ver este link.].

    Atualmente estou verificando se quem está pedindo ajuda, ajudamos e não retornou.
    Se a pessoa em questão não deu retorno, não tentarei ajudar novamente .

      Data/hora atual: Sab 03 Dez 2016, 04:32