the table 'IceCreams' would be renamed to 'IceCreams_Table'. lauxjpn/CurruptQueryAccessWorkaroundĪddWorkaroundForCorruptedQueryIssue() will add the suffix '_Table' to all non-system tables, e.g. You can find the latest code on my GitHub repository: Private Function EndsWith(str As String, ending As String) As BooleanĮndsWith = (Right(Trim(UCase(str)), endingLen) = UCase(ending)) 'NewTableName' & vbTab & '' & vbTab & '(Query deleted)' QueryDefs.Delete(originalTableName)ĭebug.Print 'OldTableName' & vbTab & '' & vbTab & _

OriginalTableName = Left(tableDef.Name, Len(tableDef.Name) - Len(WorkaroundTableSuffix))Ĭall. If EndsWith(tableDef.Name, WorkaroundTableSuffix) And Not isSystemTable Then

CreateQueryDef(originalTableName, 'select * from ')ĭebug.Print 'OldTableName/NewQueryName' & vbTab & '' & vbTab & _ TableDef.Name = tableDef.Name & WorkaroundTableSuffixĬall. If Not EndsWith(tableDef.Name, WorkaroundTableSuffix) And Not isSystemTable Then IsSystemTable = tableDef.Attributes And dbSystemObject Public Sub AddWorkaroundForCorruptedQueryIssue() Private Const WorkaroundTableSuffix As String = '_Table' Use AddWorkaroundForCorruptedQueryIssue() to add the workaround and RemoveWorkaroundForCorruptedQueryIssue() to remove it at any time. As a precaution, backup your database first.

To download an update, click the corresponding Knowledge Base article in the following list, and then go to the 'How to download and install the update' section of the article.Use the following module to automatically implement Microsofts suggested workaround (using a query instead of a table). We recommend that you install all updates that apply to you. These updates are intended to help our customers keep their computers up-to-date. Microsoft released the following security and nonsecurity updates for Office in November 2019.

Kb4484119