Hi everyone. This is my first post and I hope it is a good one. I have an Access database that needs to be closed at the end of the day so I can copy a fresh version of it to the location where it may be open. Is there a way that through VB code I can check and say ok, it is 3:00 am in the morning so I would like to close the database?

Remember, nobody will be here, I just want to wake the database up at 3:00 am if it is open, close it. This needs to all be done with vb code?

Any suggestions would be appreciated...

Thanks.

Hi Ru1

You could create a Hidden form that opens on startup in an autoexec or in your startup forms load event, Apply the following sub to the OnTimer event. This is a very simple way to close the database at a set time.

Private Sub Form_Timer()
    Dim dtCloseTime As Date
    Dim dtCurTime As Date

    dtCloseTime = Format(#3:00:00 AM#, "hh:mm")
    dtCurTime = Format(Time(), "hh:mm")

    If dtCurTime = dtCloseTime Then
        Application.Quit
    End If

End Sub

Set the timer interval to 60000 (60 seconds) Then every 60 seconds the database checks the time to see if it is time to say goodnight!

HTH

Jp

I might add the caveat that instead of:

If dtCurTime = dtCloseTime Then

use:

If dtCurTime > dtCloseTime Then

Since in the first line dtCurTime would have to exactly equal dtCloseTime, which there is very little chance of happening. In the second line, the next time the script runs After 3:00:00 AM, the app will shut down.

mmcdonal

Actually, I missed the hh:mm format, which would do the trick.

mmcdonal

Ah, Well Spotted!

Wouldn't the Formatting take care of the time factor as it evaluates it in minutes?? as the sub runs every minute it will always catch the time??