query

%3CLINGO-SUB%20id%3D%22lingo-sub-1457621%22%20slang%3D%22en-US%22%3Equery%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-1457621%22%20slang%3D%22en-US%22%3E%3CP%3EI%20have%20an%20access%20application%20that%20runs%20fine%20on%20my%20laptop%20but%20on%20my%20desktop%20it%20hangs%20up%20(unresponsive)%20when%20I%20query%20field%20that%20then%20should%20bring%20in%20all%20associated%20data.%26nbsp%3B%20It%20works%20on%20a%20number%20of%20computers%2C%20but%20not%20my%20main%20desktop.%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3EWindows%2010%3C%2FP%3E%3CP%3EMicrosoft%20Office%20365%20Home%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3C%2FLINGO-BODY%3E%3CLINGO-LABS%20id%3D%22lingo-labs-1457621%22%20slang%3D%22en-US%22%3E%3CLINGO-LABEL%3EAccess%3C%2FLINGO-LABEL%3E%3CLINGO-LABEL%3EOffice%20365%3C%2FLINGO-LABEL%3E%3C%2FLINGO-LABS%3E%3CLINGO-SUB%20id%3D%22lingo-sub-1459123%22%20slang%3D%22en-US%22%3ERe%3A%20query%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-1459123%22%20slang%3D%22en-US%22%3E%3CP%3E%3CA%20href%3D%22https%3A%2F%2Ftechcommunity.microsoft.com%2Ft5%2Fuser%2Fviewprofilepage%2Fuser-id%2F697009%22%20target%3D%22_blank%22%3E%40Stephan7754%3C%2FA%3E%26nbsp%3B%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3EIs%20the%20accdb%20located%20on%20the%20same%20computer%20(e.g.%20on%20a%20shared%20network%20folder%2C%20or%20on%20the%20laptop)%20and%20only%20opened%20from%20different%20computers%3F%3CBR%20%2F%3E%3CBR%20%2F%3EDo%20you%20have%20anti-virus%20software%20on%20the%20desktop%20computer%20than%20might%20be%20interfering%3F%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3EAnything%20else%20different%3F%20Windows%2010%20on%20both%20computers%2C%20MS%20Office%20versions%20the%20same%3F%3C%2FP%3E%3C%2FLINGO-BODY%3E%3CLINGO-SUB%20id%3D%22lingo-sub-1461736%22%20slang%3D%22en-US%22%3ERe%3A%20query%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-1461736%22%20slang%3D%22en-US%22%3E%3CP%3EThe%20file%20is%20stored%20in%20a%20one%20drive%20folder%2C%20so%20both%20computers%20access%20it%20from%20the%20same%20place...%26nbsp%3B%20In%20fact%20it%20was%20pushed%20to%20the%20one%20drive%20folder%20from%20the%20desktop%20and%20then%20later%20accessed%20it%20from%20the%20same%20folder%20on%20the%20Surface%20notebook.%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3EBoth%20computers%20are%20using%20only%20Microsoft's%20anti-virus%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3EAll%20versions%20are%20the%20same%2C%20all%20kept%20up%20to%20date....%26nbsp%3B%3C%2FP%3E%3C%2FLINGO-BODY%3E%3CLINGO-SUB%20id%3D%22lingo-sub-1461827%22%20slang%3D%22en-US%22%3ERe%3A%20query%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-1461827%22%20slang%3D%22en-US%22%3E%3CP%3E%3CA%20href%3D%22https%3A%2F%2Ftechcommunity.microsoft.com%2Ft5%2Fuser%2Fviewprofilepage%2Fuser-id%2F697009%22%20target%3D%22_blank%22%3E%40Stephan7754%3C%2FA%3E%26nbsp%3B%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3E%22...%3CSPAN%3EThe%20file%20is%20stored%20in%20a%20one%20drive%20folder%2C...%22%3C%2FSPAN%3E%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3E%3CSPAN%3EJust%20so%20you%20know%2C%20running%20accdbs%20which%20reside%20in%20a%20OneDrive%20folder%20is%20generally%20considered%20a%20high%20risk%20approach.%20You%20ought%20to%20look%20into%20a%20more%20standard%20shared%20location%20on%20your%20network.%3C%2FSPAN%3E%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3E%3CSPAN%3EAlso%2C%20it%20sounds%20like%20this%20is%20not%20a%20split%20accdb%20relational%20database%20application%20because%20you%20refer%20to%20%22it%22%20Another%20unsafe%20approach.%20Sharing%20of%20a%20single%20accdb%20(with%20both%20tables%20and%20interface%20objects%20in%20it)%20is%20another%20high%20risk%20practice%20that%20is%20regularly%20associated%20with%20corruption%20of%20data.%3C%2FSPAN%3E%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3E%3CSPAN%3EI%20suggest%20you%20invest%20some%20time%20in%20learning%20more%20about%20standard%20ways%20to%20design%20and%20deploy%20relational%20database%20applications%2C%20which%20is%20done%20with%20the%20following%20general%20guidelines.%3C%2FSPAN%3E%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3E%3CSPAN%3ESplit%20the%20relational%20database%20application%20into%20two%20files%2C%20one%20containing%20ONLY%20the%20tables%20with%20your%20data%20and%20one%20containing%20the%20remaining%20interface%20and%20logic--forms%2C%20reports%2C%20queries%20and%20VBA.%20The%20data%20file%2C%20usually%20referred%20to%20as%20the%20%22Back%20End%22%2C%20is%20stored%20in%20a%20shared%20folder%20on%20your%20LAN%20(and%20again%2C%20OneDrive%20is%20considered%20an%20unsafe%20location%20for%20Access%20relational%20database%20applications%20in%20production).%20The%20interface%20and%20logic%20file%20is%20usually%20referred%20to%20as%20the%20%22Front%20End%22.%20COPIES%20of%20the%20Front%20End%2C%20or%20FE%2C%20are%20deployed%20onto%20each%20user's%20computer%20and%20linked%20to%20the%20Back%20End%2C%20or%20BE.%20That%20way%20the%20data%20is%20shared%2C%20but%20each%20user%20has%20their%20own%20copy%20of%20the%20interface.%20If%20something%20goes%20wrong%20in%20any%20one%20of%20those%20FEs%2C%20it%20doesn't%20interfere%20with%20others.%3C%2FSPAN%3E%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3E%3CSPAN%3EIt's%20hard%20to%20know%20if%20the%20sharing%20arrangement%20here%20is%20the%20root%20of%20your%20performance%20problem%20(two%20people%20using%20one%20single%20accdb%20on%20OneDrive)%2C%20but%20I%20will%20venture%20to%20suggest%20it's%20quite%20possible%20and%20unsafe.%3C%2FSPAN%3E%3C%2FP%3E%3C%2FLINGO-BODY%3E%3CLINGO-SUB%20id%3D%22lingo-sub-1479764%22%20slang%3D%22en-US%22%3ERe%3A%20query%20Access%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-1479764%22%20slang%3D%22en-US%22%3E%3CP%3E%3CA%20href%3D%22https%3A%2F%2Ftechcommunity.microsoft.com%2Ft5%2Fuser%2Fviewprofilepage%2Fuser-id%2F46682%22%20target%3D%22_blank%22%3E%40George%20Hepworth%3C%2FA%3E%26nbsp%3B%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3EI%20have%20had%20a%20Access%20database%20built%20for%20my%20personal%20and%20family's%20use.%26nbsp%3B%20%26nbsp%3BIt's%20a%20way%20to%20manage%20a%20remodeling%20project.%26nbsp%3B%20My%20issue%20is%20that%20I%20would%20like%20to%20run%20it%20on%20my%20desktop%20but%20it%20fails%20when%20I%20select%20a%20vendor%20on%20the%20invoicing%20screen.%26nbsp%3B%20Access%20just%20crashes.%26nbsp%3B%26nbsp%3B%3C%2FP%3E%3CP%3EIt%20runs%20fine%20on%20my%20old%20Surface%20notebook%2C%20but%20crashes%20on%20my%20new%20Alienware%20desktop.%3C%2FP%3E%3CP%3EBoth%20run%20windows%2010%20and%20Microsoft%20365.%26nbsp%3B%20Both%20are%20at%20the%20same%20build%20level.%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3EI've%20reinstalled%20both%20windows%20and%20365%20on%20the%20desktop%20assuming%20there%20was%20something%20wrong%20as%20received%20from%20Dell%2C%20but%20it%20didn't%20resolve%20the%20problem.%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3EThe%20file%20is%20the%20same%2C%20I've%20copied%20it%20between%20the%20computers%2C%20downloaded%20from%20One%20Drive%2C%20tried%20many%20methods%2C%20it's%20not%20the%20file.%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3E%3CA%20href%3D%22https%3A%2F%2F1drv.ms%2Fu%2Fs!AhEMxc4LabRjitQpDkpar8oUnr63lw%3Fe%3DGCGwCD%22%20target%3D%22_blank%22%20rel%3D%22nofollow%20noopener%20noreferrer%20noopener%20noreferrer%20noopener%20noreferrer%20noopener%20noreferrer%20noopener%20noreferrer%20noopener%20noreferrer%20noopener%20noreferrer%20noopener%20noreferrer%20noopener%20noreferrer%20noopener%20noreferrer%20noopener%20noreferrer%20noopener%20noreferrer%20noopener%20noreferrer%20noopener%20noreferrer%22%3Ehttps%3A%2F%2F1drv.ms%2Fu%2Fs!AhEMxc4LabRjitQpDkpar8oUnr63lw%3Fe%3DGCGwCD%3C%2FA%3E%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3EHere%20is%20a%20link%20to%20the%20file%20if%20you%20want%20to%20try...%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3EThanks%20if%20anyone%20can%20help.%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3C%2FLINGO-BODY%3E%3CLINGO-SUB%20id%3D%22lingo-sub-1479829%22%20slang%3D%22en-US%22%3ERe%3A%20query%20Access%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-1479829%22%20slang%3D%22en-US%22%3E%3CP%3E%3CA%20href%3D%22https%3A%2F%2Ftechcommunity.microsoft.com%2Ft5%2Fuser%2Fviewprofilepage%2Fuser-id%2F702308%22%20target%3D%22_blank%22%3E%40stephantmi54%3C%2FA%3E%26nbsp%3B%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3EThe%20VBA%20in%20the%20mdb%20is%20password%20protected.%20That%20makes%20it%20impossible%20to%20trouble-shoot.%26nbsp%3B%3CBR%20%2F%3E%3CBR%20%2F%3EPerhaps%20you%20can%20provide%20the%20password%3F%20Or%20a%20version%20of%20the%20mdb%20without%20a%20password%3F%3C%2FP%3E%3C%2FLINGO-BODY%3E%3CLINGO-SUB%20id%3D%22lingo-sub-1488410%22%20slang%3D%22en-US%22%3ERe%3A%20query%20Access%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-1488410%22%20slang%3D%22en-US%22%3E%3CP%3E%3CA%20href%3D%22https%3A%2F%2Ftechcommunity.microsoft.com%2Ft5%2Fuser%2Fviewprofilepage%2Fuser-id%2F702308%22%20target%3D%22_blank%22%3E%40stephantmi54%3C%2FA%3E%26nbsp%3BHello%3C%2FP%3E%3CP%3ECan%20you%20give%20some%20info%20on%20how%20exactly%20your%20application%20hangs%20%3F%3C%2FP%3E%3CP%3EI%20opened%20it%20and%20it%20seems%20%22fine%22%20although%20i%20didn't%20examined%20its%20functionality%3C%2FP%3E%3CP%3EFrom%20a%20quick%20glance%20nothing%20out%20of%20ordinary%20except%20a%20little%20too%20much%20code%20which%20i%20am%20unsure%20how%20you%20use...its%20not%20clear%20at%20first%20look%3C%2FP%3E%3CP%3EYour%20references%20looks%20good%20so%20no%20problem%20on%20this...after%20all%20everything%20is%20handled%20by%20macros%20(a%20lot)%3C%2FP%3E%3C%2FLINGO-BODY%3E%3CLINGO-SUB%20id%3D%22lingo-sub-1488764%22%20slang%3D%22en-US%22%3ERe%3A%20query%20Access%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-1488764%22%20slang%3D%22en-US%22%3E%3CP%3E%3CA%20href%3D%22https%3A%2F%2Ftechcommunity.microsoft.com%2Ft5%2Fuser%2Fviewprofilepage%2Fuser-id%2F401564%22%20target%3D%22_blank%22%3E%40tsgiannis%3C%2FA%3E%26nbsp%3B%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3EIt%20hangs%20when%20in%20invoicing%20you%20click%20the%20drop%20down%20to%20select%20a%20vendor...%20the%20app%20hangs%20and%20crashes...%26nbsp%3B%20I%20can%20create%20a%20project%2C%20add%20vendors%2C%20add%20PO's%20but%20when%20attempting%20to%20add%20an%20invoice%2C%20a%20crash...%20again%20only%20on%20my%20desktop.%26nbsp%3B%20On%20my%20old%20notebook%20it%20works%20fine...%26nbsp%3B%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3EI%20did%20check%20and%20found%20that%20the%20desktop%20is%20Windows%20home%2C%20version%202004%20and%20the%20notebook%20is%20windows%20pro%20version%201909...%26nbsp%3B%20The%20desktop%20is%20a%20new%20Alienware%20Ryzen%2010%2C%20the%20notebook%20a%20older%20Surface%20Pro%204.%3C%2FP%3E%3C%2FLINGO-BODY%3E%3CLINGO-SUB%20id%3D%22lingo-sub-1491682%22%20slang%3D%22en-US%22%3ERe%3A%20query%20Access%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-1491682%22%20slang%3D%22en-US%22%3E%3CP%3E%3CA%20href%3D%22https%3A%2F%2Ftechcommunity.microsoft.com%2Ft5%2Fuser%2Fviewprofilepage%2Fuser-id%2F702308%22%20target%3D%22_blank%22%3E%40stephantmi54%3C%2FA%3E%26nbsp%3B%3C%2FP%3E%3CP%3EDo%20you%20have%20any%20events%20on%20that%20combo%20box%3F%26nbsp%3B%20Please%20show%20us%20the%20code%3F%26nbsp%3B%20Perhaps%20try%20a%20different%20approach.%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3EHave%20you%20tried%20a%20Decompile%2FCompact%20and%20Repair%2FCompile%2FCompact%20and%20Repair%3F%3CBR%20%2F%3EHave%20you%20tried%20creating%20a%20new%20blank%20database%20and%20importing%20everything%2C%20then%20compiling%20to%20ensure%20there%20are%20no%20issues%3F%3C%2FP%3E%3C%2FLINGO-BODY%3E%3CLINGO-SUB%20id%3D%22lingo-sub-1491734%22%20slang%3D%22en-US%22%3ERe%3A%20query%20Access%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-1491734%22%20slang%3D%22en-US%22%3E%3CP%3E%3CA%20href%3D%22https%3A%2F%2Ftechcommunity.microsoft.com%2Ft5%2Fuser%2Fviewprofilepage%2Fuser-id%2F702308%22%20target%3D%22_blank%22%3E%40stephantmi54%3C%2FA%3E%26nbsp%3Bi%20think%20i%20saw%20it%3C%2FP%3E%3CP%3EWith%20Rec3%3C%2FP%3E%3CP%3EFor%20i%20%3D%200%20To%20Rec.RecordCount%20-%201%3CBR%20%2F%3E.AddNew%3CBR%20%2F%3ERec3.Fields(%22ID%22)%20%3D%20Rec.Fields(%22ID%22)%3CBR%20%2F%3ERec3.Fields(%22Amount%22)%20%3D%20Rec!Amount%3CBR%20%2F%3ERec3!Remaining%20%3D%20Rec!Amount%20-%20Rec!Invoiced%3CBR%20%2F%3ERec3.Fields(%22Vendor%22)%20%3D%20Rec!Vendor%3CBR%20%2F%3ERec3!Description%20%3D%20Rec!Description%3CBR%20%2F%3ERec3!ID%20%3D%20Rec!ID%3CBR%20%2F%3ERec3!Original%20%3D%201%3CBR%20%2F%3ERec.MoveNext%3C%2FP%3E%3CP%3ENext%20i%3CBR%20%2F%3E.Update%3C%2FP%3E%3CP%3EEnd%20With%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3EThe%20problem%20for%20start%20is%20that%20Rec%20recordset%20is%20empty%20to%20begin....you%20have%20criteria%20which%20you%20don't%20supply%20values%20so%20it%20bombs%20out%3C%2FP%3E%3CP%3EAlso%20.Update%20should%20be%20inside%20the%20loop%20not%20outside...at%20least%20to%20my%20knowledge%20(never%20used%20it%20otherwise)%3C%2FP%3E%3CP%3EAdding%20a%20simple%20if%20.Recordcount%26gt%3B0%20then%20would%20resolve%20it%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3EWith%20Rec3%3C%2FP%3E%3CP%3EIf%20.RecordCount%26gt%3B0%20then%3C%2FP%3E%3CP%3EFor%20i%20%3D%200%20To%20Rec.RecordCount%20-%201%3CBR%20%2F%3E.AddNew%3CBR%20%2F%3ERec3.Fields(%22ID%22)%20%3D%20Rec.Fields(%22ID%22)%3CBR%20%2F%3ERec3.Fields(%22Amount%22)%20%3D%20Rec!Amount%3CBR%20%2F%3ERec3!Remaining%20%3D%20Rec!Amount%20-%20Rec!Invoiced%3CBR%20%2F%3ERec3.Fields(%22Vendor%22)%20%3D%20Rec!Vendor%3CBR%20%2F%3ERec3!Description%20%3D%20Rec!Description%3CBR%20%2F%3ERec3!ID%20%3D%20Rec!ID%3CBR%20%2F%3ERec3!Original%20%3D%201%3CBR%20%2F%3ERec.MoveNext%3C%2FP%3E%3CP%3ENext%20i%3CBR%20%2F%3E.Update%3C%2FP%3E%3CP%3EEnd%20if%3C%2FP%3E%3CP%3EEnd%20With%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3EP.S.%20%3CEM%3Eif%20someone%20can%20tip%20the%20admins%20of%20this%20Community%20that%20%22Insert%2FEdit%20Code%20Sample%22%20is%20not%20working%20would%20be%20much%20obliged%3C%2FEM%3E%3C%2FP%3E%3C%2FLINGO-BODY%3E%3CLINGO-SUB%20id%3D%22lingo-sub-1494782%22%20slang%3D%22en-US%22%3ERe%3A%20query%20Access%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-1494782%22%20slang%3D%22en-US%22%3E%3CP%3E%3CA%20href%3D%22https%3A%2F%2Ftechcommunity.microsoft.com%2Ft5%2Fuser%2Fviewprofilepage%2Fuser-id%2F401564%22%20target%3D%22_blank%22%3E%40tsgiannis%3C%2FA%3E%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3EI%20tried%20this%20plus%20other%20ideas%20and%20I%20still%20fail%20selecting%20the%20vendor%20in%20the%20invoicing%20screen.%26nbsp%3B%20It%20must%20be%20a%20bug%20in%20my%20desktop%20windows%20or%20Access%E2%80%A6%20it%20runs%20on%20all%20other%20PCs%20that%20I%E2%80%99m%20aware%20of%E2%80%A6%20did%20you%20get%20the%20same%20crash%20or%20did%20it%20pull%20up%20a%20vendor%20in%20the%20invoicing%20screen%3F%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3C%2FLINGO-BODY%3E%3CLINGO-SUB%20id%3D%22lingo-sub-1495489%22%20slang%3D%22en-US%22%3ERe%3A%20query%20Access%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-1495489%22%20slang%3D%22en-US%22%3E%3CP%3EI%20didn't%20had%20any%20issues%20after%20the%20%22fix%22...no%20i%20didn't%20had%20crashes%20in%20the%20first%20place...you%20should%20open%20the%20application%20bypassing%20the%20executing%20code%20(SHIFT)%20and%20run%20the%20forms...if%20an%20error%20is%20popped%20just%20do%20what%20is%20needed%20to%20fix%20it%3C%2FP%3E%3C%2FLINGO-BODY%3E
Highlighted
New Contributor

