Date Comparison OnLoad Javascript Event

Aug 10, 2006

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;}
}
}

View Replies

Modules & VBA :: Set Default On Control In OnLoad Event

Nov 17, 2014

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."

Forms(mainform)("Dyn_" & Trim(str(Project_ID)) & "_SubFrmTab03" & PT_Suffix & "_Approval").Controls("Groupid").DefaultValue = "=Forms!" & mainform & ".ClaimInfoGroupID"

View 3 Replies View Related

Forms :: Onload Event Doesn't Run All The Time

Aug 16, 2015

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.

View 6 Replies View Related

Data Access Page Onload Event Problem

Aug 8, 2006

This behavior is driving me crazy!

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:

<SCRIPT language=vbscript event=onload for=window>

</SCRIPT>

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!

View 2 Replies View Related

Forms :: DLookup With Linked Tables - OnLoad Event

May 26, 2015

The image below describes the scope of the issue.

The function is called upon in the onLoad event of frmMain.

View 3 Replies View Related

Modules & VBA :: OnLoad Event To Change Icon Of The Form

Sep 26, 2014

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)

Code:
SetFormIcon Me.hWnd, Left(CurrentDb.Name, Len(CurrentDb.Name) - Len(Dir(CurrentDb.Name))) & "hsicon.ico"

View 2 Replies View Related

Forms :: Onload Event - Open A Form And Update Caption Of A Label

Apr 15, 2013

I have some code on a button that opens a form and changes the caption of a label:

Code:
DoCmd.OpenForm "frmRepair", , , , , , "CancelNo"
Forms![frmRepair].Form.[lblmain].Caption = "Missing Parts"

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.

View 13 Replies View Related

Date Comparison

Jun 13, 2005

Hey all,

I've got to show records from a table that are 45 days old or newer.. im not quite sure how to do this in SQL ...

Select field from table where date > (todaysdate-45).. as you can see..clueless lol any help is _greatly_ appreciated

View 3 Replies View Related

Text To Date Comparison

Jan 24, 2007

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

View 5 Replies View Related

Modules & VBA :: DCount Using Date Comparison

Mar 6, 2015

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?

Code:
MsgBox DCount("*", "[healthcheck]", "[check_date]=#" & Format([Forms]![MAINTENANCE_FRM]![MAINTENANCE_DETAIL_TBL subform].[Form]![FIRST_HEALTH]) & "#")

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.

View 6 Replies View Related

Date Comparison Return Certain Information

Sep 22, 2014

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)

The output I want should be:

over 30 days:
GA 2
WV 1

over 60 days:
SC 1
WV 1

over 90 days:
GA 1
WV 1

View 2 Replies View Related

Queries :: Date Conversion Comparison Not Working?

Nov 8, 2013

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],

[Code] .....

View 1 Replies View Related

Query Graph Two Count Value Comparison By Date...Attached Screencaps

Jul 24, 2005

: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]));
#############################################

View 1 Replies View Related

JavaScript For Field Possible?

Mar 18, 2005

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.

View 4 Replies View Related

Javascript Popup Window

Oct 25, 2005

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"></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"></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.

View 1 Replies View Related

OnLoad Property

Mar 3, 2006

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?

View 2 Replies View Related

OnLoad? And Automatic Counter

Apr 27, 2005

a couple of questions...

1) what can i do in order to get a form to open when a database is loaded?

2) what is the automatic counter?

thanks in advance

View 4 Replies View Related

OnLoad View As Datasheet

Mar 9, 2005

hi

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?

Thanks

View 5 Replies View Related

How To Filter Subform OnLoad

Mar 20, 2014

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).

View 1 Replies View Related

Forms :: OnLoad Runs When Closing Form

Oct 9, 2013

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.

View 6 Replies View Related

Access 2007 - Multiple Subform Onload

Dec 10, 2012

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.

View 3 Replies View Related

Forms :: Date Control On Click Event

Sep 19, 2013

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

View 3 Replies View Related

How To Appear Every Single Date With Event When Using Between Function In Query

Dec 8, 2012

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.

View 1 Replies View Related

Use Query Results OnLoad Of Form To Conduct An Action

Jan 2, 2008

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.

View 6 Replies View Related

Modules & VBA :: Save NOW (Date And Time) Into Event Log File

Oct 16, 2014

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.

strsqlac = "INSERT INTO EventLog ( EventTime, User, EventType, EventMessage, DocRef, AutoSeq, CoCode ) " & _
" Values ( '" & Now() & "', '" & GlobUser & _
"', '" & Mess2 & _
"', '" & Mess1 & _
"', '" & Docref & _
"', " & AutoSeq & _
", '" & CoCode & _
"' );"

... it's the first column, EventTime that is the issue. I have tried several different ways of wrapping it in the VALUES () without success.

My database field EventTime is defined as a General date which Access 2007 tells me will give me date and time. That's what I want.

The Value formats I have tried (currently showing as 'NOW()' above, are ...

#NOW()#
#'NOW()'=
'#NOW()#'
and (as I say) 'NOW()'

View 5 Replies View Related

Forms :: Cannot Get Event Date To Populate In Case Form

Jun 4, 2014

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.

I have attached the database ...

View 5 Replies View Related