if then dealing with time comparison

[jalge2]

Just a quick question. The problem is, I'm creating an auto scheduler. I have a macro named autoexec that is going to run a module. I need the module to say, if it's 8 oclock in the morning then run the first openreport, and if it's 4 oclock, then run the second openreport. I'm diving into access for work and I'm sort of a new user. I little help would do me some good.

 

[kewo99]

Hi,

I think the "If Then Else" part is relatively simple, but one would need to know how you plan to trigger this activity. Will you have the database open continuously using a timer function or loop to run the code which checks the time? Or will you use something like Task Scheduler to open the db twice a day?

The "If Then Else" part would be something like:

If Hour(now())= 8 then
docmd.openreport("FirstReport&quot
elseif Hour(Now()) = 16 then
docmd.openreport("SecondReport&quot
End IF

Ken

 

[beetee]

Just off the top of my head...

dim TheHour as integer
TheHour = hour(now)

if TheHour >= 8 and TheHour <= 9 then
docmd.OpenReport(&quot;myreport&quot;, acViewPreview)
elseif TheHour >= 17 and TheHour <= 18 then
docmd.OpenReport(&quot;myotherreport&quot;, acViewPreview)
endif

 

[jalge2]

Thanks for the reply, actually, I am running it in an even manager to run at certain times in the day. Kewo99, I used your code that you presented and it seemed to open both reports, which is good, at least it went in the right direction. I appreciate the replies. Thanks a lot.