Office中国论坛/Access中国论坛

标题: 请进来看看!!~ [打印本页]

作者: llee 时间: 2004-2-1 20:05
标题: 请进来看看!!~
请教大家几个问题,谢谢!
1 我怎样才能在窗体上实时显示系统时间,
个人想法:在窗体上建一个标签,然后每秒读取一次系统时间显示在标签的标题上.
具体怎样实现那?
2 窗体中有个ID相,想写个程序判断以键入几位,当键入到N位时程序自动回车.
这个偶就不知道怎样实现了,请大侠指教.

作者: 宿命的风 时间: 2004-2-1 23:16
1\[attach]3306[/attach]
2\在表的字段里设置字段长度就可以了

作者: 李寻欢 时间: 2004-2-1 23:18
1、把窗体的“计时器间隔”设为1000（即每秒运行一次），在Form_Timer()里更改标签的值。
2、
Private Sub ID_KeyUp(KeyCode As Integer, Shift As Integer)
Static intKnm As Integer
intKnm = intKnm + 1
If intKnm = 9 Then
SendKeys "{ENTER}"
intKnm = 0
End If
End Sub

[此贴子已经被作者于2004-2-1 15:26:42编辑过]

作者: llee 时间: 2004-2-1 23:31
谢谢,
第一个里我不想要日期怎么办那?
第2个我可能不用键盘敲入数字,而是用射频卡刷入,请问效果是一样的吗?

作者: 李寻欢 时间: 2004-2-1 23:36
1、用time()函数
2、卡里不可以设回车字符吗？

[此贴子已经被作者于2004-2-1 15:36:29编辑过]

作者: llee 时间: 2004-2-1 23:48
第一个知道了Me.Label0.Caption = Format(Now(), "Hh:Nn:Ss")

作者: llee 时间: 2004-2-2 00:23
第二个有点问题:我让它自动回车4次,运行后就好像不停地回车了,而且连鼠标都动不了.
窗体里一共有4个文本框,4次回车后就会存储数据,原来手动回车是好的,但现在就不行了.
KeyUp这个事件是不是把回车也算一次KeyUp啊?这可怎么解决啊!

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