I have an access application that runs fine on my laptop but on my desktop it hangs up (unresponsive) when I query field that then should bring in all associated data.  It works on a number of computers, but not my main desktop.

 

Windows 10

Microsoft Office 365 Home

 

11 Replies
Highlighted

@Stephan7754 

 

Is the accdb located on the same computer (e.g. on a shared network folder, or on the laptop) and only opened from different computers?

Do you have anti-virus software on the desktop computer than might be interfering?

 

Anything else different? Windows 10 on both computers, MS Office versions the same?

Highlighted

The file is stored in a one drive folder, so both computers access it from the same place...  In fact it was pushed to the one drive folder from the desktop and then later accessed it from the same folder on the Surface notebook.

 

Both computers are using only Microsoft's anti-virus

 

All versions are the same, all kept up to date.... 

Highlighted

@Stephan7754 

 

"...The file is stored in a one drive folder,..."

 

Just so you know, running accdbs which reside in a OneDrive folder is generally considered a high risk approach. You ought to look into a more standard shared location on your network.

 

Also, it sounds like this is not a split accdb relational database application because you refer to "it" Another unsafe approach. Sharing of a single accdb (with both tables and interface objects in it) is another high risk practice that is regularly associated with corruption of data.

 

I suggest you invest some time in learning more about standard ways to design and deploy relational database applications, which is done with the following general guidelines.

 

