Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access
ErrorNumberAccess2007.pdf 
Domine Access e VBA Criando Um Incrível Sistema Financeiro - [Passo a passo] Access e VBA - Formulário Desacoplado - [Passo a passo]
Conheça meu canal no Youtube e se inscreva.
' Crie a tabela: ErrosAccess
' Com os campos:
' CodigoErro (Número Inteiro Longo) e DescricaoErro (Texto 255)
' Cole o código a seguir num novo módulo
' Depois, na janela Verificação imediata digite: ? GerarTabelaErros()
Function GerarTabelaErros()
Dim MyDB As Database, MyTable As Recordset
Dim i As Integer
Dim e$
Set MyDB = CurrentDb()
Set MyTable = MyDB.OpenRecordset("ErrosAccess")
For i = 1 To 32766
e$ = Error$(i)
If e$ <> "User-defined Error" And e$ <> "Reserved Error" Then
MyTable.AddNew
MyTable![CodigoErro] = i
MyTable![DescricaoErro] = e$
MyTable.Update
End If
Next i
MyTable.Close
MyDB.Close
End Function
Gerador_Tabelas_Erros.zip 
Assis e pcnet gostam desta mensagem
