text_change()问题!

quji8104 2003-03-28 08:32:15
高手帮忙!text1.text是一串数字,可现在只要输入一个数字它就响应了下面的事件
不能继续输入,想要继续输入完一串数字ELSE后面应怎么写?
Private Sub Text1_Change()
cct1.MoveFirst
cct1.Find "[卡号]='" & Trim(Text1.Text) & "'", , , adBookmarkFirst
If Not cct1.EOF Then
Text2.Text = cct1.Fields("姓名")
Text3.Text = cct1.Fields("资金")
Else
???????
???
End Sub
谢过!




...全文
12 点赞 收藏 4
写回复
4 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
饮水需思源 2003-03-29
用lostfocus事件实现
回复
佛的光辉 2003-03-29
这样的工作不要放在change事件中做
回复
zsgzsgzsg 2003-03-28
我觉得这段程序放在Text1_KeyPress()或 Text1_LostFocus()中要好一些。
回复
Zedee 2003-03-28
不是else的问题
Text1_Change()事件是每输入一个字符都会触发的

回复
相关推荐
发帖

1187

社区成员

VB 数据库(包含打印,安装,报表)
申请成为版主
帖子事件
创建了帖子
2003-03-28 08:32
社区公告
暂无公告