Home

Access error: "Query is corrupt"

%3CLINGO-SUB%20id%3D%22lingo-sub-1009636%22%20slang%3D%22en-US%22%3EAccess%20error%3A%20%22Query%20is%20corrupt%22%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-1009636%22%20slang%3D%22en-US%22%3E%3CP%3EHi!%3C%2FP%3E%3CP%3EWith%20the%20new%20update%20in%20Office%20365%20I%20have%20this%20problem%20with%20update%20queries.%20They%20only%20work%20for%20queries%20of%20the%20table%2C%20for%20the%20actual%20table%20it%20can't%20update%20it%2C%20because%20it%20says%20%22query%20is%20corrupt%22.%20Will%20Microsoft%20fix%20this%20or%20this%20'ill%20be%20the%20new%20norm%20for%20that%3F%3C%2FP%3E%3CP%3EIf%20that's%20the%20case%2C%20I'll%20have%20to%20change%20it%20in%20a%20lot%20of%20programs.%3C%2FP%3E%3CP%3EGreetings!%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3C%2FLINGO-BODY%3E%3CLINGO-LABS%20id%3D%22lingo-labs-1009636%22%20slang%3D%22en-US%22%3E%3CLINGO-LABEL%3EAccess%202016%3C%2FLINGO-LABEL%3E%3C%2FLINGO-LABS%3E%3CLINGO-SUB%20id%3D%22lingo-sub-1012814%22%20slang%3D%22en-US%22%3ERe%3A%20Access%20error%3A%20%22Query%20is%20corrupt%22%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-1012814%22%20slang%3D%22en-US%22%3E%3CP%3E%3CA%20href%3D%22https%3A%2F%2Ftechcommunity.microsoft.com%2Ft5%2Fuser%2Fviewprofilepage%2Fuser-id%2F458169%22%20target%3D%22_blank%22%3E%40hubervin%3C%2FA%3E%26nbsp%3B%3C%2FP%3E%3CP%3EThis%20is%20a%20new%20bug%20introduced%20by%20recent%20security%20updates%20that%20were%20released%20Nov%2012th.%26nbsp%3B%20You%20can%20read%20up%20on%20the%20entire%20subject%20and%20solution%20at%20%3CA%20href%3D%22http%3A%2F%2Fwww.devhut.net%2F2019%2F11%2F14%2Faccess-bug-error-3340-query-is-corrupt%2F%22%20target%3D%22_blank%22%20rel%3D%22noopener%20nofollow%20noopener%20noreferrer%20noopener%20noreferrer%20noopener%20noreferrer%20noopener%20noreferrer%20noopener%20noreferrer%20noopener%20noreferrer%22%3Ehttp%3A%2F%2Fwww.devhut.net%2F2019%2F11%2F14%2Faccess-bug-error-3340-query-is-corrupt%2F%3C%2FA%3E%3C%2FP%3E%3C%2FLINGO-BODY%3E%3CLINGO-SUB%20id%3D%22lingo-sub-1032553%22%20slang%3D%22en-US%22%3ERe%3A%20Access%20error%3A%20%22Query%20is%20corrupt%22%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-1032553%22%20slang%3D%22en-US%22%3E%3CP%3E%3CA%20href%3D%22https%3A%2F%2Ftechcommunity.microsoft.com%2Ft5%2Fuser%2Fviewprofilepage%2Fuser-id%2F458169%22%20target%3D%22_blank%22%3E%40hubervin%3C%2FA%3E%26nbsp%3B%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3EI%20have%20the%20same%20problem%20here!!%3C%2FP%3E%3CP%3EI%20think%20they%20messed%20up%20with%20the%20last%20update%20!%3C%2FP%3E%3CP%3EHopefully%20we%20can%20find%20a%20solution%20soon.%3C%2FP%3E%3CP%3EI%20use%20a%20lot%20of%20update%20queries%20in%20my%20system.%3C%2FP%3E%3C%2FLINGO-BODY%3E%3CLINGO-SUB%20id%3D%22lingo-sub-1110500%22%20slang%3D%22en-US%22%3ERe%3A%20Access%20error%3A%20%22Query%20is%20corrupt%22%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-1110500%22%20slang%3D%22en-US%22%3E%3CP%3ESame%20here.%26nbsp%3B%20I%20don't%20have%20authority%20to%20update%2Funinstall%20updates%20on%20my%20user%20PCs.%26nbsp%3B%20Offending%20code%3A%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3E'%20***%20Process%20User%20privileges%20***%3CBR%20%2F%3ESet%20rstTable%20%3D%20New%20ADODB.Recordset%3CBR%20%2F%3E%3CBR%20%2F%3EWith%20rstTable%3CBR%20%2F%3E%3CBR%20%2F%3ESet%20.ActiveConnection%20%3D%20cn%3CBR%20%2F%3E.Source%20%3D%20%22Select%20*%20from%20z_qry_Punch_IO%22%3CBR%20%2F%3E.LockType%20%3D%20adLockOptimistic%3CBR%20%2F%3E.CursorType%20%3D%20adOpenKeyset%3CBR%20%2F%3E.Open%3CBR%20%2F%3E%3CBR%20%2F%3EGlobal_USER_ID%20%3D%20getUserName()%20'%20Make%20sure%20we%20capture%20this%20before%20processing%3CBR%20%2F%3E%3CBR%20%2F%3EIf%20Not%20.BOF%20Then%3CBR%20%2F%3E%3CBR%20%2F%3E.MoveFirst%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3EIf%20!ad_id%20%26lt%3B%26gt%3B%20Global_USER_ID%20Then%20.Find%20%22%5BAD_ID%5D%3D'%22%20%26amp%3B%20Global_USER_ID%20%26amp%3B%20%22'%22%3CBR%20%2F%3E%3CBR%20%2F%3EEnd%20If%3CBR%20%2F%3E%3CBR%20%2F%3EIf%20Not%20.EOF%20Then%3CBR%20%2F%3E!Punch_Out%20%3D%20Now()%3CBR%20%2F%3EElseIf%20.EOF%20Then%3CBR%20%2F%3EMsgBox%20%22You%20are%20not%20registered%20in%20the%20database.%20Timer%20events%20are%20disabled.%20Contact%20your%20administrator%20for%20details.%22%2C%20vbOKOnly%2C%20%22UserID%20not%20found%22%3CBR%20%2F%3EGoTo%20Lost_ID%3CBR%20%2F%3EEnd%20If%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3E%3CSTRONG%3E%3CFONT%20color%3D%22%23FF0000%22%3E.Update%20'%20***%20CORRUPTION%20NOW%20REPORTED%20***%3C%2FFONT%3E%3C%2FSTRONG%3E%3CBR%20%2F%3E%3CBR%20%2F%3EEnd%20With%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3C%2FLINGO-BODY%3E%3CLINGO-SUB%20id%3D%22lingo-sub-1042438%22%20slang%3D%22en-US%22%3ERe%3A%20Access%20error%3A%20%22Query%20is%20corrupt%22%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-1042438%22%20slang%3D%22en-US%22%3E%3CP%3E%3CA%20href%3D%22https%3A%2F%2Ftechcommunity.microsoft.com%2Ft5%2Fuser%2Fviewprofilepage%2Fuser-id%2F458169%22%20target%3D%22_blank%22%3E%40hubervin%3C%2FA%3E%26nbsp%3B%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3EIt's%20very%20hard%20to%20be%20positive%20when%20I'm%20spending%204%20hours%20a%20week%20dealing%20with%20this%20issue.%26nbsp%3B%20Microsoft%20could%20at%20the%20very%20least%20stop%20sending%20out%20this%20bogus%20update.%26nbsp%3B%20I'm%20not%20sure%20what%20this%20update%20%22fixed%22%20but%20the%20havoc%20this%20has%20caused%2C%20I%20think%20it's%20nearly%20as%20bad%20as%20a%20virus%20would%20have%20been%20in%20the%20first%20place!%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3EVery%20disappointed%20in%20Microsoft's%20reaction%20to%20this%20problem.%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3E-Brian%20P.%3C%2FP%3E%3C%2FLINGO-BODY%3E
Highlighted
Occasional Visitor

