设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 882|回复: 5
打印 上一主题 下一主题

[其它] 求助:按钮的定时功能

[复制链接]
跳转到指定楼层
1#
发表于 2006-5-10 02:12:00 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
各位前辈:

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

谢谢!

jinpy
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅
2#
发表于 2006-5-10 02: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
3#
发表于 2006-5-10 02:45:00 | 只看该作者
以下是引用jinpy在2006-5-9 18:12:00的发言:


各位前辈:

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

谢谢!

jinpy

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

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

3、按钮点击代码中Disable按钮,同时将当前系统时间保存入表。
4#
发表于 2006-5-10 04:12:00 | 只看该作者
以下是引用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

这个方法虽然可以实现。如果别人更改了系统日期,上面的方法就会失效。
5#
发表于 2006-5-10 04:44:00 | 只看该作者
世事绝对,防不胜防
6#
 楼主| 发表于 2006-5-10 16:52:00 | 只看该作者
谢谢各位,通过这个论坛,一个月时间内我从一个一点都不懂Access的人,到现在可以简单写一些小东西了,也能看懂一些VBA程序了。确实是个好网站。感谢各位版主/管理员的维护,和各位热心的Access同仁!你们辛苦啦!

          jinpy
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-11-26 03:42 , Processed in 0.078445 second(s), 29 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表