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 relatório

    avatar
    PCAMARAL
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 57
    Registrado : 16/02/2012

    [Resolvido]Formatar relatório Empty Formatar relatório

    Mensagem  PCAMARAL 9/8/2012, 16:39

    Boa tarde,

    Gostaria de saber se tem como um relatório exibir um campo ou não de acordo com o valor de outro campo do relatório.

    Grato
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8251
    Registrado : 05/11/2009

    [Resolvido]Formatar relatório Empty Re: [Resolvido]Formatar relatório

    Mensagem  Alexandre Neves 9/8/2012, 17:51

    Boa tarde, Amaral
    Na formatação do relatório, coloque
    If NomeControlo="X" then NomeOutroControlo.Visible=True else NomeOutroControlo.Visible=False
    avatar
    PCAMARAL
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 57
    Registrado : 16/02/2012

    [Resolvido]Formatar relatório Empty Re: [Resolvido]Formatar relatório

    Mensagem  PCAMARAL 9/8/2012, 20:33

    Boa tarde Alexandre,

    Fiz o que indicou e está dando erro quando abro o relatório no modo de visualização de impressão. Quando abro no modo relatório não dá erro, mas o código também não funciona. Segue código e descrição do erro.

    Private Sub Detalhe_Format(Cancel As Integer, FormatCount As Integer)
    If Tipo = "Física" Then InscriçãoEstadual.visible = False Else InscriçãoEstadual.visible = True
    If Tipo = "Física" Then InscriçãoMunicipal.visible = False Else InscriçãoMunicipal.visible = True
    If Tipo = "Jurídica" Then RG.visible = False Else RG.visible = True
    If Tipo = "Jurídica" Then Emissor.visible = False Else Emissor.visible = True
    If Tipo = "Física" Then lblNome.Caption = "Nome" Else lblNome.Caption = "Nome Empresarial"
    If Tipo = "Física" Then lblCód.Caption = "CPF" Else lblCód.Caption = "CNPJ"
    If Tipo = "Jurídica" Then Nacionalidade.visible = False Else Nacionalidade.visible = True
    If Tipo = "Jurídica" Then EstadoCivil.visible = False Else EstadoCivil.visible = True
    If Tipo = "Jurídica" Then Profissão.visible = False Else Profissão.visible = True
    If Tipo = "Jurídica" Then RegCasamento.visible = False Else RegCasamento.visible = True
    If EstadoCivil = "Casado(a)" Then RegCasamento.visible = True Else RegCasamento.visible = False
    End Sub

    Erro:
    A expressão Ao Formatar que você inseriu como definição da propriedade de evento gerou o seguinte erro:Ocorreu um problema enquanto o GIRO CAP CONTROLE - Admin se comunicava com o servidor OLE ou com o controle ActiveX.
    *Talvez a expressão não resulte no nome de uma macro, no nome de uma função definida pelo usuário ou em um [Procedimento de Evento].
    *Talvez tenha ocorrido um erro na avaliação da função, do evento ou da macro.

    Clicando em OK aparece:

    Não foi possível executar uma macro personalizada neste relatório, o que está impedindo a sua renderização.

    Agradeço o retorno. Abs
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8251
    Registrado : 05/11/2009

    [Resolvido]Formatar relatório Empty Re: [Resolvido]Formatar relatório

    Mensagem  Alexandre Neves 9/8/2012, 21:31

    Novamente, Amaral
    A mensagem reporta-se à comunicação com o servidor e com o controlo ActiveX
    Não vejo relação com o código.
    Sem este código, funciona tudo bem? se sim, experimente no acontectimento AoPintar
    avatar
    PCAMARAL
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 57
    Registrado : 16/02/2012

    [Resolvido]Formatar relatório Empty Re: [Resolvido]Formatar relatório

    Mensagem  PCAMARAL 10/8/2012, 14:57

    Alexandre, sem o código o relatório abre normal mas mostra todos os campos.

    Tentei colocar o código no evento ao pintar mas também não funcionou. Não dá mais o erro, mas o relatório continua exibindo todos os campos.

    O código ficou assim:

    Private Sub Detalhe_Paint()
    If Tipo = "Física" Then InscriçãoEstadual.visible = False Else InscriçãoEstadual.visible = True
    If Tipo = "Física" Then InscriçãoMunicipal.visible = False Else InscriçãoMunicipal.visible = True
    If Tipo = "Jurídica" Then RG.visible = False Else RG.visible = True
    If Tipo = "Jurídica" Then Emissor.visible = False Else Emissor.visible = True
    If Tipo = "Física" Then lblNome.Caption = "Nome" Else lblNome.Caption = "Nome Empresarial"
    If Tipo = "Física" Then lblCód.Caption = "CPF" Else lblCód.Caption = "CNPJ"
    If Tipo = "Jurídica" Then Nacionalidade.visible = False Else Nacionalidade.visible = True
    If Tipo = "Jurídica" Then EstadoCivil.visible = False Else EstadoCivil.visible = True
    If Tipo = "Jurídica" Then Profissão.visible = False Else Profissão.visible = True
    If Tipo = "Jurídica" Then RegCasamento.visible = False Else RegCasamento.visible = True
    If EstadoCivil = "Casado(a)" Then RegCasamento.visible = True Else RegCasamento.visible = False
    End Sub

    Agradeço o retorno.

    Abs
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8251
    Registrado : 05/11/2009

    [Resolvido]Formatar relatório Empty Re: [Resolvido]Formatar relatório

    Mensagem  Alexandre Neves 10/8/2012, 17:30

    Estranho. Não vejo nada que ocasione erro, a menos que algum campo indicado não exista.
    Faça uma pausa no código em cada instrução. seleccione a linha e prima F9 para verificar em que instrução dá o erro
    avatar
    PCAMARAL
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 57
    Registrado : 16/02/2012

    [Resolvido]Formatar relatório Empty Re: [Resolvido]Formatar relatório

    Mensagem  PCAMARAL 22/8/2012, 13:19

    Alexandre, dei um tempo pra esfriar a cabeça e retomei o tópico ontem. Resolvi fazer tudo novamente desde o começo e do nada, utilizando o mesmo código, funcionou perfeitamente.

    Agora mais uma dúvida, ajustei o posicionamento dos campos para que não ficassem "buracos" no meio do relatório quando um campo não fosse exibido, mas acabei com um "buraco" no final de cada seção detalhe. Existe algum comando para ajustar a altura da seção detalhe para que esse "buraco" desapareça?

    Grato
    avatar
    PCAMARAL
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 57
    Registrado : 16/02/2012

    [Resolvido]Formatar relatório Empty Re: [Resolvido]Formatar relatório

    Mensagem  PCAMARAL 22/8/2012, 14:34

    Resolvi adicionando o comando Me.Detalhe.Height no evento ao formatar.

    Grato pela ajuda.

      Data/hora atual: 5/12/2022, 19:13