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


3 participantes

    [Resolvido]Máscara não funciona no campo do Relatório

    avatar
    cbmenezes
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 26
    Registrado : 18/05/2021

    [Resolvido]Máscara não funciona no campo do Relatório Empty [Resolvido]Máscara não funciona no campo do Relatório

    Mensagem  cbmenezes 2/8/2022, 04:28

    alguém poderia dar uma ideia em relação há um problema, implementei um form de guia de recolhimento com uma função em VBA que muda a estrutura do campo de CPF para CNPJ mas no relatório tanto o CPF como a CNPJ ficam sem a máscara já tentei tudo que conhecia e nada, alguém saberia de alguma ideia pra esse problema?
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Máscara não funciona no campo do Relatório Empty Re: [Resolvido]Máscara não funciona no campo do Relatório

    Mensagem  crysostomo 2/8/2022, 17:37

    Boa tarde  
    Me.Cnpj.InputMask = "999\.999\.999-99


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    avatar
    cbmenezes
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 26
    Registrado : 18/05/2021

    [Resolvido]Máscara não funciona no campo do Relatório Empty Re: [Resolvido]Máscara não funciona no campo do Relatório

    Mensagem  cbmenezes 3/8/2022, 02:59

    Boa noite crysostomo um amigo meu de outro chegou com essa ideia abaixo:

    Private Sub Report_Curren()
    Select Case Len(NomeDoCampo)
      Case 14
     Me.Campo.InputMask = "##\.###\.###\/####\-##"
    Case 11
     Me.Campo.InputMask = "###\.###\.###\-##"
    Case Else
    Me.Campo.InputMask = ""

    End Select

    o problema é que aparece os número formatados no relarório, porém, não está formatando o CNPJ de forma automática, ele só formata caso click no campo que contenha um CNPJ.

    Foi feita também na opção do Detalhe do relatório e não está formatando os 2 ao mesmo tempo, ou formata 1 ou outro, mas não os 2 simultaneamente...
    Anexos
    [Resolvido]Máscara não funciona no campo do Relatório Attachmenttela.jpg
    Você não tem permissão para fazer download dos arquivos anexados.
    (39 Kb) Baixado 1 vez(es)
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3174
    Registrado : 13/12/2016

    [Resolvido]Máscara não funciona no campo do Relatório Empty Re: [Resolvido]Máscara não funciona no campo do Relatório

    Mensagem  Alexandre Fim 3/8/2022, 13:52

    Olá Cristhian,

    Acredito que irá funcionar desta forma:

    [Resolvido]Máscara não funciona no campo do Relatório Format11

    OBS: O exemplo acima eu fiz na na Janela Imediata para testar.

    Alguma coisa assim:

       Select Case Len(NomeDoCampo)
           Case 14: Me.NomeDoCampo = Format(NomeDoCampo, "@@.@@@.@@@/@@@@-@@")
           Case 11: Me.NomeDoCampo = Format(NomeDoCampo, "@@.@@@.@@@-@@")
       End Select




    Att,

    Alexandre Fim


    Última edição por Alexandre Fim em 3/8/2022, 13:57, editado 1 vez(es)


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Máscara não funciona no campo do Relatório Setinf11
    Sistemas e Tecnologia Ltda
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Máscara não funciona no campo do Relatório Empty Re: [Resolvido]Máscara não funciona no campo do Relatório

    Mensagem  crysostomo 3/8/2022, 13:55

    Bom dia. Esses formatos teria que colocar no evento ao carregar, seria o certo, funciona Alexandre.


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    avatar
    cbmenezes
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 26
    Registrado : 18/05/2021

    [Resolvido]Máscara não funciona no campo do Relatório Empty Re: [Resolvido]Máscara não funciona no campo do Relatório

    Mensagem  cbmenezes 3/8/2022, 16:52

    Show de bola meu amigos, vou testar aqui e dando certo ou não informo pra vcs, muito obrigado mesmo pela ajuda!
    avatar
    cbmenezes
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 26
    Registrado : 18/05/2021

    [Resolvido]Máscara não funciona no campo do Relatório Empty Re: [Resolvido]Máscara não funciona no campo do Relatório

    Mensagem  cbmenezes 4/8/2022, 16:50

    Bom dia meus amigos, a solução anterior no meu caso não funcionou, mas outros amigos meus de outro grupo conseguiram criar uma solução que funcionou bem em relação ao meu problema e gostaria de compartilhar com vocês e desde já agradeço imensamente a ajuda de todos.

    Para esta solução, você vai adicionar um novo campo (caixa de texto) no relatório, e, neste campo em fonte de controle, acesse o
    construtor de expressões e crie digita a expressão abaixo:

    =IIf(Len([CPF_CNPJ])>11,Format$([CPF_CNPJ],"00\.000\.000\/0000-00;0"),Format$([CPF_CNPJ],"000\.000\.000-00;0"))

    =SeImed(Compr([CPF_CNPJ])>11;Format$([CPF_CNPJ];"00\.000\.000\/0000-00;0");Format$([CPF_CNPJ];"000\.000\.000-00;0"))

    Se seu Access estiver em Português, troca as vírgulas por ponto-vírgula, e IFF por Selmed

    O campo CPF_CNPJ acoplado na tabela, você pode excluir do relatório ou oculta-lo, deixa só outro campo que adicionou.

    no meu caso funcionou a expressão que contém a função Selmed


    Novamente muito obrigado a todos pela ajuda, abs!

    crysostomo gosta desta mensagem

    avatar
    cbmenezes
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 26
    Registrado : 18/05/2021

    [Resolvido]Máscara não funciona no campo do Relatório Empty Re: [Resolvido]Máscara não funciona no campo do Relatório

    Mensagem  cbmenezes 4/8/2022, 16:56

    Obrigado ao empenho de todos, abs
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Máscara não funciona no campo do Relatório Empty Re: [Resolvido]Máscara não funciona no campo do Relatório

    Mensagem  crysostomo 4/8/2022, 22:38

    Agd o retorno.
    Sucesso...


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.

    Conteúdo patrocinado


    [Resolvido]Máscara não funciona no campo do Relatório Empty Re: [Resolvido]Máscara não funciona no campo do Relatório

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 5/3/2024, 03:10