Forum Discussion

Stephan7754's avatar
Stephan7754
Copper Contributor
Jun 11, 2020

query

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 comput...
access
office 365
tsgiannis's avatar
tsgiannis
Iron Contributor

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)

stephantmi54's avatar
stephantmi54
Copper Contributor
Jun 25, 2020

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.

  • Daniel_Pineault's avatar
    Daniel_Pineault
    MVP
    Jun 26, 2020

    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?

  • tsgiannis's avatar
    tsgiannis
    Iron Contributor
    Jun 26, 2020

    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

    • stephantmi54's avatar
      stephantmi54
      Copper Contributor
      Jun 28, 2020

      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?

       

       

       

      • tsgiannis's avatar
        tsgiannis
        Iron Contributor
        Jun 29, 2020

        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

Resources