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 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 879
    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.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    caiosouza
    caiosouza
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 409
    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 : 280
    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 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 879
    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.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    crysostomo
    crysostomo
    Super Avançado
    Super Avançado

    Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 879
    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.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    FranklinJSP
    FranklinJSP
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 280
    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: 24/8/2019, 23:35