MaximoAccess

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

Obrigado

Administração do MaximoAccess

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 : 1230
    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 Seg 22 Abr 2019, 18: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 : 6686
    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 Seg 22 Abr 2019, 18: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 : 1230
    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 Seg 22 Abr 2019, 18: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 : 6686
    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 Seg 22 Abr 2019, 18: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 : 1230
    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 Seg 22 Abr 2019, 19: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 : 6686
    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 Seg 22 Abr 2019, 19: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 : 1230
    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 Ter 23 Abr 2019, 14: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: Qui 04 Jun 2020, 01:12