Hi!

With the new update in Office 365 I have this problem with update queries. They only work for queries of the table, for the actual table it can't update it, because it says "query is corrupt". Will Microsoft fix this or this 'ill be the new norm for that?

If that's the case, I'll have to change it in a lot of programs.

Greetings!

 

4 Replies
Highlighted

@hubervin 

This is a new bug introduced by recent security updates that were released Nov 12th.  You can read up on the entire subject and solution at http://www.devhut.net/2019/11/14/access-bug-error-3340-query-is-corrupt/

Highlighted

@hubervin 

 

I have the same problem here!!

I think they messed up with the last update !

Hopefully we can find a solution soon.

I use a lot of update queries in my system.

Highlighted

@hubervin 

 

It's very hard to be positive when I'm spending 4 hours a week dealing with this issue.  Microsoft could at the very least stop sending out this bogus update.  I'm not sure what this update "fixed" but the havoc this has caused, I think it's nearly as bad as a virus would have been in the first place!

 

Very disappointed in Microsoft's reaction to this problem.

 

-Brian P.

Highlighted

Same here.  I don't have authority to update/uninstall updates on my user PCs.  Offending code:

 

' *** Process User privileges ***
Set rstTable = New ADODB.Recordset

With rstTable

Set .ActiveConnection = cn
.Source = "Select * from z_qry_Punch_IO"
.LockType = adLockOptimistic
.CursorType = adOpenKeyset
.Open

Global_USER_ID = getUserName() ' Make sure we capture this before processing

If Not .BOF Then

.MoveFirst

 

If !ad_id <> Global_USER_ID Then .Find "[AD_ID]='" & Global_USER_ID & "'"

End If

If Not .EOF Then
!Punch_Out = Now()
ElseIf .EOF Then
MsgBox "You are not registered in the database. Timer events are disabled. Contact your administrator for details.", vbOKOnly, "UserID not found"
GoTo Lost_ID
End If

 

.Update ' *** CORRUPTION NOW REPORTED ***

End With