Determine real cause of ODBC failure (error 3146) with ms-access?

by

Use the DbEngine.Errors collection. 

Sub Update_Temp()
On Error GoTo ErrorTrap
    ' Execute connect code at this point
Exit_errortrap:
    Exit Sub
ErrorTrap:
    Dim myerror As DAO.Error
    For Each myerror In DBEngine.Errors
        With myerror
            If .Number <> 3146 Then
                MsgBox .Description
            End If
        End With
    Next
    Resume Exit_errortrap

End Sub

To enable this code, make sure in VBA settings that error handling is turned on.

More Related Contents:

  1. ms access vba code for update records through form
  2. How to add default signature in Outlook
  3. Combine rows / concatenate rows
  4. Is there a need to set Objects to Nothing
  5. Is it possible to pass parameters programmatically in a Microsoft Access update query?
  6. Too few parameters Expected 1, recordset issue
  7. Show “Open File” Dialog
  8. VBA : save a file with UTF-8 without BOM
  9. How do I display a messagebox with unicode characters in VBA?
  10. Determining whether an object is a member of a collection in VBA
  11. Distinction between using .text and .value in VBA Access
  12. MS Access VBA Error: Run time error ’70’ Permission Denied
  13. Automatically generating handling of issues
  14. Is it better to use ADO or DAO in Access 2007?
  15. VBA – Folder Picker – set where to start [duplicate]
  16. Getting AD Details based on username
  17. VBScript – How to make program wait until process has finished?
  18. MS Access: how to compact current database in VBA
  19. How to loop through all controls in a form, including controls in a subform – Access 2007
  20. How to increase performance for bulk INSERTs to ODBC linked tables in Access?
  21. FileDialog doesn’t work
  22. Is there an equivalent to Thread.Sleep() in VBA
  23. Exporting MS Access Forms and Class / Modules Recursively to text files?
  24. VBScript to open a dialog to select a filepath
  25. How to get logged-in user’s name in Access vba? [duplicate]
  26. Pass a parameter into an access report programmatically
  27. finding latest file in a folder and opening it (vba access)
  28. Insert multiple records with a date range in MS Access
  29. MS Access VBA: Sending an email through Outlook [closed]
  30. SendKeys is messing with my NumLock key via VBA code in Access form

Leave a Comment