Split the relational database application into two files, one containing ONLY the tables with your data and one containing the remaining interface and logic--forms, reports, queries and VBA. The data file, usually referred to as the "Back End", is stored in a shared folder on your LAN (and again, OneDrive is considered an unsafe location for Access relational database applications in production). The interface and logic file is usually referred to as the "Front End". COPIES of the Front End, or FE, are deployed onto each user's computer and linked to the Back End, or BE. That way the data is shared, but each user has their own copy of the interface. If something goes wrong in any one of those FEs, it doesn't interfere with others.

 

It's hard to know if the sharing arrangement here is the root of your performance problem (two people using one single accdb on OneDrive), but I will venture to suggest it's quite possible and unsafe.

Highlighted

@George Hepworth 

 

I have had a Access database built for my personal and family's use.   It's a way to manage a remodeling project.  My issue is that I would like to run it on my desktop but it fails when I select a vendor on the invoicing screen.  Access just crashes.  

It runs fine on my old Surface notebook, but crashes on my new Alienware desktop.

Both run windows 10 and Microsoft 365.  Both are at the same build level.

 

I've reinstalled both windows and 365 on the desktop assuming there was something wrong as received from Dell, but it didn't resolve the problem.

 

The file is the same, I've copied it between the computers, downloaded from One Drive, tried many methods, it's not the file.

 

