Okay, me again, on my DAP (Data Access Page) I have a piece of JavaScript that tells my page onload compare 2 dates. It's straight forward and all and my code works. That's actually where the problem is... When access loads my DAP up it builds the page, executes the javascript and THEN populates my fields with all the records. So my comparison javascript will always execute BEFORE the data loads into my DAP...
<body language=”javascript” onload=”colorBox();”>
<SCRIPT LANGUAGE=”javascript”>
Function colorBox(){
If (Quarter1DueDateP1 >= Quarter1CompleteddateP1){
Box3.{background-color:Green;}
}
Elseif (Quarter1CompleteddateP1>=Quarter1DueDateP1){
Box3.{background-color:Red;}
}
Else {
Box3.{background-color:Yellow;}
}
}
I am dynamically trying to set a control default value. I have the code below in the On Load event of the form. I get an error msg that says "Run-time error '2467': The expression you entered refers to an object that is closed or doesn't exist."
I have a form with an onload event that apparently only runs when it wants to. I've checked the onload property on the form and it is set to event procedure. Went through the code on the event and everything looks good. When i mark it in break mode and step through it it runs fine. When I take the marks off it sometimes works and sometimes doesn't.
I have a data access page with an onload event for the window. All I want to do is go to a new record, update a date field with today's date and save the record. Here is the code:
When I load the page, I can see the date pop into the request_date field, but then it disappears. I made sure the value update code works by putting it on a different object's click event. The problem is when it's in the onload event for the window.
Is there something I'm missing about this event that prevents this from working? Thanks!
I currently use code in a module and code on each form in the on_load event to change the icon of the form.. the code i use is as follows..
in a module:
Code: Private Declare PtrSafe Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long Private Const WM_SETICON = &H80 Private Const IMAGE_ICON = 1 Private Const LR_LOADFROMFILE = &H10 Private Const SM_CXSMICON As Long = 49 Private Const SM_CYSMICON As Long = 50
[Code] ....
And on each form on load:
Code: SetFormIcon Me.hWnd, "k: est directoryhsicon.ico"
What I am wondering is would it be possible to store the .ico file within the DB file itself (i know access can store bitmaps) and reference the .ico in the form load event code?
Overtime the db file will probably move to its own dedicated storage so using a direct reference to the file wont work..
I have tried the following but get an error (it tries to reference the .ico file as to being in the root directory of the db file)
This code works well and frmRepair opens with the updated label caption. The original value was "Return/repair Information"
A few other things need to change on frmRepair depending on this caption as well as the values of some other fields, so I use the following code in the onload event (although I later tried the onopen even)
Code: 'Disable labels button if there is no RMA and the item is a repair MsgBox Me.lblmain.Caption If Me.lblmain.Caption = "Return/Repair Information" Then Me.txtRMA.SetFocus MsgBox Me.txtRMA.Text
[Code] ....
However, I cannot get this to work as the "if" statement always returns "Return/Repair information" and not the modified caption. The message box confirms that this is the case.
I suspect that this has to do with the point in time that the frmRepair loads or opens and when my code enters the modified values.
Hi all- I'm creating an update query.I have a field [dateLastEdit] that is stored as text, I have to compare it to a date entered on a form by user [date_from] (I need to select all dates greater than this) but I'm running into problems:when I use date_from in text or date format and compare it to dateLastEdit in text format the comparison is made in numeric order(so 12/02/2006 is selected as well as 12/02/2005 when date_from is 12/01/2006)SELECT PTSData.LastEditDateFROM PTSDataWHERE (((PTSData.LastEditDate)>=[Forms]![chMgmt_frm]![date_from]));when I use date_from in date format and compare it to dateLastEdit converted to date format I get "expression typed incorrectly or it is too complex to be evaluated" msg.SELECT DateValue([LastEditDate]) AS Expr1FROM PTSDataWHERE (((DateValue([LastEditDate]))>=[Forms]![chMgmt_frm]![date_from]));[LastEditDate]'s format is always mm/dd/yyyy hh:mm:ss, but as text, not date data type.I've tried CDate with same results, isolating it in its own query to test it, using hardwired dates as criteria, but no joy, am I missing something obvious?forgot to add- I've used all the above with left also to select only date portion with same results
I'm trying reference a dcount on two fields, one is a string and works fine, the other is on a date which does not.
I've investigated the problem and found a couple of references to making sure I use a # symbol to reference the date but I think the thing that's throwing the comparison out is that the date field stores time as well, even if you can't see it?
I thought should count the records in the healthcheck table that match the check_date field against the first_health field on the current form, but I keep getting a 0 count even though the dates seem to match.
I have a date field (DueDate) that I am comparing against the current date (Date()). When the current date is greater than the DueDate I filter just those dates. I have done that without any problems. Now I am trying to figure out how to compare that filtered information to show that the DueDate is either over 30 days, over 60 days, or over 90 days overdo. If it shows up on either one of those lists I do NOT want it to show up on the other lists. I also want to have a counter by states. For example:
Current Date DueDate State a. 9/22/14 2/1/14 GA *(90) b. 9/22/14 8/20/14 WV *(30) c. 9/22/14 7/1/14 WV *(60) d. 9/22/14 8/19/14 GA *(30) e. 9/22/14 7/31/14 GA *(30) f. 9/22/14 3/1/14 WV *(90) g. 9/22/14 7/20/14 SC *(60)
I recently (temporarily)took over a position that uses an Access database that does not work properly, and I'm stumpped on how to fix it.
The query is supposed to pull all data where the "Date Overdue" field is less than today.
"Date Overdue" is a calculated value that pulls from the field "Date Input", which is in a text format (DDMMMYY) Such as 03NOV13. It is 8 days after the date input.
It prints out like this: "Monday, November 11, 2013" which is 8 days after the 3rd.
"Date Overdue" is set to this value:
Code:
DATE OVERDUE: DateValue(Left([DATEINPUT],2) & "/" & Mid([DATEINPUT],3,3) & "/" & Right([DATEINPUT],2))+8 "Date Overdue" has the criteria "<DateValue(CDate(Now()))"
I'm not going to go into all the different steps I've taken to try and get this to work because I've toyed with it a lot..
The output that I always seem to get is a mixture of all records that are available, before and after today's date, I just wanted those that are less than today.
I suspect that the date values that are shown in the query aren't true dates because when I click on the filter button it gives me this error:
"Syntax error (missing operator) in query expression 'DATE OVERDUE' "
NOTE: I'd like to add that this is just a regular Select query.
Code: SELECT DateValue(Left([DATEINPUT],2) & "/" & Mid([DATEINPUT],3,3) & "/" & Right([DATEINPUT],2)) AS [PRODUCT END PERIOD], DateValue(Left([DATEINPUT],2) & "/" & Mid([DATEINPUT],3,3) & "/" & Right([DATEINPUT],2))+8 AS [DATE OVERDUE], [QBR ON EQUIP].DATEINPUT, [ALL ERRORS].[ERROR STATUS],
:eek: I have tried almost everything and I still can get this to work. I thought I had it with this attempt until I inputted October data and found that Access was sorting it by Number vs. Date.
I am simply trying to compare the number of tickets opened each month to the number of tickets closed each month. I also need to address how a report will appear if no tickets were opened or if no tickets was not closed in a month.
Incase the SQL in screencap is too difficult to read:
Query: qryTotals_Assigned_And_Completed - This calls the following two queries. ############################################# SELECT qry_AssignedByMonth.MyAssigned, qry_AssignedByMonth.Count, qry_ClosedByMonth.MyClosed, qry_ClosedByMonth.Count, qry_AssignedByMonth.Month, qry_AssignedByMonth.Year, qry_ClosedByMonth.Month, qry_ClosedByMonth.Year FROM qry_AssignedByMonth INNER JOIN qry_ClosedByMonth ON qry_AssignedByMonth.Month = qry_ClosedByMonth.Month ORDER BY qry_AssignedByMonth.Month, qry_AssignedByMonth.Year, qry_ClosedByMonth.Month, qry_ClosedByMonth.Year; ############################################# qry_AssignedByMonth ############################################# SELECT (Format([DateAssigned],"mmm"" '""yy")) AS MyAssigned, Str(Month([DateAssigned])) AS [Month], Str(Year([DateAssigned])) AS [Year], Count(*) AS [Count] FROM tblRequests GROUP BY (Format([DateAssigned],"mmm"" '""yy")), Str(Month([DateAssigned])), Str(Year([DateAssigned])) ORDER BY Str(Month([DateAssigned])), Str(Year([DateAssigned])); ############################################# qry_ClosedByMonth ############################################# SELECT (Format([DateClosed],"mmm"" '""yy")) AS MyClosed, Str(Month([DateClosed])) AS [Month], Str(Year([DateClosed])) AS [Year], Count(*) AS [Count] FROM tblRequests GROUP BY (Format([DateClosed],"mmm"" '""yy")), Str(Month([DateClosed])), Str(Year([DateClosed])) ORDER BY Str(Month([DateClosed])); #############################################
I'm new in the MS Access 2000. I have in a separate place a JavaScript code for a mathematical purpose. I have assigned different characters to different numerical values: a=1 b=2 g=3 . . . y=10 k=20 . . q=100
I was wondering if MS Access 2000 has the ability of taking these characters and calculating ( adding ) them into a separate field? Can the Javascript be somehow entered into the db? I want to use the db with on the web with ASP.
If I addressed this question in the wrong forum if you can please redirect it to the proper one or tell me how to do it. Thanks.
I have created an asp popup window that is called by a javascript function from another asp page. The popup window is generated from a database. The code on the mainpage to generate the popup window is:
Code:<SCRIPT LANGUAGE="JavaScript" TYPE="text/javascript"><!--function showCalendar(i) {// declare variablevar tbm;// assign field name to variable // based on argumentif(i==1) tbm='FrontPage_Form1.PerDate1';if(i==2) tbm='FrontPage_Form1.PerDate2';if(i==3) tbm='FrontPage_Form1.PerDate3';if(i==4) tbm='FrontPage_Form1.PerDate4';if(i==5) tbm='FrontPage_Form1.PerDate5';if(i==6) tbm='FrontPage_Form1.PerDate6';if(i==7) tbm='FrontPage_Form1.PerDate7';if(i==8) tbm='FrontPage_Form1.PerDate8';if(i==9) tbm='FrontPage_Form1.PerDate9';if(i==10) tbm='FrontPage_Form1.PerDate10';// call pop up calendar// passing field name variablewindow.open('../../calendar/calpop.asp?tbm='+tbm,'ncal');}function showDirectory(i) {// declare variablevar dept;// assign field name to variable // based on argumentif(i==1) dept='FrontPage_Form1.TaskOwner1';if(i==2) dept='FrontPage_Form1.TaskOwner2';if(i==3) dept='FrontPage_Form1.TaskOwner3';if(i==4) dept='FrontPage_Form1.TaskOwner4';if(i==5) dept='FrontPage_Form1.TaskOwner5';if(i==6) dept='FrontPage_Form1.TaskOwner6';if(i==7) dept='FrontPage_Form1.TaskOwner7';if(i==8) dept='FrontPage_Form1.TaskOwner8';if(i==9) dept='FrontPage_Form1.TaskOwner9';if(i==10) dept='FrontPage_Form1.TaskOwner10';// call pop up directory// passing field name variablewindow.open('../../ProfDirectory/DeptPeople.asp?dept='+dept);}//--></SCRIPT>...... <tr> <td width="118" height="22" align="center" nowrap> <p align="center"> <input type="text" name="PerDate1" readonly="true" size="8"> <A HREF="javascript:showCalendar(1);"><IMG SRC="../../calendar/10Min200011cal.gif" WIDTH="39" HEIGHT="21" ALT="Click here to select date" BORDER="0" align="center"></A> </p> </td> <td width="160" height="22" align="center"> <p align="center"><input type="text" name="TaskOwner1" size="8"> <A HREF="javascript:showDirectory(1);"><IMG SRC="../../calendar/10Min200011cal.gif" WIDTH="39" HEIGHT="21" ALT="Click here to select date" BORDER="0" align="center"></A></p> </td>
The first popup calls up a calendar. The calendar works fine. The second popup calls up a staff directory. This popup does not work.
Code:The code for the staff popup is:<SCRIPT LANGUAGE="JavaScript" TYPE="text/javascript"><!--function SetTaskOwner(d) {opener.document.<%=Request("dept")%>.value = d ;self.close ();}//--></SCRIPT>......<%Session.timeout = 1Set conn = Server.CreateObject("ADODB.Connection")txtDSN = "DRIVER={Microsoft Access Driver (*.mdb)};" & "DBQ=d:InetPubwwwrootpagescommoncivil.mdb"conn.Mode=adModeReadconn.open txtDSN,"",""Set Session("people_conn") = conn%><%sql = "SELECT WebData.* FROM WebData WHERE (((WebData.class)='faculty')) AND (((WebData.Status)='active')) ORDER BY WebData.LastName"pagetitle1="Faculty sorted by last name"Set rs = Server.CreateObject("ADODB.Recordset")rs.Open sql, conn%>....do while Not rs.eof.... owner = rs.Fields("UWID").Value webpage="javascript:SetTaskOwner(" & owner & ");" %> <tr> <td><a HREF="<%=webpage%>"><%=name%></a></td>.....rs.MoveNextloopconn.close'session.abandon%></table>
The popup appears and the database generate the results as expected. When I click on the hyperlink the javascript gives me an error. I can see in the status bar though that the hyperlink's value is: javascript:setTaskOwner(me), for example. So I think the error is due to the opener.document.<%=Request("dept")%>.value = d or self.close (); lines of javascript.
What I'd like to do is for my combo boxes to say something like "Select One" when the form is first loaded, until the user opens the box and selects something. My combo boxes work fine now, but they are currently empty when the form loads.
From my google research it appeared that the OnLoad property would probably help me do what I want, but I can't seem to find this property anywhere in Access. It's not anywhere in the property window and the help search doesn't return any results.
I'm using Access 2003 from MS Office Professional Edition 2003.
Am I missing an upgrade or does my version not have this property, or am I just missing it?
i have created subforms and set the Default View to Datasheet Now i have a form where i am adding command buttons on it to load those subforms but They are not Loading it as DATASHEET VIEW. Any Clue?
I have a subform inside of a form. The form has info about an entire group of parts and the subform contains a list of all the parts in that group. What I want to do is just filter out the parts in the subform whenever the form/subform loads which do not have a 'deleted' checkbox checked. (No parts in the database get deleted; if someone deletes a part I just want it to add a true to the 'deleted' flag field for the part and then that part doesnt show up in regular part lists anymore).
I have an A2007 application running on XP. From main form, Form1, another form, Form2, is opened.
When I attempt to close the application by clicking in the cross in the rh-corner of Access window, I get a crash midway through the OnLoad of Form2. I cannot figure out why the heck the On Load event fires when the form is being closed, and have some difficulties stepping through the code.
I recall having heard of OnLoad firing when trying to close a Form.
I have a Form with 2 subforms. One subform has an onload property to adjust columnwidths. I am trying to do the same for the other subform - but I get the following error:
The Expression on load you entered as the event property setting produced the following error: A problem occurred while micorosft office access was communicating with the OLE server or Active X Control.
I have a date control and on the Click event I run the following code. Trouble is the Date Control stops working, ie you can't change the date after one click ?
CODE.
Private Sub Calendar7_Click() weekofyeartxt.Value = DatePart("ww", Calendar7.Value) End Sub
I've been using between function with two dates in query and also have put event. There is no mater to display it's event at the start and end date, but if the different date more than one day, for example:
Query 1: Start Date End Date Event Amount Days
24/04/2012 27/04/2012 Leadership Course 4
the report only display the first and last date with it's event but not display date to 2, 3 and 4. While actually what I want to do in the query when I key in even at the start and end date, the result in a report should display every single date with it's event automatically.
Alright. I've tried searching, but to be honest, I'm not even sure what to search for.
I want to create some VBA that onLoad of the opening form of the database, it will take info from a query that looks for data entered for a student. It will be looking to see if there is data in two date fields. If it finds data in both fields, then I want to make a change to the EnrollmentID row of another table to changed the graduated column from No to Yes.
To expand on that, I'll want to check each ClassID row and if all of the associated students of that class have the column Graduated checked as yes, it will place the date in the date column for that particular class.
This is essentially my way of auto-archiving data as the combo box selections on my forms don't allow for class data to be shown if there is a Closed Date entered for the class and you won't be able to enter more test results for a student if the Graduated Column is checked in the Enrollment table (associates memberID, ClassID, CourseID into a single table)
Any insight on how to do this would be greatly apprecaited.
I want to save NOW() (i.e. Date and time) into an event log file. But I just cannot work out the syntax. My insert statement works fine without the date field in, but fails on a syntax error (3134) when I include it.
I am having problems with my subform. I have a table that has events with dates. When I create a subform with eventnames, it shows up. However, I cannot get the eventdate to populate in the case form.
