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

    Compartilhe
    avatar
    Eloirp
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 153
    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...
    avatar
    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2807
    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 .
    avatar
    Eloirp
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 153
    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.
    avatar
    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2807
    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: Qui 27 Jul 2017, 09:42