https://1drv.ms/u/s!AhEMxc4LabRjitQpDkpar8oUnr63lw?e=GCGwCD

 

Here is a link to the file if you want to try...

 

Thanks if anyone can help.

 

 

Highlighted

@stephantmi54 

 

The VBA in the mdb is password protected. That makes it impossible to trouble-shoot. 

Perhaps you can provide the password? Or a version of the mdb without a password?

Highlighted

@stephantmi54 Hello

Can you give some info on how exactly your application hangs ?

I opened it and it seems "fine" although i didn't examined its functionality

From a quick glance nothing out of ordinary except a little too much code which i am unsure how you use...its not clear at first look

Your references looks good so no problem on this...after all everything is handled by macros (a lot)

Highlighted

@tsgiannis 

 

It hangs when in invoicing you click the drop down to select a vendor... the app hangs and crashes...  I can create a project, add vendors, add PO's but when attempting to add an invoice, a crash... again only on my desktop.  On my old notebook it works fine... 

 

I did check and found that the desktop is Windows home, version 2004 and the notebook is windows pro version 1909...  The desktop is a new Alienware Ryzen 10, the notebook a older Surface Pro 4.

Highlighted

@stephantmi54 

Do you have any events on that combo box?  Please show us the code?  Perhaps try a different approach.

 

