Office中国论坛/Access中国论坛

标题: 求助：按钮的定时功能 [打印本页]

作者: jinpy 时间: 2006-5-10 02:12
标题: 求助：按钮的定时功能
各位前辈：

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

谢谢！

jinpy

作者: fengrh 时间: 2006-5-10 02:39
試試看以下代碼

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

End Sub

作者: LucasLynn 时间: 2006-5-10 02:45

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

各位前辈：

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

谢谢！

jinpy

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

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

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

作者: andymark 时间: 2006-5-10 04:12

以下是引用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

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

作者: 一点通 时间: 2006-5-10 04:44
世事绝对,防不胜防

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

jinpy

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)