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

    crysostomo
    crysostomo
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    [Resolvido]Fechando relatório Empty [Resolvido]Fechando relatório

    Mensagem  crysostomo em 14/3/2019, 12:46

    amigos , me de uma ajuda, eu coloco comando para fecha somente o relatório e ele fecha o programa todo.
    Código:
    Private Sub Report_NoData(Cancel As Integer)

    MsgBox " Não há nenhum compromisso marcado nesse mês. ", vbExclamation, "Relátório"
      DoCmd.Close acReport, "relatorioDeListaDeCompromisso"
     DoCmd.OpenForm "Lista_de_Compromissos"
    End Sub



    .................................................................................
    Uma mão ajuda a outra.
    O medo não é morrer, o medo é se alguém está morto dentro de você, assim como o fracassado é aquele que nem tentou
    caiosouza
    caiosouza
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 386
    Registrado : 05/12/2016

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

    Mensagem  caiosouza em 14/3/2019, 14:46

    Bom dia,

    Verifica se não tem nenhum procedimento Close no seu report ou no Open do seu form.


    .................................................................................
    A persistência leva ao sucesso!
    FranklinJSP
    FranklinJSP
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 247
    Registrado : 25/02/2016

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

    Mensagem  FranklinJSP em 14/3/2019, 15:37

    Olá Crysostomo

    Eu uso este código para quando não há dados:

    Código:
    Private Sub Report_NoData(Cancel As Integer)
        DoCmd.Beep
        MsgBox "¡Não há dados para o relatorio!", vbOKOnly + vbInformation, "Aviso"
        Cancel = True
    End Sub

    Saludos


    .................................................................................
    Meu Português não é muito bom,
    mas eu gosto de colaborar... em qualquer idioma
    Smile "Access... minha paixão"
    crysostomo
    crysostomo
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

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

    Mensagem  crysostomo em 21/3/2019, 11:37

    Obrigado a vcs dei certo aqui


    .................................................................................
    Uma mão ajuda a outra.
    O medo não é morrer, o medo é se alguém está morto dentro de você, assim como o fracassado é aquele que nem tentou
    crysostomo
    crysostomo
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

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

    Mensagem  crysostomo em 21/3/2019, 11:41

    Obrigado .


    .................................................................................
    Uma mão ajuda a outra.
    O medo não é morrer, o medo é se alguém está morto dentro de você, assim como o fracassado é aquele que nem tentou
    FranklinJSP
    FranklinJSP
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 247
    Registrado : 25/02/2016

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

    Mensagem  FranklinJSP em 21/3/2019, 15:17

    lol! lol! lol!


    .................................................................................
    Meu Português não é muito bom,
    mas eu gosto de colaborar... em qualquer idioma
    Smile "Access... minha paixão"

    Conteúdo patrocinado

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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 25/5/2019, 20:45