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]Oculta erro de mensagem a ser cancelado

    crysostomo
    crysostomo
    VIP
    VIP

    Respeito às Regras 75%

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

    [Resolvido]Oculta erro de mensagem a ser cancelado Empty [Resolvido]Oculta erro de mensagem a ser cancelado

    Mensagem  crysostomo em 10/1/2019, 19:03

    amigos tentei encontrar mas não consegui . Como ocultar erro de mensagem o access
    criei uma macro de imprimir no relatório , ao cancelar a impressão o access trás um erro de execução
    Lembro que Jpaulo tinha me ajudado , mas não consigo encontrar.

    Código:
    Private Sub imprimir_Click()
    If Err.Number = 2212 Then Resume Next

    DoCmd.PrintOut


    End Sub
    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2899
    Registrado : 21/04/2011

    [Resolvido]Oculta erro de mensagem a ser cancelado Empty Re: [Resolvido]Oculta erro de mensagem a ser cancelado

    Mensagem  Marcelo David em 11/1/2019, 00:59

    Boa noite,
    Não sei em qual momento cancela a impressão,
    Então vou chutar aqui:

    No evento Ao ocorrer erro do relatório ponha:


    Código:
    Response = acDataErrContinue



    Caso continue, nos informe o memento exato desse cancelamento.


    .................................................................................
    Marcelo David
    www.mrdsystem.com.br (em construção)
    crysostomo
    crysostomo
    VIP
    VIP

    Respeito às Regras 75%

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

    [Resolvido]Oculta erro de mensagem a ser cancelado Empty Re: [Resolvido]Oculta erro de mensagem a ser cancelado

    Mensagem  crysostomo em 11/1/2019, 14:56

    continua com o erro
    Código:
    Private Sub Report_Current()
    DoCmd.PrintOut
    End Sub

    Private Sub Report_Error(DataErr As Integer, Response As Integer)
    Response = acDataErrContinue

    [Resolvido]Oculta erro de mensagem a ser cancelado Relato10
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

    [Resolvido]Oculta erro de mensagem a ser cancelado Empty Re: [Resolvido]Oculta erro de mensagem a ser cancelado

    Mensagem  JPaulo em 11/1/2019, 15:20

    Deixe a mensagem apenas para testar.

    Código:
    Private Sub imprimir_Click()
    On Error GoTo 1
    If Err.Number = 2212 Then Resume Next

    DoCmd.PrintOut

    1:
       If Err.Number = 2501 Or Err.Number = 2212 Then
           Err.Number = 0
            MsgBox "Cancelado...", vbOKOnly
        Else
           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]Oculta erro de mensagem a ser cancelado Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Oculta erro de mensagem a ser cancelado Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Oculta erro de mensagem a ser cancelado Folder_announce_new Instruções SQL como utilizar...
    crysostomo
    crysostomo
    VIP
    VIP

    Respeito às Regras 75%

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

    [Resolvido]Oculta erro de mensagem a ser cancelado Empty Re: [Resolvido]Oculta erro de mensagem a ser cancelado

    Mensagem  crysostomo em 11/1/2019, 15:23

    Obrigado Jpaulo, lembro-,me que já tinha me passado so que não estava conseguindo achar.
    Marcelo David obrigado camarada pela atenção
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

    [Resolvido]Oculta erro de mensagem a ser cancelado Empty Re: [Resolvido]Oculta erro de mensagem a ser cancelado

    Mensagem  JPaulo em 11/1/2019, 15:38

    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]Oculta erro de mensagem a ser cancelado Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Oculta erro de mensagem a ser cancelado Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Oculta erro de mensagem a ser cancelado Folder_announce_new Instruções SQL como utilizar...

    Conteúdo patrocinado

    [Resolvido]Oculta erro de mensagem a ser cancelado Empty Re: [Resolvido]Oculta erro de mensagem a ser cancelado

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 6/12/2019, 16:40