Hi,

Does anyone know how to start a timed event in VBA? I am writing a program and the specs call for the program to go out to a folder at a specific time, and search for any new files to be loaded. I can load the files without a problem. The trick is, how do I get Access to run the Sub at for instance 1:15pm?

Anyone have any ideas?

Thanks

Mike

Mike
EchoVue.com

__________________
Mike
EchoVue.com

Hiya,

   Okay, here is what you do:

Create a form and hide it.
Set the form's Visible property to False so that you can't see it when it opens.
Open the form when the application is opened.
On the form's Timer Event, you want to place code that goes out and checks the current time, like every 30 mins or so.
If the time is >= your update time (AND <= about 45 mins after your update time), then run your code that goes out and does your update.

The code might look like this:

Sub Form_Load()
   Me.TimerInterval = '30 seconds = 30000, so do the math
End Sub

Sub Form_Timer()
   Dim curTime As String
   Dim upTime As String

   curTime = cDate(Time())
   upTime = #13:15:00:00#

   If curTime >= upTime Then
     'call your update code
   End If

'etc

Someone help with the syntax. I don't have time today to test this.

Anyway, conceptually, this will do it.






mmcdonal

Hi Mike,

Long time no speak!! Thanks, I found a different solution last night, but I like this one as well. I just found out from the person I am designing the application for that he would like it triggered on the Form_Load event, so I'll have to store this one in the "Future Use" folder.

Thanks again,

Mike

Mike
EchoVue.com

I use the on load event to update records through the flesystemobject as well. I also use it to transfer tables from SQL for local OLAP. This can take some time and make the form seem like it is taking a longer time to load.

You may also want to put an update button on the form in case it is open for a long time, you can refresh it.

mmcdonal

Good Advice! Thanks

Mike
EchoVue.com