I have an Access project that when it starts, lets you pick a folder and a file to open as input (done with VBA code), and that works beautifully. My project then processes the opened file and that works fine also. However, when I run the project a second time, pick another file (with the same format), my project then dies on me. If I get completely out of my project and thenre-enter it, it runs fine. I've enclosed a screenshot of the error I'm getting.
Any help is greatly appreciated. And yes, I did a search on this and several other forums as well as on Microsoft's site and could not find anything related to the error I'm getting.
Does anybody know what this error message refers to?
"Reserved Error (-1517); there is no message for this error."
It just started happening today, and I haven't even made any changes to the database. It occurs when I hit a button I have to run a macro.
the macro does the following: 1) Shows all records 2) Requery 3) ApplyFilter. The Where Condition for the filter is: Right([tblContracts].[JobNum],4)=Right([Forms]![FrmContProc].[txtFindJobNum],4)
The weird thing is that it only occurs if the Form window is taller than 1/2 of my viewable area. If the Form window is 1/2 the viewable area or shorter, it works OK. This was running fine earlier today, but about 4:00 pm (03/31/06) this started happening.
If anybody knows what this error means, or how to get rid of it (I really need to use this window in full-screen) then please let me know.
I have hit an odd bug with Access. I am creating a query that gathers several pieces of information across several tables linked by a key value (called OrderNo, in this case). This would be a relatively simple query, but each piece of data is an aggregate of some kind, and each aggregate is on different WHERE conditions.
This left me with two options, either two create a bunch of stored queries and join them together, or use inline subqueries. I went the inline subquery route.
I entered into Access a query of the form Code:SELECT <Fields> FROM WorkOrders, (<Subquery1>) AS <Subquery1Name>, (<Subquery2>) AS <Subquery2Name>, (<Subquery3>) AS <Subquery3Name>, <etc> WHERE <Conditions that select which lines out of WorkOrders are being looked at> ORDER BY OrderNo
Then I switched to design view and left joined WorkOrders to each of the remaining tables. Access modified the code as would be expected. The query runs at this point.
However, and here is the interesting bug, if I go to the SQL statement it created, and do anything Access registers as a change (even adding and deleting a single space of whitespace), Access decides that the result of it's own SQL generator is invalid code. It gives the error "Syntax Error in FROM clause".
I can provide the source query (in all it's overcomplicated massiveness) and the result after using Access to join the subqueries to the WorkOrders table if anyone cares enough to see/wants to try reproducing it.
Hello all. Hope someone can help. I want to know which of my customers received a particular service (service id: #199) during the last month. It gets complicated (I think) because of those customers that received service 199 last month, I want to know which ones did not receive any other services in the 90 days prior to receiving it. Any thoughts on how this can be done? I can find who received the service during the last month, but how do you check to make sure they have not received any others during the last 90 days? Any help is much appreciated. Thanks, S.J.
I'm not looking for your expertise in "how to" do this (not yet, anyway) but a friend asked me if Access could do certain functions. Like "automatically fill-in some of the more routine letters/forms such as basic letters of representation, medical bill/record requests" (routine for his biz) and "basic calendaring functions, such as keeping track of monthly deadlines, reminders, and other important dates."
I figured that if so, the app would have to be running in order track deadlines and such.
So, are these things that are Access able functions?
Ok baisically im doing a quick db for my company that is organising every file stored within the server and monitoring their last access'd, modified etc... I have a query which collates all the files which can be deleted on a server and file count is something alond the lines of 300K+ however i have also Sum'd the file sizes and instead of giving me some mental file size it has given me this result: 1.29659732507E+11
I mean i am no mathematician.. cant even spell it :S anyways im guessing that the number: 1.29659732507E+11 is actually 1.29659732507 to the power of 11?
Is there anyway i can get access to show the actual number i dnt care how long it is i just want a reliable, definitive result i can show my boss!
i need to calculate time, the problem i have is that we are trying measure production over the day, however our days run from
22:00 through to 22:00 the following evening
i have tried to calculate it by taking the end time from away the start time, but when i tried to do this it gives the wrong figure
eg
DayCode - 3111 (This is just the code we use to represent each day) Line - C3 ( Machine identification) Start Time - 22:00 ( Time the Machine started) End Time - 18:00 (time the machine ends) Duration - 04:00 (the figure that is display when calculated in access)
the duration figure should be 20:00 hours
i have managed to get it to work upto a point with the following code
runtime: IIf([starttime]=[endtime] And [starttime]=#22:00:00#,#23:59:59#,IIf([starttime]>[endtime],(#23:59:59#-[starttime])+[endtime],[endtime]-[starttime]))
but
if the the two times are the same for example 22:00 on the first evening through til 22:00 the following evening, i should get a result of 24 hours but instead i get zero, so i was wondering if there is a work around to this problem, i also need the time to be displayed in full hours whereas the above code only dislpays it to the correct hour minus 1 second.
I have attached a screen print of an error message I recieved on my access database. I finally got it to come up, but only after a few pop up boxes with this error message.
I do know the shared drive it is housed on went on the fritz. So I copied it and pasted it to my desk top. Grrr...I thought this message was due to the flipping shared drive. But now, I recieved it on my desk top too.
Anywho...can someone look at it and tell me what it means.
Thanks alot.
PS, i know my desktop has to much stuff, so don't go there. ;)
Hi can anyone help i keep clicking on a qry and it comes up with this message "Syntax error (missing operator) in query expression 'tblSTSLimits.Max Short'. but Max Short is correct can anyone help
I have a table that keeps crashing. The only error message I get is "Invalid Argument". Each time, a single record will turn into "#Error". Each field says this in the row. When this happens, Access won't let me delete just that row,
I am trying to Right Join two queries which are basically from the same exact table, but when I do that I get the following error.
ODBC--called failed.
[Microsoft][ODBC SQL Server Driver][SQL Server] The column prefix 'MS1' does not match with a table name or alias name used in the query. (#107).
The following is a copy of my SQL
SELECT PqryExpiredPolicy.Policy_Number, PqryExpiredPolicy.Orig_Exp_Date, PqryExpiredPolicy.Insured_Key, PqryNewPolicy.Policy_Number, PqryExpiredPolicy.Name FROM PqryNewPolicy RIGHT JOIN PqryExpiredPolicy ON PqryNewPolicy.Insured_Key = PqryExpiredPolicy.Insured_Key;
I have looked for this MS1 and cannot find it. Any ideas where I should be looking or what this means?
I get the following error message when I open a form, but I cant see anything wrong:
Run Time Error '2447':
There is an invalid use of the . (dot) or ! operator or invalid parenttheses.
This is the code that causes the problem:
Private Sub Form_Activate() If Me.SumOfTotalGVS > 16 Then MsgBox "You have exceded the total amount of GVS on the CATT site" Let Me.SumOfTotalGVS.BackColor = 255 Me.SumOfTotalGVS.ForeColor = 65535 Else Let Me.SumOfTotalGVS.BackColor = 16777215 Me.SumOfTotalGVS.ForeColor = 0 End If End Sub
Can anyone tell me what is wrong with this line of code please. Im trying to count the number of records on another form that is open. This is an On_Click command from another form.
Hello all, I have an access application. I imported a form to it with all related tables and queries and modules from another application. Unfortunetaly, it didn't work. It gives me this error message when openning the form: The expression On Load you entered as the event property setting produced the following error: User-defined type not defined.
i have a form that allows me to save mobile phone details.
The problem with this form is that if its incomplete and i click 'x' it shows me the validation message followed by an error message (which is attached with this thread).....
why is that? is there anyway i can exit the form (incomplete) without the valdation message or error message occuring???
Function Age(varBirthDate As Variant) As Integer Dim varAge As Variant
varAge = DateDiff("yyyy", varBirthDate, Now) If Date < DateSerial(Year(Now), Month(varBirthDate), _ Day(varBirthDate)) Then varAge = varAge - 1 End If Age = CInt(varAge) End Function
I get this error when I try to run a query. I have attached a screeen print of the problem. Every thing else works just fine it is the same query I copied it and just change one of the fields. the other query orks fine.
the below scrip was taken from another forum member.
i have put this in the Forms / error VBA
but i still a little lost
i have set 3 fields to be indexed not to allow duplicate information (Forename, Surename, DOB)
i was then advised to error trap so it would highlight that i have enterd a duplicate record on typing in the DOB (As that as third feild to be entered)
so i then used the below script, however this doesnt highlight that it is a duplicate it just doesnt let me go on to the next record, the only time the error message is highlighted is when i go into design mode.
anyideas on where to go from here.
Private Sub Form_Error(DataErr As Integer, Response As Integer) If DataErr = 3022 Then Response = acDataErrContinue MsgBox "Tis MerID alredy exist!" Exit Sub End If If DataErr = 2169 Then Response = acDataErrContinue MsgBox "Tis record will not be saved!" Exit Sub End If
