Я использую для просмотра ошибок времени выполнения специальную процедуру, которая вызывается из события формы ОШИБКА(OnError).

Private Sub Form_Error(DataErr As Integer, Response As Integer)
UpdateErrorsTable DataErr, Me.Name
End Sub

Все ошибки складываются в таблицу в каждом клиентском приложении. Потом прилинковал их к своей разработке и просматриваю время от времени. Это, конечно, не лучший вариант. Проще и, наверное, удобней все ошибки складировать в одну таблицу с указанием имени компьютера и пользователя, где произошла ошибка, но руки не доходят переписать код.

Function UpdateErrorsTable(ByVal DataErr As Long, FuncName As String, Optional strSqls As String) As Boolean
Dim dbs As Database
Dim rst As Recordset
Dim y As Variant
Dim frm As Form
Dim Rpt As Report
Dim ctl As Control
Dim intCurrentType As Integer
Dim strCurrentName As String

intCurrentType = Application.CurrentObjectType
strCurrentName = Application.CurrentObjectName
On Error Resume Next
Set frm = Screen.ActiveForm
Set ctl = Screen.ActiveControl
'On Error GoTo Err_Err_handler
On Error Resume Next
Err.Raise DataErr
Err_Err_handler:
If CurrentUser() = "Admin" Then
If Err <> 0 Then
MsgBox Err.Number & " " & Err.Description & " " & Err.Source, vbOKOnly
End If
y = Error(Err)
y = AccessError(DataErr)
If AccessError(DataErr) = "" Then
MsgBox Error(DataErr) & ", in frm or rpt " & frm.Name & " in ctl " & ctl.Name, vbOKOnly
Else
MsgBox AccessError(DataErr) & ", in frm or rpt " & frm.Name & " in ctl " & ctl.Name, vbOKOnly
End If
End If
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("ErrorsTable", dbOpenDynaset)
rst.AddNew
rst![Datums] = Now
rst![Jusers] = CurrentUser()
rst![ErrorsNum] = DataErr
rst![AccessErr] = AccessError(DataErr)
rst![VBErr] = Err.Description & "; " & strSqls
rst![ErrSource] = Err.Source & ", in frm or rpt " & frm.Name & " in ctl " & ctl.Name & ", func: " & FuncName
rst.Update
rst.Close
Set dbs = Nothing
End Function