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]Impedir que formulário de critérios seja maximizado se o relatório não contiver dados ...

    Compartilhe

    augustopimenta
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 112
    Registrado : 19/03/2012

    [Resolvido]Impedir que formulário de critérios seja maximizado se o relatório não contiver dados ...

    Mensagem  augustopimenta em Qui 07 Ago 2014, 02:24

    Olá pessoal..
    Tenho um relatório que é impresso de acordo com alguns critérios inseridos num formulário...
    Coloquei o comando docmd.maximize na chamada do relatório para que ele abra já maximizado ...
    No evento "Se nenhum dado" do relatório coloquei o seguinte comando:
    msgbox "não há dados para este período."
    cancel = true

    O problema é que quando não há dados para imprimir, o access está maximizando o formulário de critérios... Isso causa um incômodo muito grande, pois o formulário é pequeno e fica tomando a tela toda de maneira desproporcional..
    Como faço para que o formulário não seja maximizado ???
    Alguma dica..
    Desde já agradeço ....

    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3350
    Registrado : 04/04/2010

    Re: [Resolvido]Impedir que formulário de critérios seja maximizado se o relatório não contiver dados ...

    Mensagem  Avelino Sampaio em Qui 07 Ago 2014, 10:26

    Olá!

    O cancelamento do relatório causa a geração do erro 2501 no evento que o chamou.  Basta então tratarmos o erro.  exemplo:

    Private Sub btImprimir_Click()
    On Error GoTo TrataErro
    DoCmd.OpenReport "NomeRelatório", acViewPreview
    Sair:
    DoCmd.Maximize
    TrataErro:
    End Sub


    Nota:  Passe a propriedade "estilo de borda" do formulário para "Diálogo"

    Sucesso!


    .................................................................................
    ============ Quer aprender Access em alta velocidade ? ============

    || [Você precisa estar registrado e conectado para ver esta imagem.] Acesse o site UsandoAccess.com.br e veja um ótimo kit de ensino que tenho para você.

    ===========================================================

    augustopimenta
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 112
    Registrado : 19/03/2012

    Re: [Resolvido]Impedir que formulário de critérios seja maximizado se o relatório não contiver dados ...

    Mensagem  augustopimenta em Qui 07 Ago 2014, 14:04

    Obrigado mais uma vez Avelino ...
    Funcionou perfeitamente ....
    Como tenho pouca familiaridade com o assunto, caio nessas armadilhas algumas vezes.. rsrs
    Simples, direto e funcional ...

      Data/hora atual: Qui 08 Dez 2016, 14:08