Office中国论坛/Access中国论坛

标题: 运行时错误“要求对象” [打印本页]

作者: 宏魔法师 时间: 2009-3-13 21:51
标题: 运行时错误“要求对象”
运行后一直提示“要求对象”，不知道问题出在哪，请高手看看

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 时间: 2009-3-13 22:02
引用了ADO了吗

作者: 宏魔法师 时间: 2009-3-13 22:06
引用了 2.8

作者: ACMAIN_CHM 时间: 2009-3-14 09:01
哪一句报错？建议能提供尽可能多的信息，这样看的人容易寿命定位故障及找到原因。

******************
* 一切皆有可能 *
******************
.
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 时间: 2009-3-14 09:07
传例子

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

作者: ly 时间: 2009-3-14 21:18

是弹出提示框。
我怀疑是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。请你自己调试一下。

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