Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
Dim db As DAO.Database Dim RcdSet As DAO.Recordset Dim sqlErrors As String Set db = CurrentDb() sqlErrors = "Select * From tblErrorLog" Set RcdSet = db.OpenRecordset(sqlErrors, dbOpenDynaset) With RcdSet .AddNew !ErrorNumber = ErrEx.Number !ErrorDescription = ErrEx.Description !HostUserID = gintHostUserID ErrEx.Callstack.FirstLevel Do !CallStackInfo = !CallStackInfo & _ ErrEx.Callstack.ProjectName & "." & _ ErrEx.Callstack.ModuleName & "." & _ ErrEx.Callstack.ProcedureName & ", " & _ "#" & ErrEx.Callstack.LineNumber & ", " & _ ErrEx.Callstack.LineCode & vbCrLf & _ ErrEx.Callstack.VariablesInspector.DumpAll & vbCrLf Loop While ErrEx.Callstack.NextLevel .Update .Close End With Set RcdSet = Nothing
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|Many to Many From without subform||11||43|
|Convert string date and select older than 30 days from today||2||41|
|Linking Master Child Fields||2||26|
|access query - field that substitutes characters||1||24|