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


2 participantes

    Ao ocorrer erro

    avatar
    Jr.Wano
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 156
    Registrado : 29/01/2010

    Ao ocorrer erro Empty Ao ocorrer erro

    Mensagem  Jr.Wano 29/5/2010, 15:50

    Uso a sub a seguir, no evento "Ao ocorrer erro" do form., mas tenho que repeti-lo em cada form.
    O que preciso é criar uma function, assim teria como usa-la em todos os formulários.
    .
    Private Sub Form_Error(DataErr As Integer, Response As Integer)
    Response = acDataErrContinue 'cancela msg do access
    If DataErr = 3314 Then 'Campos requeridos nao preenchidos
    MsgBox "Preencha os campos obrigatórios (*)!", vbInformation, "Atenção "
    ElseIf DataErr = 2279 Then 'Digitação diferente da mascara de entrada
    MsgBox "Digite os dados corretamente!", vbInformation, "Atenção "
    Else
    MsgBox "Este registro não será salvo" & Chr(13) & Chr(13) & _
    "Erro " & Err.Number & " " & Err.Description, vbCritical, "Procedimento inválido... "
    End If
    End Sub
    .
    Se alguem puder ajudar,
    Agradeço
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    Ao ocorrer erro Empty Re: Ao ocorrer erro

    Mensagem  JPaulo 29/5/2010, 16:12

    Transforme isso mesmo em função publica e depois é só chamá-la;

    Public Function Form_Error(DataErr As Integer, Response As Integer)
    Response = acDataErrContinue 'cancela msg do access
    If DataErr = 3314 Then 'Campos requeridos nao preenchidos
    MsgBox "Preencha os campos obrigatórios (*)!", vbInformation, "Atenção "
    ElseIf DataErr = 2279 Then 'Digitação diferente da mascara de entrada
    MsgBox "Digite os dados corretamente!", vbInformation, "Atenção "
    Else
    MsgBox "Este registro não será salvo" & Chr(13) & Chr(13) & _
    "Erro " & Err.Number & " " & Err.Description, vbCritical, "Procedimento inválido... "
    End If
    End Function


    Chamar a função em cada form;

    Private Sub Form_Error(DataErr As Integer, Response As Integer)
    Call Form_Error
    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

    Ao ocorrer erro Folder_announce_new Utilize o Sistema de Busca do Fórum...
    Ao ocorrer erro Folder_announce_new 102 Códigos VBA Gratuitos...
    Ao ocorrer erro Folder_announce_new Instruções SQL como utilizar...
    avatar
    Jr.Wano
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 156
    Registrado : 29/01/2010

    Ao ocorrer erro Empty Re: Ao ocorrer erro

    Mensagem  Jr.Wano 29/5/2010, 16:21

    JPaulo,

    Está dando o seguinte erro:
    Erro de compilação:
    O argumento não é opcional
    avatar
    Jr.Wano
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 156
    Registrado : 29/01/2010

    Ao ocorrer erro Empty Re: Ao ocorrer erro

    Mensagem  Jr.Wano 29/5/2010, 17:42

    JPaulo,

    Agradeço por sua atenção

    Continua dando erro, só que dessa vez:
    Erro de compilação
    Variavel não definida
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    Ao ocorrer erro Empty Re: Ao ocorrer erro

    Mensagem  JPaulo 29/5/2010, 22:32

    Amigão fiz aqui e deu certo, veja o que está a fazer de errado.


    .................................................................................
    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

    Ao ocorrer erro Folder_announce_new Utilize o Sistema de Busca do Fórum...
    Ao ocorrer erro Folder_announce_new 102 Códigos VBA Gratuitos...
    Ao ocorrer erro Folder_announce_new Instruções SQL como utilizar...
    avatar
    Jr.Wano
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 156
    Registrado : 29/01/2010

    Ao ocorrer erro Empty Re: Ao ocorrer erro

    Mensagem  Jr.Wano 29/5/2010, 23:04

    JPaulo,

    Refiz conforme vc. postou, mas infelizmente continua não funcionando.
    Estou mandando um exemplo simples com o módulo, realmente não consigo achar aonde estou errando
    Se puder dar uma olhada:
    http://www.speedyshare.com/files/22690898/Erro_FE.mdb

    Fico muito agradecido pela atenção
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    Ao ocorrer erro Empty Re: Ao ocorrer erro

    Mensagem  JPaulo 29/5/2010, 23:53

    Aqui a funfar com nota 10;

    Num modulo novo cole e salve;

    Public Function TodosErros(frm As Form, DataErr As Integer, Response As Integer)
    'Contribuíção de JPaulo ®️ Maximo Access
    Response = acDataErrContinue 'cancela msg do access
    If DataErr = 3314 Then 'Campos requeridos nao preenchidos
    MsgBox "Preencha os campos obrigatórios (*)!", vbInformation, "Atenção "
    ElseIf DataErr = 2279 Then 'Digitação diferente da mascara de entrada
    MsgBox "Digite os dados corretamente!", vbInformation, "Atenção "
    Else
    MsgBox "Este registro não será salvo" & Chr(13) & Chr(13) & _
    "Erro " & Err.Number & " " & Err.Description, vbCritical, "Procedimento inválido... "
    End If
    End Function



    Chamar a função;

    Private Sub Form_Error(DataErr As Integer, Response As Integer)
    Call TodosErros(Me, DataErr, Response)
    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

    Ao ocorrer erro Folder_announce_new Utilize o Sistema de Busca do Fórum...
    Ao ocorrer erro Folder_announce_new 102 Códigos VBA Gratuitos...
    Ao ocorrer erro Folder_announce_new Instruções SQL como utilizar...
    avatar
    Jr.Wano
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 156
    Registrado : 29/01/2010

    Ao ocorrer erro Empty Re: Ao ocorrer erro

    Mensagem  Jr.Wano 30/5/2010, 00:03

    JPaulo,

    Aqui tambem funfou, só que com nota mil

    Normalmente nos meus sistemas tenho mais de 50 forms, então já dá pra imaginar como vc. me ajudou.
    Mais uma vez, muito obrigado.
    .
    Abraços,
    Junior Wano
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    Ao ocorrer erro Empty Re: Ao ocorrer erro

    Mensagem  JPaulo 30/5/2010, 00:14

    Valew pelo retorno, precisando de novo dê um grito.


    .................................................................................
    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

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

    Conteúdo patrocinado


    Ao ocorrer erro Empty Re: Ao ocorrer erro

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 29/3/2024, 02:32