MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

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]Fechar relatório quanto não tiver registro

    crysostomo
    crysostomo
    VIP
    VIP

    Respeito às Regras 50%

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

    [Resolvido]Fechar relatório quanto não tiver registro Empty [Resolvido]Fechar relatório quanto não tiver registro

    Mensagem  crysostomo em 22/4/2019, 22:34

    meus amigos boa noite, eu não quero que o relatório abra quando não tiver registro.
    Código:
    Private Sub Report_NoData(Cancel As Integer)
    MsgBox " Não há registro nesse mês/ano    "
    DoCmd.Close "serviçosRelatorio"
    End Sub


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6816
    Registrado : 15/03/2013

    [Resolvido]Fechar relatório quanto não tiver registro Empty Re: [Resolvido]Fechar relatório quanto não tiver registro

    Mensagem  ahteixeira em 22/4/2019, 22:34

    Olá,

    Se a dúvida é de Relatórios, não deve abrir em Macros.
    Tenha mais atenção, tópico movido.

    Quanto à questão, teste assim:
    Código:
    Private Sub Report_NoData(Cancel As Integer)
      MsgBox " Não há registro nesse mês/ano    ", vbExclamation, "Aviso"
      Cancel = True
    End Sub

    Abraço
    crysostomo
    crysostomo
    VIP
    VIP

    Respeito às Regras 50%

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

    [Resolvido]Fechar relatório quanto não tiver registro Empty Re: [Resolvido]Fechar relatório quanto não tiver registro

    Mensagem  crysostomo em 22/4/2019, 22:38

    ele funciona ,mas eu ja tenho um vba para abrir ele , esse código que mandou , ja impede de abrir, ou seja , ao abrir relatorio ele ja pede mês e o ano , se não tiver nenhuma dado ele não abre , esse código ai não deixa exibir a mensagem


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6816
    Registrado : 15/03/2013

    [Resolvido]Fechar relatório quanto não tiver registro Empty Re: [Resolvido]Fechar relatório quanto não tiver registro

    Mensagem  ahteixeira em 22/4/2019, 22:45

    Olá,

    Partilhe base de dados com objectos da duvida para se testar.

    Abraço
    crysostomo
    crysostomo
    VIP
    VIP

    Respeito às Regras 50%

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

    [Resolvido]Fechar relatório quanto não tiver registro Empty Re: [Resolvido]Fechar relatório quanto não tiver registro

    Mensagem  crysostomo em 22/4/2019, 23:00

    tive quer abri ele por uma macro  infelizmente quando eu cancelo o evento  da erro , e não consigui tratar esse erro, me ajuda também a tratar esse erro
    e quando não tem nenhum dado ele fecha o sistema todo
    drive.google.com/open?id=19xJdQOxoNvEAHRkvMKvQcr856gMRpgsi


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6816
    Registrado : 15/03/2013

    [Resolvido]Fechar relatório quanto não tiver registro Empty Re: [Resolvido]Fechar relatório quanto não tiver registro

    Mensagem  ahteixeira em 22/4/2019, 23:25

    Olá,

    Se compreendi bem a dúvida, será fazer um tratamento de erros, pode ser assim por exemplo:
    Código:
    On Error GoTo Err_Rep

        DoCmd.OpenReport "serviçosRelatorio", acViewPreview

    Exit_Rep:
        Exit Sub

    Err_Rep:
        If Err.Number = 2501 Then
            Resume Exit_Rep
        Else
            MsgBox Err.Number & "-" & Err.Description, vbCritical
            Resume Exit_Rep
        End If

    Se tiver duvida, segue o meu teste:
    cld.pt/dl/download/ea87fed0-713e-412e-8a24-0a2386119063/Arq_rev.zip

    Abraço
    crysostomo
    crysostomo
    VIP
    VIP

    Respeito às Regras 50%

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

    [Resolvido]Fechar relatório quanto não tiver registro Empty Re: [Resolvido]Fechar relatório quanto não tiver registro

    Mensagem  crysostomo em 23/4/2019, 18:26

    consegui aqui , nunca achei que esse pequeno código iria ser utilizado em reports.

    Private Sub Report_NoData(Cancel As Integer)
    MsgBox "Não ha registro desse mês/ano", vbInformation, "Relatório"
    Cancel = True
    End Sub
    Obrigado pela atenção


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.

      Data/hora atual: 5/8/2020, 16:53