如何解决如何将两个查询的数据附加到一个表中?运行时错误:3061预期发生2
我是代码世界的新手,我需要您的帮助。我收到“运行时错误:3061预期为2”。
请注意,“ QC_MonthlyAm4CuID_Tr”和“ QC_YrlyAm4CuID_Tr”是具有不可编辑数据的查询。并且它们依靠组合框来选择参数。
我尝试了许多在Web上找到的解决方案,但均失败了。 我还尝试了dbOpenDynaset以外的其他选项,但也失败了。
有什么建议吗?
Dim db As Database
Dim rs As Recordset
Dim rsM As Recordset
Dim rsY As Recordset
Dim lngID As Long
Dim strCriteria As String
Set db = CurrentDb
Set rs = db.OpenRecordset("T_CrofServices",dbOpenDynaset)
Set rsM = db.OpenRecordset("QC_MonthlyAm4CuID_Tr",dbOpenDynaset) `*here i get the error*`
Set rsY = db.OpenRecordset("QC_YrlyAm4CuID_Tr",dbOpenDynaset)
解决方法
您需要设置查询的参数值:
Dim db As DAO.Database
Dim qdM As DAO.QueryDef
Dim qdY As DAO.QueryDef
Dim rs As DAO.Recordset
Dim rsM As DAO.Recordset
Dim rsY As DAO.Recordset
Set db = CurrentDb
Set qdM = db.QueryDefs("QC_MonthlyAm4CuID_Tr")
Set qdY = db.QueryDefs("QC_YrlyAm4CuID_Tr")
qdM.Parameters(0).Value = <ValueFromYourFirstCombobox>
qdM.Parameters(1).Value = <ValueFromYourSecondCombobox>
qdY.Parameters(0).Value = <ValueFromYourThirdCombobox>
qdY.Parameters(1).Value = <ValueFromYourForthCombobox>
Set rs = db.OpenRecordset("T_CrofServices",dbOpenDynaset)
Set rsM = qdM.OpenRecordset() `*here i get the error*`
Set rsY = qdY.OpenRecordset()
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。