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

jinfen314

如一个字段有三个值,分别是a  b  c

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

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

hi-wzj

直接用一个列表框或组合框不是很简单?

tz-chf

用变量记录一下

hi-wzj

如果一定要用此方法实现，可参考以下代码：

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