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
stephantmi54's avatar
stephantmi54
Copper Contributor

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.

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

Share

Resources