Have you tried a Decompile/Compact and Repair/Compile/Compact and Repair?
Have you tried creating a new blank database and importing everything, then compiling to ensure there are no issues?

Highlighted

@stephantmi54 i think i saw it

With Rec3

For i = 0 To Rec.RecordCount - 1
.AddNew
Rec3.Fields("ID") = Rec.Fields("ID")
Rec3.Fields("Amount") = Rec!Amount
Rec3!Remaining = Rec!Amount - Rec!Invoiced
Rec3.Fields("Vendor") = Rec!Vendor
Rec3!Description = Rec!Description
Rec3!ID = Rec!ID
Rec3!Original = 1
Rec.MoveNext

Next i
.Update

End With

 

The problem for start is that Rec recordset is empty to begin....you have criteria which you don't supply values so it bombs out

Also .Update should be inside the loop not outside...at least to my knowledge (never used it otherwise)

Adding a simple if .Recordcount>0 then would resolve it

 

 

With Rec3

If .RecordCount>0 then

For i = 0 To Rec.RecordCount - 1
.AddNew
Rec3.Fields("ID") = Rec.Fields("ID")
Rec3.Fields("Amount") = Rec!Amount
Rec3!Remaining = Rec!Amount - Rec!Invoiced
Rec3.Fields("Vendor") = Rec!Vendor
Rec3!Description = Rec!Description
Rec3!ID = Rec!ID
Rec3!Original = 1
Rec.MoveNext

Next i
.Update

End if

End With

 

P.S. if someone can tip the admins of this Community that "Insert/Edit Code Sample" is not working would be much obliged

Highlighted

@tsgiannis

 

I tried this plus other ideas and I still fail selecting the vendor in the invoicing screen.  It must be a bug in my desktop windows or Access… it runs on all other PCs that I’m aware of… did you get the same crash or did it pull up a vendor in the invoicing screen?

 

 

 

Highlighted

I didn't had any issues after the "fix"...no i didn't had crashes in the first place...you should open the application bypassing the executing code (SHIFT) and run the forms...if an error is popped just do what is needed to fix it