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 : 169
    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 : 3632
    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
    avatar
    Eloirp
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 169
    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 : 3632
    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 !

      Data/hora atual: Ter 19 Jun 2018, 05:38