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

 

[Micron]

You will need a timer event; easier to just put it on this form, but you could create a timer form and make it hidden. A value of 1000 for the timer event is 1 second. Don't check too often lest you slow down processing or make things choppy. In the timer event put something like

If Time >= TimeValue("10:00") Then
  Me.cmdButtonName.enabled = False
  Me.Repaint
End If

If you use a separate form, you need the correct forms reference:

Forms!frmFormName.cmdButtonName.Enabled = False
Forms!frmFormName.Repaint

but you should ensure the main form is open first - If CurrentProject.Allforms("frmName").IsLoaded Then
You can get fancy with this. A computation in the code block could alter the interval by half of the time difference between your appointed hour and the current time, up to a minimum value, but the form open event should be coded to re-start it at your value. Otherwise, you could end up arriving at the time and the timer event doesn't fire until some time afterwards. This operation could also get its start interval and target time from a table so you don't have to modify code. Let me know if you want to embellish the process and if so, how and I'll code something for you.

 

[tvman5683]

Ok we have a winner. This worked.
Thanks Micron!

Private Sub Form_Timer()
If Time >= TimeValue("10:35") Then
Append_to_Daily.Enabled = False
End If
End Sub

 

[Micron]

removed: double post