Getting Error 3340 Query ‘ ‘ is corrupt while executing queries DoCmd.RunSQL

by

Summary

This is a known bug caused by the Office updates released on November 12, 2019. The bug affects all versions of Access currently supported by Microsoft (from Access 2010 to 365).

This bug has been fixed.

  • If you use a C2R (Click-to-Run) version of Office, use “Update now”:
    • Access 2010 C2R: Fixed in Build 7243.5000
    • Access 2013 C2R: Fixed in Build 5197.1000
    • Access 2016 C2R: Fixed in Build 12130.20390
    • Access 2019 (v1910): Fixed in Build 12130.20390
    • Access 2019 (Volume License): Fixed in Build 10353.20037
    • Office 365 Monthly Channel: Fixed in Build 12130.20390
    • Office 365 Semi-Annual: Fixed in Build 11328.20480
    • Office 365 Semi-Annual Extended: Fixed in Build 10730.20422
    • Office 365 Semi-Annual Targeted: Fixed in Build 11929.20494
  • If you use an MSI version of Office, install the update matching your Office version. All of these patches have been released on Microsoft Update, so installing all pending Windows Updates should suffice:

Example

Here is a minimal repro example:

  1. Create a new Access database.
  2. Create a new, empty table “Table1” with the default ID field and a Long Integer field “myint”.

  3. Execute the following code in the VBA editor’s Immediate Window:

    CurrentDb.Execute "UPDATE Table1 SET myint = 1 WHERE myint = 1"

Expected result: The statement successfully finishes.

Actual result with one of the buggy updates installed: Run-time error 3340 occurs (“Query ” is corrupt”).

Related links:

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 it possible to pass parameters programmatically in a Microsoft Access update query?
  5. Too few parameters Expected 1, recordset issue
  6. Show “Open File” Dialog
  7. How do I display a messagebox with unicode characters in VBA?
  8. Determining whether an object is a member of a collection in VBA
  9. Distinction between using .text and .value in VBA Access
  10. MS Access VBA Error: Run time error ’70’ Permission Denied
  11. Automatically generating handling of issues
  12. Is it better to use ADO or DAO in Access 2007?
  13. VBA – Folder Picker – set where to start [duplicate]
  14. MS Access: how to compact current database in VBA
  15. How to loop through all controls in a form, including controls in a subform – Access 2007
  16. FileDialog doesn’t work
  17. Working with Unicode file names in VBA (using Dir, FileSystemObject, etc.)
  18. Determine real cause of ODBC failure (error 3146) with ms-access?
  19. Is there an equivalent to Thread.Sleep() in VBA
  20. Exporting MS Access Forms and Class / Modules Recursively to text files?
  21. How to get logged-in user’s name in Access vba? [duplicate]
  22. Pass a parameter into an access report programmatically
  23. finding latest file in a folder and opening it (vba access)
  24. Insert multiple records with a date range in MS Access
  25. MS Access VBA: Sending an email through Outlook [closed]
  26. SendKeys is messing with my NumLock key via VBA code in Access form
  27. Runtime error 287. Sending Emails through Outlook using VBA in Access
  28. How do I use parameters in VBA in the different contexts in Microsoft Access?
  29. Environ Function code samples for VBA
  30. What is the best way to access a serial port from VBA?

Leave a Comment