设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 1535|回复: 7
打印 上一主题 下一主题

[表] 以下语句哪有里问题,他怎么老提示标准表达式错误?谢谢!

[复制链接]
跳转到指定楼层
1#
发表于 2008-1-28 09:04:08 | 显示全部楼层 回帖奖励 |倒序浏览 |阅读模式
dbs.Execute "insert into 待匹配数据未匹配数据最终结果表期末用(contract_number,  sale_department, nation, operation,  mainproduct_sort,  revenue_final, cost_final, kaohe_term, contract_number_equipment,remark ) " & _
"select contract_number,sale_department,nation,operation,product_sort,期末收入,期末成本,kaohe_term,contract_number_equipment,remark from 待匹配数据整理表按合同号加总 where kaohe_term=' #kaohe_term# '"
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅
2#
 楼主| 发表于 2008-1-28 09:06:31 | 显示全部楼层
怎么老提示“标准表达式中数据类型不匹配”
3#
 楼主| 发表于 2008-1-28 09:21:04 | 显示全部楼层
是日期型数据
4#
 楼主| 发表于 2008-1-28 10:25:15 | 显示全部楼层
不好意思,着急呀。
还是不行
他提示这样的错误,说日期型数据错误
5#
 楼主| 发表于 2008-1-28 10:32:43 | 显示全部楼层
Private Sub cmd_generate_result_Click()
Dim dbs As Database
Dim rsn As Recordset, rsxn As Recordset, rsy As Recordset, rsxy As Recordset
Dim distr_rate_type As String
Dim kaohe_term As Date
Dim distr_rate_term As Date

Set dbs = OpenDatabase("e:\我的文档\inform system\考核管理信息系统.mdb")

Set rsn = dbs.OpenRecordset("select * from 待匹配数据未匹配数据最终结果表")
Set rsxn = dbs.OpenRecordset("select * from 待匹配数据未匹配数据最终结果表期末用")
Set rsy = dbs.OpenRecordset("select * from 待匹配数据匹配数据最终结果表")
Set rsxy = dbs.OpenRecordset("select * from 待匹配数据匹配数据最终结果表期末用")

If IsNull(List63.ItemData(1)) Or IsNull(List73.ItemData(1)) Then
     MsgBox "期初或期末的数据匹配类型或匹配次序没有设置,无法生成匹配数据表!", vbOKOnly, "系统提示"
     Combo107.SetFocus
     Exit Sub
End If

distr_rate_term = Combo107.Column(1)
kaohe_term = Combo67.Column(1)

'判断表中是否有记录,如果有记录,将被删除
If rsn.RecordCount > 0 Then
   dbs.Execute "delete * from 待匹配数据未匹配数据最终结果表"
End If
If rsxn.RecordCount > 0 Then
   dbs.Execute "delete * from 待匹配数据未匹配数据最终结果表期末用"
End If
If rsy.RecordCount > 0 Then
   dbs.Execute "delete * from 待匹配数据匹配数据最终结果表"
End If
If rsxy.RecordCount > 0 Then
   dbs.Execute "delete * from 待匹配数据匹配数据最终结果表期末用"
End If

'将期初数据导入到待分配表中,以便数据的分配
dbs.Execute "insert into 待匹配数据未匹配数据最终结果表 ( contract_number,  sale_department, nation, operation, mainproduct_sort, revenue_first, cost_first, kaohe_term, contract_number_equipment,  remark ) " & _
"select contract_number,sale_department,nation,operation,product_sort,期初收入,期初成本,kaohe_term,contract_number_equipment,remark from 待匹配数据整理表按合同号加总 where [kaohe_term]= [distr_rate_term] "
'将期末数据导入到待分配表中,以便数据的分配
dbs.Execute "insert into 待匹配数据未匹配数据最终结果表期末用 ( contract_number,  sale_department, nation, operation,  mainproduct_sort,  revenue_final, cost_final, kaohe_term, contract_number_equipment,remark ) " & _
"select contract_number,sale_department,nation,operation,product_sort,期末收入,期末成本,kaohe_term,contract_number_equipment,remark from 待匹配数据整理表按合同号加总 where [kaohe_term]=[#kaohe_term#] "
MsgBox "报表数据成功生成!", vbOKOnly, "系统提示"
dbs.Close
End Sub
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-11-1 07:06 , Processed in 0.086629 second(s), 28 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表