I'm using Access 2000 (and also 2003 with same result) in a Windows XP Professional environment on a peer-to-peer network. Files in this system are relatively small. There are about 1,200 rows in the item/warehouse table, about 200 order headers, and about 2000 order detail rows.
I have a form with a sub-form in the detail of the main form. The sub-form is a continuous line display (not single item); In the heading I am getting a customer's order heading information, and in the subform I am listing all of the line items for that order.
Each line in the subform has a text box for inventory item number, quantity ordered, quantity shipped, on hand quantity, and on order quantity (all open orders combined).
If the order quantity for that item exceeds the (on hand - on order) then there are not enough available for that order and I use conditional formatting to turn the background of the on hand text box yellow.
The problem is, sometimes this form is VERY slow to complete. The on hand and on order boxes remain empty, filling down the screen slowly. And oddly, if you do an ALT-TAB to switch out of the screen, and ALT-TAB back immediately, then suddenly all the text boxes are filled in. Or, if you wave your mouse over an empty text box, the value for that text box will appear.
The on-hand quantity is not a single field, there can be on hand in more than one warehouse.Here is the code to return the on hand value for an item -
-
Public Function CalcOnHand(ItemNbr As String) As Long
-
Dim db As Database
-
Dim rs As DAO.Recordset
-
Dim qd As QueryDef
-
Dim Sql As String
-
Dim strFind As String
-
-
Dim Onhandqty, Counter As Integer
-
Counter = 0
-
-
Set db = CurrentDb
-
-
Set rs = db.OpenRecordset("ItemWarehouse")
-
Onhandqty = 0
-
On Error GoTo Loopend
-
rs.MoveFirst
-
-
strFind = "Item='" & CStr(ItemNbr) & "'"
-
rs.FindFirst (strFind) ' first occurrence of this item in itemwh file
-
-
LoopItems:
-
While (Not (rs.EOF))
-
If rs.NoMatch Then GoTo Loopend
-
If rs![Item] <> ItemNbr Then GoTo NextItem
-
' If rs![Warehouse] <> "9301" And rs![Warehouse] <> "3405" Then GoTo NextItem
-
If rs![Warehouse] = "PCR" Then GoTo NextItem
-
Counter = Counter + 1
-
Onhandqty = Onhandqty + rs![OnHand]
-
If Counter > 1 Then GoTo Loopend 'don't bother looking after we found both warehouses
-
NextItem:
-
rs.FindNext (strFind)
-
-
'rs.MoveNext
-
Wend
-
'GoTo LoopItems
-
-
Loopend:
-
CalcOnHand = Onhandqty
-
rs.Close
-
Set rs = Nothing
-
-
End Function
The code to get the on order quantity comes from a query, and it is like this -
SELECT tbl_Orders.OHCustomerID, tbl_Orders.OHOrderDate, tbl_Orders.OHOrderNbr, tbl_Orders.OHPONumber, tbl_Orders.OHCasesPerPallet, tbl_Orders.OHMemo, tbl_Orders.OHStatus, tbl_Orders.OHCarrier, tbl_Orders.OHTotalWeight, tbl_Orders.OHPalletCount, tbl_Orders.OHShipDate, tbl_Orders.OHBOL, tbl_Orders.OHInvoice, tbl_Orders.OHTerms, tbl_Orders.OHCHSequence, tbl_Orders.OHCases, tbl_Orders.OHCartons, tbl_Orders.OHCigarettes, tbl_Orders.OHDiscPct, tbl_Orders.OHDueDate, tbl_Orders.OHMessage, tbl_Orders.OHFreightCharge, tbl_Orders.OHMiscCharge
-
FROM tbl_Orders
-
ORDER BY tbl_Orders.OHOrderDate DESC , tbl_Orders.OHOrderNbr DESC;
-
What's going on and how to I correct it?
Thanks,
Jim
19 3268
Try this instead: -
-
Public Function CalcOnHand(ItemNbr As String) As Long
-
Dim db As Database
-
Dim rs As DAO.Recordset
-
Dim Onhandqty As Integer
-
-
Onhandqty = 0
-
-
Set db = CurrentDb
-
Set rs = db.OpenRecordset("ItemWarehouse")
-
-
rs.MoveFirst
-
Do until rs.EOF
-
If rs!Item = CStr(ItemNbr) Then
-
If rs![Warehouse = "9301" Then
-
If rs![Warehouse] = "3405" Then
-
If rs![Warehouse] <> "PCR" Then
-
Onhandqty = Onhandqty + rs![OnHand]
-
rs.MoveLast
-
End If
-
End If
-
End If
-
End If
-
rs.MoveNext
-
Loop
-
-
Loopend:
-
CalcOnHand = Onhandqty
-
rs.Close
-
Set rs = Nothing
-
Set db = Nothing
-
-
End Function
-
-
Thanks for the reply, MM. I've learned a lot by reading your responses to a lot of questions here. I've very glad there are some folks with so much knowledge and willingness to share it.
In this case, it appears you're suggesting I change to a sequential read through the ItemWarehouse table. Seems to me that will make it less fast. But I'll give it a shot, I don't have any better ideas.
Thanks,
Jim
Hi Jim
Because of the way the Jet Engine works this is not always the case.
With the code I have given you the sequential logic means that the search will jump to the next set of records once the required result is found.
If a condition is untrue it will automatically jump to the next record.
I think you'll be surprised at how fast it will run.
Thanks for the reply, MM. I've learned a lot by reading your responses to a lot of questions here. I've very glad there are some folks with so much knowledge and willingness to share it.
In this case, it appears you're suggesting I change to a sequential read through the ItemWarehouse table. Seems to me that will make it less fast. But I'll give it a shot, I don't have any better ideas.
Thanks,
Jim
MM,
Thanks, but the change you suggested did not make any difference. It's really odd, they way the text boxes in the "on hand" column will fill in if you wave the mouse over them. And if you Alt/Tab to another window, and Alt/Tab back immediately, they're all filled in.
I'm going to try to get the on hand value from a query and link the text box to the query result.
Jim
I have changed to get the on hand quantity from a query, but still I have this problem.
Here's a little more information. Hoping I can give enough info so that somebody will recognize what is going on here.
My form is an order entry form. The heading of the main form has customer data, the subform has order details. When I launch the form, the first customer appears and his most recent order. Usually orders consist of at least 4 or 5 line items. Each line item shows the item number, order quantity, ship quantity, and the quantity on hand for that item. Sometimes the first line item has the on hand value filled in, sometimes not, but the other lines always have a blank in the on hand text box. Eventually, slowly, they fill in. (All the other text boxes on all the lines filled in immediately upon entering the form, as is normal.)
You can go to other customers, other orders, and the problem persists.
If you wave your mouse over the top most blank text box, the quantity on order will fill in. If you wave at a lower blank text box, nothing happens. If you Alt/Tab out of that screen, and immediately Alt/Tab back, all the blanks fill instantly.
Whether you fill in the boxes by doing an alt/tab, or by progressively moving down the screen with your mouse, after all the boxes have been filled in for any one order, there is no longer any problem. You can navigate to other customers and other orders, and everything fills in very quickly.
Any ideas?
Thanks,
Jim
Open the subform on its own in design view.
Go to the OnHand textbox and open the properties window.
Check the data tab and look at the control source and default value for this control. What are they set to.
Are there filter values set?
Then go to the Event tab and check if there are macros or event procedures running on any events, if so what are they?
BTW
Where and when are you calling the CalcOnHand function?
MM,
No events, no default and no filters. The countrol source for the text box is
=CalcOnHand([OdItem])
where OdItem is the Inventory Item number for the line item.
Jim
MM,
No events, no default and no filters. The countrol source for the text box is
=CalcOnHand([OdItem])
where OdItem is the Inventory Item number for the line item.
Jim
OK take that value out of there and leave it blank
Then in the OnLoad Event of the form -
-
Private Form_OnLoad()
-
-
Me.OnHand=CalcOnHand(Me.OdItem)
-
-
End Sub
-
-
OK take that value out of there and leave it blank
Then in the OnLoad Event of the form
I mean the subform on load event by the way.
Thanks, MM, I can't wait to try that. Seems then that the entire recordset is loaded and each related text box calculate at the start of the form. What does that mean about updates to the data during processing ... if the user enters this order entry form at the start of the business day, and stays in it all day, does the form data need refreshed in order for the correct on hand quantities to show?
More specifically, when this screen is used to ship some units, will the form show the new on hand amount correctly? Or rather, what steps have to be taken to insure that it does show the right quantity on hand?
Thanks,
Jim
If any changes take place to data that will have an effect on the calculation of the OnHand control then it will have to be retriggered.
Are we talking about changes in the same form or elsewhere in the database.
Changes to on hand could be made from this form and from other activities by other users performing the same process, or other processes.
If any changes take place to data that will have an effect on the calculation of the OnHand control then it will have to be retriggered.
Are we talking about changes in the same form or elsewhere in the database.
Changes to on hand could be made from this form and from other activities by other users performing the same process, or other processes.
Is OnHand a field bound to any table or just a calculation for display purposes.
On hand is calculated. There can be multiple records for one item in the item/warehouse file. An item in stock at 3 warehouses will have 3 records to be totaled to get the overall on hand value. I guess that could become bound to a query item.
Jim
Is OnHand a field bound to any table or just a calculation for display purposes.
The best thing I can suggest is that you put a command button beside On Hand that will allow the user to prompt it to update.
Private Sub cmdUpdate()
Me.OnHand=CalcOnHand(Me.OdItem)
End If
Thanks a lot. If I do that, is it going to, at the moment the button is pressed, calculate every onhand textbox for every order in the system? Can this be done selectively? Can I make sure it only does the calculation for the particular order shown on the screen?
Seems to me there's a lot I don't know about events and the filling of text boxes on a form. Can you suggest a good reference on the web?
Thanks,
Jim
The best thing I can suggest is that you put a command button beside On Hand that will allow the user to prompt it to update.
Private Sub cmdUpdate()
Me.OnHand=CalcOnHand(Me.OdItem)
End If
PEB 1,418
Expert 1GB
Hi,
In fact, there is also the problem slow open and close of forms rather than they aren't with subforms and tabs and subordinated controls
The problem in those cases is that Access need to save the changes on the forms and on the respective recordsources...
You can speed a lot your forms if you leave their recordsource property empty when closing and opening the form
When loading the form you assign the recordset using on load property event procedure in the form properties
This is good to do also for all comboboxes - on open and close the reocordset sources to be empty... This will speeds up the open and close of your forms!
Best regards
the Me. means will only refer to the current record
Sign in to post your reply or Sign up for a free account.
Similar topics
by: Neil |
last post by:
I previously posted re. this, but thought I'd try again with a summary of
facts.
I have an Access 2000 MDB with a SQL Server 7 back end. There is a view that
is linked to the database via ODBC...
|
by: Steve Hall |
last post by:
Dear All
We have a SQL Server 2000 BE on a Win 2K Server box. Access 2000
clients, running on Win 2000 Pro.
Front end design is fairly straight forward - 5 different "record
types" (split...
|
by: Hernán Freschi |
last post by:
Hi all, I'm a completely newbie here. I'm having a problem. I've
programmed before in VB6 and such, and all the programs I've made run
fast. But .NET programs run very slowly. I use C# (for no...
|
by: Andy_Khosravi |
last post by:
My problem:
I'm having trouble with a query taking much too long to run; a query
without any criteria evaluating only 650 records takes over 300 seconds
to run (over the network. On local drive...
|
by: Drwtsn32 |
last post by:
Hi Guys,
I'm ripping off all of my hair soon ;-)
I'm trying to do a very simple C# form accessible from COM client like
VBScript.
I would like to display the form and update the form during...
|
by: Ant |
last post by:
Hi,
I'm using the text changed event of as text box to display a datagrid of
search results dynamically. (The classic 'gets more specific the more you
type in' scenario ).
I find when I first...
|
by: Andy_Khosravi |
last post by:
I'm having a problem trying to optimize the performance of one of my
A97 databases. I have very slow record navigation after a change I made
to the table structure, and I'm not sure how best to...
|
by: Michael |
last post by:
I work with a highly programmed Access
database (some 15,000 lines of VBA code, much of it automating data
entry on forms -- and believe me, it's very tight code). In Access
97,
2000, 2002, and...
|
by: eighthman11 |
last post by:
using Access 2003 and sql server version 8.0
Hey everyone. Created a text box where the user types in an Inventory
number and it takes them to that inventory number on the contimuous
form. The...
|
by: BarryA |
last post by:
What are the essential steps and strategies outlined in the Data Structures and Algorithms (DSA) roadmap for aspiring data scientists? How can individuals effectively utilize this roadmap to progress...
|
by: nemocccc |
last post by:
hello, everyone, I want to develop a software for my android phone for daily needs, any suggestions?
|
by: Hystou |
last post by:
There are some requirements for setting up RAID:
1. The motherboard and BIOS support RAID configuration.
2. The motherboard has 2 or more available SATA protocol SSD/HDD slots (including MSATA, M.2...
|
by: marktang |
last post by:
ONU (Optical Network Unit) is one of the key components for providing high-speed Internet services. Its primary function is to act as an endpoint device located at the user's premises. However,...
|
by: Hystou |
last post by:
Most computers default to English, but sometimes we require a different language, especially when relocating. Forgot to request a specific language before your computer shipped? No problem! You can...
|
by: Hystou |
last post by:
Overview:
Windows 11 and 10 have less user interface control over operating system update behaviour than previous versions of Windows. In Windows 11 and 10, there is no way to turn off the Windows...
|
by: tracyyun |
last post by:
Dear forum friends,
With the development of smart home technology, a variety of wireless communication protocols have appeared on the market, such as Zigbee, Z-Wave, Wi-Fi, Bluetooth, etc. Each...
|
by: isladogs |
last post by:
The next Access Europe User Group meeting will be on Wednesday 1 May 2024 starting at 18:00 UK time (6PM UTC+1) and finishing by 19:30 (7.30PM).
In this session, we are pleased to welcome a new...
|
by: conductexam |
last post by:
I have .net C# application in which I am extracting data from word file and save it in database particularly. To store word all data as it is I am converting the whole word file firstly in HTML and...
| |