求助：按钮的定时功能

jinpy

各位前辈：

我的一个窗体中有一个按钮作用是用来运行一个宏组的，现在想实现一个功能：让此按钮在每月的22日点击有效，并且当点击一次后，此按钮变成灰色不可再点了，再到下月的22日时由又可以点击，点击一次后，按钮又变灰色不可用了。如此循环。

谢谢！

jinpy

jinpy

谢谢各位，通过这个论坛，一个月时间内我从一个一点都不懂Access的人，到现在可以简单写一些小东西了，也能看懂一些VBA程序了。确实是个好网站。感谢各位版主/管理员的维护，和各位热心的Access同仁！你们辛苦啦！

          jinpy

一点通

世事绝对,防不胜防

andymark

以下是引用fengrh在2006-5-9 18:39:00的发言：


試試看以下代碼

Private Sub Form_Load()
If Format(DatePart("d", Date), "00") = 22 Then
Me!按鈕.Enabled = True
Else
Me!按鈕.Enabled = False
End If

End Sub

这个方法虽然可以实现。如果别人更改了系统日期，上面的方法就会失效。

LucasLynn

以下是引用jinpy在2006-5-9 18:12:00的发言：


各位前辈：

我的一个窗体中有一个按钮作用是用来运行一个宏组的，现在想实现一个功能：让此按钮在每月的22日点击有效，并且当点击一次后，此按钮变成灰色不可再点了，再到下月的22日时由又可以点击，点击一次后，按钮又变灰色不可用了。如此循环。

谢谢！

jinpy

1、使用一个表来保存你最后一次点击这个按钮的时间，初始可设定为1900年1月1日。

2、窗体代码中将上次的点击时间与当前时间比较，其间是否有22日存在，如果有则Enable，反之则Disable。

3、按钮点击代码中Disable按钮，同时将当前系统时间保存入表。

fengrh

試試看以下代碼

Private Sub Form_Load()
If Format(DatePart("d", Date), "00") = 22 Then
Me!按鈕.Enabled = True
Else
Me!按鈕.Enabled = False
End If

End Sub