如何让 access2010 文本框 限时可以输入
发布网友
发布时间：2022-09-28 13:38
共1个回答
好二三四
时间：2022-09-28 17:59
方法步骤如下：
1、打开access，并打开自己的数据表；
2、选中自己要修改默认日期的表，单击进入设计视图；
3、选择日期字段，在字段属性中找到默认值；
4、在默认值中输入Date，并点击保存即可。
Access是由微软发布的关系数据库管理系统，它结合了MicrosoftJetDatabaseEngine和图形用户界面两项特点，是Office的系统程序之一。
热心网友
时间：2024-02-23 06:27
举例：有个窗体如下，文本框Text0用来11点到12点可以录入的文本框；Text1是窗体上其它文本框，
由于Text0文本框大多数时间内是禁用的，故将Text0的数据属性的“可用”设置为“否”，如下图
窗体1的事件属性中的“计时器间隔”（单位是毫秒）设置为1000，表示每隔1秒程序会运行“计时器触发”事件1次，当然由于你的时间跨度较大也可设置为60000，即1分钟运行计时器事件1次。
“计时器触发”的事件过程的代码如下：
Private Sub Form_Timer()
If Hour(Now()) >= 11 And Hour(Now()) < 12 Then
Me.Text0.Enabled = True
Else
Me.Text1.SetFocus
Me.Text0.Enabled = False
End If
End Sub
说明：Now()函数返回电脑当前时间，Hour()返回时间的小时数，当时间在11~12点则
Me.Text0.Enabled = True ，Text0可用
否则 Me.Text0.Enabled = False ，Text0不可用，为灰色
Me.Text1.SetFocus，（Text1可用你窗体上任何其它可接收焦点的控件代替），为什么加上这句，是因为当一个控件获得焦点时是不允许改变其属性的，会报错；在可用期间如果到了12点，光标正好在Text0文本框上，即焦点在Text0上，此时运行Else之后的Me.Text0.Enabled = False语句会报错，加上这句，焦点就不在Text0上了。
以上即可达到您的要求。
追问这样应该是可以的，那如果想在上一级窗体点击打开按钮时就用messagebox提示不在时间内呢？
追答在窗体“打开”事件中，输入如下的代码：
Private Sub Form_Open(Cancel As Integer)
If Hour(Now()) = 12 Then
MsgBox "每天11:00至12:00时间段方可使用!"
Cancel = True
End If
End Sub
说明：窗体的open事件可以通过参数Cancel来决定是否打开还是取消该事件，Cancel = True表示取消为真，不打开窗体。
