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.
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...
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...
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 = ""...
Hi,
Thanks for looking at my question.
I am importing a spreadsheet into my database that is all text. The import is checked for accuracy and field requirements (not every instance requires the same fields being completed). Part of the check is to verify the total dollar amount is correct in...
xlbo,
Two questions.
1. First, using application.TransitionNavigKeys = False, can it be limited to only certain fields as all other fields, excluding these 2 date fields, are text and must be read as such (or will this not be a problem)?
2. I tried to run it, am getting a "Method or data...
Currently the data is received in a spreadsheet, it has to be updated and data added in certain instances. By allowing each user to enter data, there has been multiple instances of data being entered in the wrong format. Setting field requirements in Excel has not worked. In addition, data...
Skip,
Maybe I am missing something about doing the import. If so, please let me know what it is. One of the objectives is to avoid the user having to open Excel and do anything with the data, just provides too much potential for error.
I can get the data exported, Excel opened, data...
Hi Skip,
Yes it is being exported as a text file. I have tried transferspreadsheet and export with formatting. I have not been able to get the export to show the date field in the date format, 1/1/2012 and NOT put the apostrophe and still be left-justified. Any other suggestions?
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.