Recent content by bustersports

Thank you very much to all of your responses. I greatly appreciate the help you have provided and especially the coaching in doing better coding.

Just one other piece of information, in case it helps. After I hit the 564 records, and close the form, if I try to open anything else, get the message Cannot Open Any More Tables. I have to close Access and re-open it.

Here is the WeightTimesRate code, I know it is not in the format suggested earlier, I do have TGML clicked. Private Sub WeightTimesRate() [Forms]![frmSelectChargeAccessorials].txtExpected = [Forms]![frmSelectChargeAccessorials].txtRate * [Forms]![frmSelectChargeAccessorials].txtWeight If...

MajP, The function calls all make a call to a different rate calculation. Depending on the type of rate being billed, it could be simply a weight times rate or it could be qty times rate, etc. Yes, you are correct, it is a 440 error, not 404.

Forgot to answer your question about 564 records, yes it happens everytime, a 404 Automation Error

Here is the query (in subfrm2) that is being ran after selecting an invoice in subfrm1. SELECT tblRatesCombined.RateIDNumber, tblRatesCombined.LoadIDNumber, tblRatesCombined.Carrier, tblRatesCombined.[Amendment#], tblRatesCombined.EffectiveDate, tblRatesCombined.ExpirationDate...

MajP, I just now saw your response. My confusion is to why it works, even if it is inefficient, on my other form which is doing the exact same thing. The differences between the 2 forms are one is for freight costs, the other is for additional charges added to the invoice, such as waiting...

So, I spoke too soon. The process continues to stop after 654 records, even though there are over 5000 right now. Any other suggestions? Thanks.

Thank you MajP, that did the final trick. Thanks to all for your very quick responses.

MajP, What the code is doing is looking at an invoice in subfrm1, the finds the applicable rate based on a query in subfrm2. There are about a dozen variables in the query, not each has to match or be used. Ex: I query for zip code but only if it is a U.S. domestic shipment, otherwise it...

dhookm, thanks for the feedback on how to submit the question. Skip, I now get a Next without For error message. I copied your code, never used Select Case statements before, does the "For" need to be someplace else? Thanks very much to both of you for very quick response. Dim X As Long...

Thanks for reading and any suggestions you may have. I have a form that will have anywhere from few hundred records, up to about 20,000. For some reason, it will not step through more than 564 records. In troubleshooting, I even put the max records to 500, close the form, and start again. It...

Thanks PHV, works like a charm. Very much appreciated. I would give multiple stars if allowed.

thread700-562429 Hi, I found this thread http://www.tek-tips.com/viewthread.cfm?qid=562429 and it helped me out somewhat. I used the PHV recommended code listed below. Public Function StripNonNumerics(myVar) Dim s As String, i As Long, x As String If Trim(myVar & "") <> "" Then s = ""...

Thanks very much. I changed it to a Data Type of currency and it worked. Looked at this just too long for such an obvious solution. Thanks again.