Office中国论坛/Access中国论坛

标题: [求助] Resume without error [打印本页]

作者: Nicole_20051 时间: 2006-1-14 01:55
标题: [求助] Resume without error
[attach]15347[/attach]

Dim MYDB As Database
Set MYDB = CurrentDb()

On Error GoTo ERR1

sql = "SELECT * FROM [d history] "
sql = sql & "WHERE [d history].[D SERIAL NUMBER] LIKE '" & [D SERIAL NUMBER] & "';"

DoCmd.OpenForm "D_HISTORY", acFormDS
Forms![D_HISTORY].RecordSource = sql

ERR1:
MsgBox Err.Description
Resume ERR2
ERR2:
Exit Sub
End Sub

问题1：
为什么上段程序（ D_SERIAL_NUMBER_DblClick）运行而有如上图的ERRROR1的错误信息出来？把On Error GoTo ERR1 的这段程序屏闭的话，程序运行正常，也无其它的错误信息。
Fail message:" Resume without error"

问题2：
采用Access2000编写的mdb，在其它的电脑运行（Access同为2000或2002的) ，需引用的工程是对的也没缺少.则报错如上图的：Error2 请问何解？

谢！[em06][em06]

作者: fan0217 时间: 2006-1-14 01:58
把例子传上来，大家看看。

作者: Nicole_20051 时间: 2006-1-14 02:33
[attach]15348[/attach]

请指教！谢！

先打开“repair form",窗体，然后双击里内的“d serial number"字段。会出现了图1的error.

作者: fan0217 时间: 2006-1-14 02:56
D_SERIAL_NUMBER的双击双击事件代码如下：

Private Sub D_SERIAL_NUMBER_DblClick(Cancel As Integer)
Dim sql As String
Dim MYDB As Database
Set MYDB = CurrentDb()

On Error Resume Next

sql = "SELECT * FROM [d history] "
sql = sql & "WHERE [d history].[D SERIAL NUMBER] LIKE '" & [D SERIAL NUMBER] & "';"

DoCmd.OpenForm "D_HISTORY", acFormDS

Forms![D_HISTORY].RecordSource = sql

'ERR1:
'MsgBox Err.Description
'Resume Next
'ERR2:
'Exit Sub
End Sub

作者: Nicole_20051 时间: 2006-1-14 03:03
嗯，这是一种方法。但这样不能将错误信息显示出来啊，如果有错误的话。

作者: fan0217 时间: 2006-1-14 03:08
需要显示错误提示采用以下代码：

Private Sub D_SERIAL_NUMBER_DblClick(Cancel As Integer)
On Error GoTo Err_D_SERIAL_NUMBER_DblClick

Dim sql As String
Dim MYDB As Database
Set MYDB = CurrentDb()

sql = "SELECT * FROM [d history] "
sql = sql & "WHERE [d history].[D SERIAL NUMBER] LIKE '" & [D SERIAL NUMBER] & "';"

DoCmd.OpenForm "D_HISTORY", acFormDS

Forms![D_HISTORY].RecordSource = sql

Exit_D_SERIAL_NUMBER_DblClick:
Exit Sub

Err_D_SERIAL_NUMBER_DblClick:
MsgBox Err.Description
Resume Exit_D_SERIAL_NUMBER_DblClick

End Sub

[此贴子已经被作者于2006-1-13 19:15:27编辑过]

作者: Nicole_20051 时间: 2006-1-14 03:58
哦，看了楼上的回复，知道错哪了。谢谢！

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