Office中国论坛/Access中国论坛

标题: 求助：如何在不同情况下在同一文本框设定不同的默认值？ [打印本页]

作者: ferockpan 时间: 2012-5-5 00:48
标题: 求助：如何在不同情况下在同一文本框设定不同的默认值？
我在窗体中的一个文本框要输入班次“1班”、“2班”或“3班”，我想通过系统时间来设置默认值。

00：00~08：00 为“1班”；
08：00~16：00为“2班”；
16：00~00：00为“3班”

如当系统时间为“09：10”时，文本框默认为“2班”；当系统时间为“17：10”时，文本框默认为“3班”；

这样可以操作吗？谢谢！

作者: kangking 时间: 2012-5-5 11:16
Dim st As Integer
st = Format(Time(), "hhmm")

Select Case st
Case 0 To 759
      Text0 = "1班"
Case 800 To 1559
      Text0 = "2班"
Case 1600 To 2359
      Text0 = "3班"
End Select

作者: Henry D. Sy 时间: 2012-5-7 08:59

Private Sub Form_Load()
Dim t, dv
t = Format(Now, "hhmm")
Select Case t
Case Is <= 800
dv = """1班"""
Case Is <= 1600
dv = """2班"""
Case Is <= 2400
dv = """3班"""
End Select
Me.Text0.DefaultValue = dv
End Sub

复制代码

作者: ferockpan 时间: 2012-5-9 08:22

Henry D. Sy 发表于 2012-5-7 08:59

多谢版主的帮忙,谢谢!

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