I'm creating a simplified timecard entry form, and everything works perfect except one thing. When I start a new record and go to the subform and choose the day (monday - friday) it says "This property is read-only and cannot be set" but then it goes ahead and accepts the entry.
A little background, I am making the times as simplified entry (100 for 1pm, 800 for 8am, 500 for 5pm) no colons will be entered. Our hours of operation are roughly 7am until 630pm, with the occassional clock in before 6am and clock out up until 8pm or so. I have this error checking in place, it works ok, I add 1200 to the time if it is pm. Now if they are making a straight time adjustment, they enter it in as well.... for instance 8 for 8hrs holiday pay or paid time off. All this stuff works, that's not the problem.
I am thinking, maybe it might have something to do with having 4 or 5 fields set as the combined primary key on the table that holds the time/adjustment data. The reason I did the combined primary key is so they could enter in the same name, the same start date, even the same day, but the adjustment/time value has to be unique when it is compared with the start date, name, day, adjustment/time value. This table is the subform.
The weird thing is, that after the error, it lets the value stand and does not show the error again, as long as you are on this recordset. If I go back into that record and start a new entry below the others, I get the error again. While the error has no detrimental effects on the db, it is annoying.... and it still shows if I run the form off a macro with setwarnings to false.
I am including the database for review for those of you brave enough to try to understand my logic I'm sure it's something simple. I don't see anything in the properties for the form to turn off error messages like you can in data access pages, or maybe I just overlooked it. I have left one recordset in to show the functionality, it all works according to plan. This is just a rudementary database, I will fine tune it after I get past this hurdle.
Edit: I have Calendar control 11.0 for the start date, but this isn't the problem as it still did it when I had the actual field showing. That, and if you see the disparity between hours and minutes and paid time, it's because if they worked so many hours, 1/2 hour is automatically subtracted. Which is why there is a lunch adjustment field.... if they didn't take a lunch or if they took too long of a lunch.
I tried to get help elsewhere with this but it didn't quite work out, so I thought I'd pick a few other brains. So here's the problem from the beginning.
I made a table with three fields:
Field Name----Data Type Category------Text Item----------Text Cost----------Number
I set up a form with two combo boxes and two text boxes. I want to pick an Item from the combo box, and have the Cost appear in the corresponding text box. I set up the combo box to show each field when I click on the arrow.
I was given the following code to put in the After Update section under the Event tab for the combo box:
Private Sub Combo8_AfterUpdate() Me.Text2 = Me.Combo8.Column(2) End Sub
That works. I pick an item from the combo box, and its value appears in the text box next to it. Ultimately, I want to edit the value in the text box and have it update the table. I was given the following code for the text box:
Private Sub MyTextbox_AfterUpdate() Dim strSQL As String strSQL = "UPDATE MyTable " & _ "SET Myfield = " & Me.MyTextbox & _ " WHERE Id = " & Me.MyCombo CurrentDb.Execute strSQL, dbFailOnError End Sub
So far, that hasn't worked. I believe I've made the correct substitutions:
Private Sub Text2_AfterUpdate() Dim strSQL As String strSQL = "UPDATE [Primary Table] " & _ "SET Cost = " & Me.Text2 & _ " WHERE Id = " & Me.Combo8 CurrentDb.Execute strSQL, dbFailOnError End Sub
When I type a different value into the text box and hit enter, I get the following error:
Run-time error '3061': Too few parameters. Expected 2.
I was given a different line of code in the event that I'm "trying to pass text":
" WHERE Id = '" & Me.Combo8 & "'"
When I use that, the error is the same except it says:
I have designed a form to act as a menu to open other forms. I created the form and placed command button on the form. Using the Access Wizard, the following VBA was created by Access to open the next form:
Private Sub cmdCCDolClr_Click() On Error GoTo Err_cmdCCDolClr_Click
Dim stDocName As String Dim stLinkCriteria As String
I have done this several times in the past with success. However, this time, I get the following error message when I click on the command button to open the second form.
The expression On Click you entered as the event property setting produced the following error: A problem occured while GCM (name of dB) was communicating with the OLE server or Active X Control. *The expression may not result in the name of a macro, the name of a user-defined function, or [EVENT PROCEDURE]. *There may have been an error evaluating the function, event or macro.
I tested other forms that were designed to open secondary forms and they continue to act correctly. Is there an easy fix to this issue. There are 16 command buttons and all get this message. Do I have to delete the form and recreate it. A nusiance, but not difficult.
Looking forward to hearing from you experts out there. Thanks, Alan __________________ Alan Sidman
when i want to open the database in an access database i have the following error. you have as the event property setting the expression entered when open.This expression has caused an error amppu (database name) can not find the form that is referred to
I'm creating a DB that includes a form that "Customers" will fill out. The form (CustomerForm) has text boxs that must be completed. I'm trying to figure out how to make sure all text boxes are filled out. I have already created a Input Mask and selected Required in the "Customer" Table. There is also a Username text box I would like to have validated that is is not already being used and two password text boxes I would like to have validate against one another to ensure it was created correctly. Once all text boxes are properly filled out I would like the Button to Save customer data, close CustomerForm and Open ShoppingCart. This is the code I have created:
Code: Option Compare Database Private Sub Log_In_Click() If IsNull(Me.CustomerFName) Then MsgBox "Please Enter First Name", vbInformation, "First Name Required" Me.CustomerLName.SetFocus
I have a form designed to execute a query with a prompt for a particular record. When the record being searched for is not there the form become blank with nothing on it. I would like to return a message that indicates that the record was not found and give he user an option of reexecuting the query of exiting the form.
I have 5 check boxes on a form and one of them must be checked in order to get the correct result. If the user does not check any of the the five checkboxes he gets a msgbox telling him that he must checks one of the checkboxes.
What i want to ask is if is possible to prevent the form from updating? Because the user gets the error message but after that the form is being updated even though he hasn't check any of the fields.
I have created a profiling form for my school. Each boy can access his form using his admission number ( Adno) which is the primary key. On the form are lots of sub forms - for things like favourite authors, clubs, teams played in etc - but these don't have a primary key ( as they are automatically linked to the Adno via the main form ). Unfortunately when several boys are filling in their own forms at the same time I keep getting error messages, one says that the data can't be updated and another says that there is a primary key problem.
I have a form and when it's opened you get 3 different search questions to answer or leave blank. My question is.... If a search parameter is entered but no results are found to match it, how do I create an error message telling the requestor "No Data Found"?
I have a form with a subform in it. On the main form, I have a combo box with a list of program numbers to choose from. Once one is selected, the subform displays all the unpaid invoices under that program number. This part works fine. The problem occurs when I try to close the form, switch to design view, or scroll the subform to the right. Basically, the error message says that the record can't be saved because it would create a duplicate value in the index/primary key. However, this form is used to display information only. I have disabled the edit, delete and addition abilities, so I can't figure out why it thinks I am trying to change or add a new record. Any help would be appreciated.
I figured it might make things easier if I included a copy of the database, so here it is.
The form is called SETR, and the subform is AllInfo subform.
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 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.
