| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 586 人关注过本帖
标题:[求助]如何让出现错误时不用退出程序
只看楼主 加入收藏
lhf391855540
Rank: 1
等 级:新手上路
帖 子:175
专家分:0
注 册:2006-10-14
结帖率:0
收藏
 问题点数:0 回复次数:5 
[求助]如何让出现错误时不用退出程序
我编的一个程序中,在文本框中输入户主姓名,在户主信息中要出现该户主的详细信息,但当输入错误时,会出现
实时错误‘3077’
字符串的语法错误
的对话框,提示键入的表达式无效,并须退出程序后重新启动应用程序,怎样才能让出现错误时不用退出程序呢?
谢谢各位大虾赐教!
搜索更多相关主题的帖子: 错误时 户主 对话框 
2007-03-04 07:56
lhf391855540
Rank: 1
等 级:新手上路
帖 子:175
专家分:0
注 册:2006-10-14
收藏
得分:0 
源程序中,相关代码如下:
Private Sub Text1_Change(Index As Integer)
name4$ = Text1(2).Text
Data4.Recordset.FindFirst "户主姓名=" & "'" & name4$ & "'"
End Sub

要让文本框中输入出现错误时不用退出程序,代码应如何修改呢?
请赐教!谢谢!
2007-03-04 08:14
PcrazyC
Rank: 6Rank: 6
等 级:贵宾
威 望:29
帖 子:5652
专家分:0
注 册:2006-10-20
收藏
得分:0 

在代码前加一句 On Error Resume Next

Private Sub Text1_Change(Index As Integer)

On Error Resume Next '遇到错误继续执行下一句
name4$ = Text1(2).Text
Data4.Recordset.FindFirst "户主姓名='" & name4$ & "'" '只是简化了一下,原来的没有问题
End Sub


雁无留踪之意,水无取影之心
2007-03-04 09:21
HaCk的旋律
Rank: 1
等 级:新手上路
威 望:1
帖 子:73
专家分:0
注 册:2006-12-1
收藏
得分:0 

为什么要加(Index As Integer)???


做我所想! 欢迎大家加我好友@ Mailto: buxchang@
2007-03-04 10:50
PcrazyC
Rank: 6Rank: 6
等 级:贵宾
威 望:29
帖 子:5652
专家分:0
注 册:2006-10-20
收藏
得分:0 
当然是控件数组了

雁无留踪之意,水无取影之心
2007-03-04 10:56
lhf391855540
Rank: 1
等 级:新手上路
帖 子:175
专家分:0
注 册:2006-10-14
收藏
得分:0 
谢谢PcrazyC指教
2007-03-04 11:42
快速回复:[求助]如何让出现错误时不用退出程序
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.022058 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved