Ao ocorrer erro

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

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

JPaulo,

Está dando o seguinte erro:
Erro de compilação:
O argumento não é opcional

JPaulo,

Agradeço por sua atenção

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

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

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

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

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

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