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 após a impressão por código

    formiga10x
    formiga10x
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 786
    Registrado : 11/09/2013

    [Resolvido]Fechar Relatório após a impressão por código Empty Fechar Relatório após a impressão por código

    Mensagem  formiga10x em 6/11/2013, 13:45

    Bom dia novamente como hoje estou de folga resolvi dar um pega no programa e sanar algumas lacunas e para isso conto com ajuda de vcs amigos do Fórum.
    É o seguinte: Gostaria de após esse comando...

    If MsgBox(" Deseja imprimir a venda?", vbYesNo + vbDefaultButton1 + vbInformation, "Aviso!") = vbYes Then
    DoCmd.OpenReport "RCupom", acViewPreview, , , , txtCodigoVenda
    DoCmd.PrintOut

    O Rcupom se fechasse sozinho.

    Desde já agradeço e fiquem com Deus.
    Sidney
    Sidney
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 355
    Registrado : 08/10/2012

    [Resolvido]Fechar Relatório após a impressão por código Empty Re: [Resolvido]Fechar Relatório após a impressão por código

    Mensagem  Sidney em 6/11/2013, 14:14


    Amigo ele ficaria assim, faça o teste.

    att;

    Ney


    If MsgBox(" Deseja imprimir a venda?", vbYesNo + vbDefaultButton1 + vbInformation, "Aviso!") = vbYes Then
    DoCmd.OpenReport "RCupom", acViewPreview, , , , txtCodigoVenda
    DoCmd.PrintOut
    DoCmd.Close acForm, "RCupom"

    formiga10x
    formiga10x
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 786
    Registrado : 11/09/2013

    [Resolvido]Fechar Relatório após a impressão por código Empty Re: [Resolvido]Fechar Relatório após a impressão por código

    Mensagem  formiga10x em 6/11/2013, 15:49

    Deu certo não
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10558
    Registrado : 04/11/2009

    [Resolvido]Fechar Relatório após a impressão por código Empty Re: [Resolvido]Fechar Relatório após a impressão por código

    Mensagem  JPaulo em 6/11/2013, 16:07

    Quer fechar o relatorio ou o form ?


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Fechar Relatório após a impressão por código Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Fechar Relatório após a impressão por código Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Fechar Relatório após a impressão por código Folder_announce_new Instruções SQL como utilizar...
    formiga10x
    formiga10x
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 786
    Registrado : 11/09/2013

    [Resolvido]Fechar Relatório após a impressão por código Empty Re: [Resolvido]Fechar Relatório após a impressão por código

    Mensagem  formiga10x em 6/11/2013, 16:14

    Só o Relatório JPaulo pois, ao concluir a venda mostra o relatório exibindo o recibo e já encaminhando para a impressão. Mas, não sei por cargas d'agua que o danado mesmo com Pop-up não é exibido e assim me dando a opção de fecha-lo manualmente e com isso o form venda fica inacessível, por não achar a solução de o porque ele não aparece pensei em um código que após ele abrir se feche sozinho pois o mesmo não é visível...
    Grato.
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10558
    Registrado : 04/11/2009

    [Resolvido]Fechar Relatório após a impressão por código Empty Re: [Resolvido]Fechar Relatório após a impressão por código

    Mensagem  JPaulo em 6/11/2013, 16:19

    Assim;

    Código:

    Private Sub Command16_Click()
    On Error GoTo 1
    'abre o relatorio
           DoCmd.OpenReport "RCupom", acViewReport, , , , Me.txtCodigoVenda
    'pergunta se quer imprimir
       If MsgBox(" Deseja imprimir a venda?", vbYesNo + vbDefaultButton1 + vbInformation, "Aviso!") = vbYes Then
    'se sim, imprime e fecha
            DoCmd.PrintOut
            DoCmd.Close acReport, "RCupom", acSaveYes
            Else
    'se não quer imprimir, fecha apenas a visualização
            DoCmd.Close acReport, "RCupom", acSaveYes
            Exit Sub
        End If
    1:
     
        If Err.Number = 2501 Then
            MsgBox "Impressão cancelada.....", vbOKOnly
            Exit Sub
        End If
    End Sub


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Fechar Relatório após a impressão por código Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Fechar Relatório após a impressão por código Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Fechar Relatório após a impressão por código Folder_announce_new Instruções SQL como utilizar...
    formiga10x
    formiga10x
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 786
    Registrado : 11/09/2013

    [Resolvido]Fechar Relatório após a impressão por código Empty Re: [Resolvido]Fechar Relatório após a impressão por código

    Mensagem  formiga10x em 6/11/2013, 16:42

    JPaulo o código que vc me passou está correto! O problema é que eu coloquei para não exibir o access quando iniciasse a aplicação. Contudo testei em modo debug e o código que me passou funcionou corretamente agora vou ver se acho um jeito para não exibi-lo então até porque não é necessário que ele apareça.
    Grato pelo seu tempo e que Deus os abençoe.
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10558
    Registrado : 04/11/2009

    [Resolvido]Fechar Relatório após a impressão por código Empty Re: [Resolvido]Fechar Relatório após a impressão por código

    Mensagem  JPaulo em 6/11/2013, 16:45

    Obrigado pelo retorno o forum agradece.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Fechar Relatório após a impressão por código Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Fechar Relatório após a impressão por código Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Fechar Relatório após a impressão por código Folder_announce_new Instruções SQL como utilizar...
    crysostomo
    crysostomo
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    [Resolvido]Fechar Relatório após a impressão por código Empty Re: [Resolvido]Fechar Relatório após a impressão por código

    Mensagem  crysostomo em 23/4/2019, 17:38

    Boa tarde.
    quando não se tem registro no relatório peço pra não abrir , mais ele fecha o access todo.
    Código:
    Private Sub Report_NoData(Cancel As Integer)
        MsgBox "Não ha registro desse mês/ano", vbInformation, "Relatório"
        DoCmd.Close acReport, "serviçosRelatorio", acSaveYes
    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
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10558
    Registrado : 04/11/2009

    [Resolvido]Fechar Relatório após a impressão por código Empty Re: [Resolvido]Fechar Relatório após a impressão por código

    Mensagem  JPaulo em 23/4/2019, 17:47

    Olá;

    Com esse comando é impossivel isso acontecer, a não ser que você tenha outra instrução qualquer.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Fechar Relatório após a impressão por código Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Fechar Relatório após a impressão por código Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Fechar Relatório após a impressão por código Folder_announce_new Instruções SQL como utilizar...
    crysostomo
    crysostomo
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    [Resolvido]Fechar Relatório após a impressão por código Empty Re: [Resolvido]Fechar Relatório após a impressão por código

    Mensagem  crysostomo em 23/4/2019, 17:50


    Boa tarde JPaulo.
    ele faz ate backup.
    no comando ao abrir
    Código:
    Private Sub Comando2_Click()
    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
    End Sub

    se não tiver nenhum registro:
    Código:
    Private Sub Report_NoData(Cancel As Integer)
        MsgBox "Não ha registro desse mês/ano", vbInformation, "Relatório"
        DoCmd.Close acReport, "serviçosRelatorio", acSaveYes
    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
    crysostomo
    crysostomo
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    [Resolvido]Fechar Relatório após a impressão por código Empty Re: [Resolvido]Fechar Relatório após a impressão por código

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

    JPaulo , 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.
    O medo não é morrer, o medo é se alguém está morto dentro de você, assim como o fracassado é aquele que nem tentou

    Conteúdo patrocinado

    [Resolvido]Fechar Relatório após a impressão por código Empty Re: [Resolvido]Fechar Relatório após a impressão por código

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 17/7/2019, 23:59