Stuart McLachlan
stuart at lexacorp.com.pg
Tue Mar 18 23:25:00 CST 2003
If you are storing just a time in StartTime and print it as a normal DateTime, you will see a date of 30 December 1899 because that's Day 0. The trouble is that Now() returns the date and time. My mistake. You should use Time() not Now() - or alternatively "Now() - Int(Now())" which will just return the time part of Now() On 19 Mar 2003 at 10:56, Darren Dick wrote: > Hi Stuart et al > This didn't work either > When I debug.print the line... > (rs!StartTime - cmbWarningInterval /dblMinutes) > I get a non related time (From memory it debug.printed as Some date in the > 1800's and 1:00pm) > > My plan is to have this sitting as an open app and using the On_Timer event > to just check every 2-3 minutes or so for any Bookings that match the > criteria rs!StartTime = rs!StartTime - cmbWarningInterval > Then do something to alert me. > Then flag it as done. > > I Just dunno how to do it.<vbg> > Many thanks > > Darren > > > > -----Original Message----- > From: Stuart McLachlan [mailto:stuart at lexacorp.com.pg] > Sent: Tuesday, 18 March 2003 12:47 PM > To: Darren Dick; accessd at databaseadvisors.com > Subject: RE: [AccessD] A2K: This should be easy > > > You need to have a flag to let you know whether you have already triggered > your event. > Either include a Boolean WarningDone in you table or if you can't change the > table structure, create a temp table with all > of today's bookings and include the boolean field in that temp table. > > > Private Sub Form_Timer() > Dim dblMinutes as Double > dblMinutes = 1 / 24 / 60 > > .... > 'Set up recordset 'rs' to include required fields from bookings info > 'including the flag > ....... > > While not rs.eof > If (rs!StartTime - cmbWarningInterval /dblMinutes) => Now() _ > and Not rs!WarningDone Then > ........ > 'Do whatever you want to with the info > ......... > rs.Edit > rs!WarningDone = True > rs.Update > End If > rs.MoveNext > Wend > End Sub > > On 18 Mar 2003 at 12:22, Darren Dick wrote: > > > Hi Guys thanks for the replies. > > I'll explain what I am doing. We have a booking app. (Not mine) > > We can have many bookings entered for a day and even some at the same > time. > > > > Amongst other things the Booking Start Time is captured by the other app. > > I display it in Me.txtStartTime > > I also have a combo Me.cmbWarningInterval that has list entries like > > 5,10,15,20,25,30,45,60 each representing minutes. > > > > If I select 15 from the combo I basically want a msgbox or some other > event > > to fire 15 minutes before the StarTime > > > > Should be simple > > > > Many thanks for listening to me > > > > Darren > > > > > > > > -----Original Message----- > > From: accessd-admin at databaseadvisors.com > > [mailto:accessd-admin at databaseadvisors.com]On Behalf Of Drew Wutka > > Sent: Monday, 17 March 2003 6:01 PM > > To: 'accessd at databaseadvisors.com' > > Subject: RE: [AccessD] A2K: This should be easy > > > > > > I know people are going to post about the DateDiff function. But I'd like > > to get you thinking about what you are actually trying to do. > > > > Dates and Times are stored as numbers. The date is the whole number, > which > > represents the number of days since 12-30-1899. Thus, since days are > whole > > numbers, you can add or subtract days by simple math. (ie, to get > tomorrow, > > it's Date()+1). Times are the fraction of the day. ie, .5 is noon, and > .0 > > is midnight. Thus, you can also just simply add or subtract values to > > change the time. (ie, to get an hour from now, use Now()+(1/24)). > > > > Does that make sense? Also, another little known fact about the Date, > Time > > and Now functions. They work both ways. If you use this line of code: > > > > Date=Date()+1 > > > > You've just set your systems date to tomorrow! <grin> > > > > Drew > > > > -----Original Message----- > > From: Darren Dick [mailto:d.dick at uws.edu.au] > > Sent: Sunday, March 16, 2003 8:46 PM > > To: Access Mail Group > > Subject: [AccessD] A2K: This should be easy > > > > > > Hello all > > This should be simple. > > > > I have a control on a form (txtStartTime). Formatted for Short time (i.e. > > hh:mm) > > I want to take say...5, 10 or 15 minutes from whatever time is in > > txtStartTime > > > > So take away 15 from 11:00 should give me 10:45 > > > > How do I do this. > > > > <Sigh> this should be easy. It probably is, I'm just brain fading. > > > > Darren > > > > _______________________________________________ > > AccessD mailing list > > AccessD at databaseadvisors.com > > http://databaseadvisors.com/mailman/listinfo/accessd > > Website: http://www.databaseadvisors.com > > _______________________________________________ > > AccessD mailing list > > AccessD at databaseadvisors.com > > http://databaseadvisors.com/mailman/listinfo/accessd > > Website: http://www.databaseadvisors.com > > > > _______________________________________________ > > AccessD mailing list > > AccessD at databaseadvisors.com > > http://databaseadvisors.com/mailman/listinfo/accessd > > Website: http://www.databaseadvisors.com > > > -- > Stuart McLachlan > Lexacorp Ltd > Application Development, IT Consultancy > http://www.lexacorp.com.pg > > _______________________________________________ > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com -- Stuart McLachlan Lexacorp Ltd Application Development, IT Consultancy http://www.lexacorp.com.pg