[求助] Resume without error

Nicole_20051

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

把例子传上来，大家看看。

Nicole_20051

请指教！谢！

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

fan0217

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

嗯，这是一种方法。但这样不能将错误信息显示出来啊，如果有错误的话。

fan0217

需要显示错误提示采用以下代码：

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

哦，看了楼上的回复，知道错哪了。谢谢！