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

    [Resolvido]Mensagem de erro do VISUAL BASIC visivel

    avatar
    Marcus250772
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 7
    Registrado : 03/10/2016

    [Resolvido]Mensagem de erro do VISUAL BASIC visivel Empty [Resolvido]Mensagem de erro do VISUAL BASIC visivel

    Mensagem  Marcus250772 19/10/2016, 01:44

    Criei um relatório e inseri um código simples para a visualização de impressão

    EVENTO/AO CLICAR
    DoCmd.OpenReport "RelFichaCirculacao", acViewPreview

    No RELATÓRIO SE NENHUM DADO
     MsgBox "Sem informações para este relatório", vbExclamation, "Erro"
     Cancel = True

    Até ai tudo bem, só que depois surge uma mensagem de erro do VISUAL BASIC que diz:

    Microsoft Visual Basic
    Erro em tempo de execução '2501':
    A ação OpenReport foi cancelada
    Continuar Fim Depurar Ajuda

    Como faço para que esta mensagem NÃO APAREÇA.

    Grato pela ajuda.
    Noobezinho
    Noobezinho
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3932
    Registrado : 29/06/2012

    [Resolvido]Mensagem de erro do VISUAL BASIC visivel Empty Re: [Resolvido]Mensagem de erro do VISUAL BASIC visivel

    Mensagem  Noobezinho 19/10/2016, 02:38

    Marcus

    Experimente assim:

    if Dcount ("*","NomeDaTabelaOuConsultaDeOrigemDoRelatório") < 0 then 'Se houver registro ...

         DoCmd.OpenReport "RelFichaCirculacao", acViewPreview

    Else ' se não houver

        MsgBox "Sem informações para este relatório", vbExclamation, "Erro"

    End If

    Assim, irá somente abrir o relatório se houver informações para o registro.

    Não esqueça de retirar o código anterior do relatório.

    [ ]'s



    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...
    avatar
    Marcus250772
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 7
    Registrado : 03/10/2016

    [Resolvido]Mensagem de erro do VISUAL BASIC visivel Empty Funcionou, porém...

    Mensagem  Marcus250772 20/10/2016, 13:03

    Grato meu amigo.
    Funcionou, porém ele emite a MSG e ainda assim a ação anterior que determina a visualização do relatório não é interrompida e o mesmo surge em branco. Como (não havendo dados) eu emito a MSG e CANCELO a ação de visualização do RELATÓRIO mesmo em branco?
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3913
    Registrado : 14/08/2013

    [Resolvido]Mensagem de erro do VISUAL BASIC visivel Empty Re: [Resolvido]Mensagem de erro do VISUAL BASIC visivel

    Mensagem  FabioPaes 20/10/2016, 14:57

    Amigo, provavelmente terá que ignorar o Erro 2501, pois esta sendo acionado pelo Cancel = true

    Dica1: Troque o Cancel = True 
    por: DoCmd.Close acReport, "RelFichaCirculacao



    Dica2: Ignorando o Erro 2501: Mude o Seu comando para este:

    On Error GoTo 1

    'Coloque aqui todo o Comando que apresenta o erro... Todas as linhas ficam aqui....

    1:
    If Err.Number = 2501 Then 'Ignora o Erro 2501
           Err.Number=0
           Exit Sub
       Else

           MsgBox Err.Description
           Exit Sub
       End If


    Nesse caso quando o Usuário cancelava a ação, era exibido esse erro 2501 dizendo que o usuário cancelou a ação...


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    Noobezinho
    Noobezinho
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3932
    Registrado : 29/06/2012

    [Resolvido]Mensagem de erro do VISUAL BASIC visivel Empty Re: [Resolvido]Mensagem de erro do VISUAL BASIC visivel

    Mensagem  Noobezinho 20/10/2016, 21:17

    Marcus

    Também estou achando que você não tirou todos os códigos que usava para abrir o relatório.

    Se não conseguir, separe a tabela, formulário , consultas se houver e relatório e poste aqui, para

    nós analizar.


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...
    avatar
    Marcus250772
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 7
    Registrado : 03/10/2016

    [Resolvido]Mensagem de erro do VISUAL BASIC visivel Empty FUNCIONOU

    Mensagem  Marcus250772 23/10/2016, 13:44

    Grato Noobezinho.
    Realmente NÃO HAVIA FUNCIONADO por eu ter inserido o código no evento SE NENHUM DADO do relatório e não no AO CLICAR no btn que chamava o mesmo.
    Fiz a correção e funcionou PERFEITAMENTE.
    Muito obrigado pela ajuda de todos.


    Última edição por Marcus250772 em 23/10/2016, 16:01, editado 1 vez(es)
    Noobezinho
    Noobezinho
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3932
    Registrado : 29/06/2012

    [Resolvido]Mensagem de erro do VISUAL BASIC visivel Empty Re: [Resolvido]Mensagem de erro do VISUAL BASIC visivel

    Mensagem  Noobezinho 23/10/2016, 13:50

    Marcus

    Ótimo que resolveu !!

    Só precisa colocar o Resolvido no título do tópico.

    Não precisa enviar outra msg para isso , é só

    editar qualquer msg tua e clicar no botão resolvido

    Boa sorte !!


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...
    avatar
    Marcus250772
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 7
    Registrado : 03/10/2016

    [Resolvido]Mensagem de erro do VISUAL BASIC visivel Empty Re: [Resolvido]Mensagem de erro do VISUAL BASIC visivel

    Mensagem  Marcus250772 23/10/2016, 16:02

    Grato a todos

      Data/hora atual: 12/4/2021, 01:47