北京 | 上海 | 天津 | 重庆 | 广州 | 深圳 | 珠海 | 汕头 | 佛山 | 中山 | 东莞 | 南京 | 苏州 | 无锡 | 常州 | 南通 | 扬州 | 徐州 | 杭州 | 温州 | 宁波 | 台州 | 福州 | 厦门 | 泉州 | 龙岩 | 合肥 | 芜湖 | 成都 | 遂宁 | 长沙 | 株洲 | 湘潭 | 武汉 | 南昌 | 济南 | 青岛 | 烟台 | 潍坊 | 淄博 | 济宁 | 太原 | 郑州 | 石家庄 | 保定 | 唐山 | 西安 | 大连 | 沈阳 | 长春 | 昆明 | 兰州 | 哈尔滨 | 佳木斯 | 南宁 | 桂林 | 海口 | 贵阳 | 西宁 | 乌鲁木齐 | 包头 |
在快速开发平台中点击新记录,会复制当前选中的记录,不知哪里错了无运行。
运行时错误’-2147217913 (80040e07)':
标准表达式中数据匹配。
点击调试出现下列提示
请大家帮忙解决一下比较着急,非常感谢!!
End SubPrivate Sub 复制当前选中记录_Click()
Dim strSQL As String
Dim cnn As Object
Dim rst As Object
Set cnn = CurrentProject.Connection
strSQL = "SELECT * FROM [审批单流水记录] WHERE [序号]=" & SQLText(Form_frm审批单流水记录.sfrList.Form![序号])
Set rst = OpenADORecordset(strSQL, , cnn)
Me![合同性质] = rst![合同性质]
Me![合同类型] = rst![合同类型]
Me![承揽合同名称] = rst![承揽合同名称]
Me![工程名称] = rst![工程名称]
Me![发包方] = rst![发包方]
Me![施工方] = rst![施工方]
Me![承办单位] = rst![承办单位]
Me![经办人] = rst![经办人]
Me![合同编号] = rst![合同编号]
Me![合同签署日期] = rst![合同签署日期]
Me![合同金额] = rst![合同金额]
Me![合同范围] = rst![合同范围]
Me![结算额] = rst![结算额]
Me![分包金额] = rst![分包金额]
Me![分包结算额] = rst![分包结算额]
Me![分包单位资质] = rst![分包单位资质]
Me![是否招投标] = rst![是否招投标]
Me![分包范围] = rst![分包范围]
Me![存档日期] = rst![存档日期]
Me![存档人] = rst![存档人]
Me![合同状态] = rst![合同状态]
Me![流转单\补签单] = rst![流转单\补签单]
Me![流程开始日期] = rst![流程开始日期]
Me![流转单编号] = rst![流转单编号]
Me![其他说明] = rst![其他说明]
Me![合同附件] = rst![合同附件]
Me![分包定价方式] = rst![分包定价方式]
rst.Close
Set rst = Nothing
Set cnn = Nothing
End Sub