运行时错误“要求对象”

宏魔法师

运行后一直提示“要求对象”，不知道问题出在哪，请高手看看

Private Sub cmd导入采购明细_Click()
Dim Rs As ADODB.Recordset
Dim Rs2 As ADODB.Recordset
Dim StrTemp As String

On Error GoTo Err_cmd导入采购明细_Click
   
    Set Rs = New ADODB.Recordset
    Set Rs2 = New ADODB.Recordset
    DoCmd.RunSQL "delete   *   from tbl关税计算明细"
   
    StrTemp = "SELECT DISTINCTROW [报关流水号],[报关税号], Sum(金额) AS [金额之总计] " _
             & "FROM tbl报关进货发票明细 " _
             & "GROUP BY [报关流水号],[报关税号]"
    Rs.Open StrTemp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
   
   
    StrTemp = "Select * From tbl关税计算明细"
    Rs2.Open StrTemp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
    Rs.MoveFirst
        
        Do While Not Rs.EOF
            Rs2.AddNew
            Rs2("报关流水号") = Rs("报关流水号")
            Rs2("报关税号") = Rs("报关税号")
            Rs2("金额总计") = Rs("金额之总计")
                    
            Rs2.Update
            Rs.MoveNext
        Loop
    Rs1.Close
    Rs2.Close
    Set Rs = Nothing
    Set Rs2 = Nothing
Exit_cmd导入采购明细_Click:
    Exit Sub
Err_cmd导入采购明细_Click:
    MsgBox Err.Description
    Resume Exit_cmd导入采购明细_Click
End Sub

andymark

引用了ADO了吗

宏魔法师

引用了 2.8

ACMAIN_CHM

哪一句报错？ 建议能提供尽可能多的信息，这样看的人容易寿命定位故障及找到原因。




******************
*  一切皆有可能  *
******************
.
ACMAIN - Access论坛回贴准则（个人）.
.
同一贴子不回复第二次
.
QQ群 48866293 / 12035577 / 7440532 / 13666209
http://www.accessbbs.cn/bbs/index.php .
http://www.accessoft.com/bbs/index.asp .
http://www.access-programmers.co.uk/forums .
http://www.office-cn.net .
.
http://www.office-cn.net/home/space.php?uid=141646 .

Henry D. Sy

传例子

宏魔法师

是弹出提示框。
我怀疑是Do While Not Rs.EOF   LOOP语句可能出问题？

ly

是弹出提示框。
我怀疑是Do While Not Rs.EOF   LOOP语句可能出问题？
宏魔法师 发表于 2009-3-14 13:02

我认为StrTemp的定义有点问题：
1、StrTemp = "SELECT DISTINCTROW [报关流水号],[报关税号], Sum(金额) AS [金额之总计] FROM tbl报关进货发票明细 GROUP BY [报关流水号],[报关税号]"
2、StrTemp = "Select * From tbl关税计算明细"
二个变量用了一个定义，建议第二个定义为StrTemp2。请你自己调试一下。