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

    Compartilhe
    avatar
    crysostomo
    Avançado
    Avançado

    Respeito às Regras 100%

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

    [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 : 2538
    Registrado : 21/04/2011

    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)
    avatar
    crysostomo
    Avançado
    Avançado

    Respeito às Regras 100%

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

    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


    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

    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

    Utilize o Sistema de Busca do Fórum...
    102 Códigos VBA Gratuitos...
    Instruções SQL como utilizar...
    avatar
    crysostomo
    Avançado
    Avançado

    Respeito às Regras 100%

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

    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 : 10360
    Registrado : 04/11/2009

    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

    Utilize o Sistema de Busca do Fórum...
    102 Códigos VBA Gratuitos...
    Instruções SQL como utilizar...

      Data/hora atual: 23/1/2019, 08:07