Office中国论坛/Access中国论坛

标题: [求助]请教如何实现通过鼠标单击实现文本的循环输入 [打印本页]

作者: jinfen314 时间: 2007-7-6 18:19
标题: [求助]请教如何实现通过鼠标单击实现文本的循环输入
如一个字段有三个值,分别是a b c

请问如何在窗体或数据表中通过单击控件自动录入

单击一次录入a 再单击一次是b 再单击是c 再单击又是a 如此循环

作者: hi-wzj 时间: 2007-7-6 22:41
直接用一个列表框或组合框不是很简单?

作者: tz-chf 时间: 2007-7-6 22:45
用变量记录一下

作者: hi-wzj 时间: 2007-7-6 23:19
如果一定要用此方法实现，可参考以下代码：

Private Sub Text0_Click()
Text0 = Chr(Asc(Text0) + 1)
If Asc(Text0) > 99 Then Text0 = "a"
End Sub

Private Sub Text0_GotFocus()
If Nz(Text0) < "a" Or Nz(Text0) > "c" Then Text0 = "a"
End Sub

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