Disable Form button at a fixed time

[tvman5683]

Hello,
I have a form with a button that appends to a external text file. It is used by multiple users. The text file is captured at 3:00 PM for processing. I want to stop any after 3:00 PM activity.
Is there a way to disable the button based on the internal clock?

Thanks for any help
JB

 

[dmt32]

I assume by Form you mean UserForm? if so, try adding following to your forms Initialize event & see if this does what you want.

Private Sub UserForm_Initialize()
    Me.CommandButton1.Enabled = Not Time >= TimeValue("15:00")
End Sub

Change commandbutton name as required.

Dave

 

[tvman5683]

Thanks Dave, I will give it a try.
can I also add a MsgBox ("3:00 PM deadline has Expired")

 

[dmt32]

Thanks Dave, I will give it a try.
can I also add a MsgBox ("3:00 PM deadline has Expired")

Try:

Private Sub UserForm_Initialize()
    With Me.CommandButton1
        .Enabled = Not Time >= TimeValue("15:00")
        If Not .Enabled Then MsgBox "3:00 PM deadline has Expired", 16, "Time Expired"
    End With
End Sub

Dave

 

[Micron]

Since this is the Access forum section, you would not use UserForm or Initialize. It would be Private Sub Form_Open(Cancel As Integer). Better to do this on the open event rather than the Load event. This assumes you want the message after 15:00 regardless of what else they may be able to do with the form.

 

[tvman5683]

Tried this as a test but did not work. I didn't see an "Initialize" selection in the for properties list so i just pasted the code in.
also my button name had spaces so I bracketed. Not sure if that's the cause of the failure??

JB

Private Sub Form_Initialize()
With Me.[Append to Daily]
.Enabled = Not Time >= TimeValue("08:00")
If Not .Enabled Then MsgBox "3:00 PM deadline has Expired", 16, "Time Expired"
End With
End Sub

 

[dmt32]

My apologies but it won't as I picked this thread up in an Excel Forum & just assumed you were using Excel. Look at post #5

 

[tvman5683]

Thanks Micron,
That did seem to disable the button using the 8:00 AM time. I reset to 9:30 to see if it goes from active to disabled.

Thanks aslo to Dave for the original code.

JB

 

[tvman5683]

It works perfectly if you open the database after the time deadline. but if you have the form open and the deadline passes the button still works. So is there another form property besides _Open that would work anytime?

Thanks
JB

 

[tvman5683]

Could I use the _On Timer function to refresh the form?