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


3 participantes

    [Resolvido]Fechando relatório

    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  crysostomo 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



    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    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 : Respeito às Regras 100%

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

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

    Mensagem  caiosouza 14/3/2019, 14:46

    Bom dia,

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


    .................................................................................
    Caio Souza

    Engenheiro de Software
    FranklinJSP
    FranklinJSP
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  FranklinJSP 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
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  crysostomo 21/3/2019, 11:37

    Obrigado a vcs dei certo aqui


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  crysostomo 21/3/2019, 11:41

    Obrigado .


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    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 : Respeito às Regras 100%

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

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

    Mensagem  FranklinJSP 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: 28/3/2024, 19:16