请老师用1个按钮来实现两个操作查询，怎么实现？请帮我把代码补充完整。

wangxy689

将EXCEL表导入到ACCESS之前，我会把数据导入到“源数据“的表格里，然后将源数据进行转化，生成“日常数据”表，来满足程序的运行。请老师帮我把两个操作查询的SQL语句合在一个模块里，
实现：1、点一个按钮完成“删除申请序列号为空的数据”、2、生成新表“日常数据”的操作查询
下面是我写的两个操作查询的SQL语句，怎么把他们导入到窗体中，形成一个按钮，完成2个操作查询动作。
1、删除“数据源”表格中"申请序列号"为空的记录的操作查询的SQL 语句。
DELETE 源数据.ID, 源数据.申请序列号, 源数据.机构名称, 源数据.保单号, 源数据.险种代码, 源数据.申请资格人姓名, 源数据.申请资格人身份证, 源数据.县区柜员工号, 源数据.变更类型, 源数据.预估金额, 源数据.给付方式, 源数据.保全受理类型, 源数据.初审工号, 源数据.复审工号, 源数据.转账账号, 源数据.支付状态, 源数据.申请时间, 源数据.初审时间, 源数据.复审时间, 源数据.操作状态
FROM 源数据
WHERE (((源数据.申请序列号) Is Null));
2、在“源数据”表中生成新表“日常数据”，并且实现日常数据增加两个字段“受理员工号”、“受理类型”的SQL语句。
SELECT 源数据.ID, 源数据.申请序列号, 源数据.机构名称, 源数据.保单号, 源数据.险种代码, 源数据.申请资格人姓名, 源数据.申请资格人身份证, 源数据.县区柜员工号, 源数据.变更类型, 源数据.预估金额, 源数据.给付方式, 源数据.保全受理类型, 源数据.初审工号, 源数据.复审工号, 源数据.转账账号, 源数据.支付状态, 源数据.申请时间, 源数据.初审时间, 源数据.复审时间, 源数据.操作状态, IIf([预估金额]>10000,[复审工号],[初审工号]) AS 受理员工号, IIf([预估金额]>10000,[保全受理类型] & "需复审",[保全受理类型]) AS 受理类型 INTO 日常数据
FROM 源数据;

snddzxb

在你的按钮单击事件中写
docmd.openquery"删除申请序列号为空的数据"
docmd.openquery“日常数据”
这样就可以运行两个操作查询了

wangxy689

回复 snddzxb 的帖子

是不是应该这样写
sub command_click()
DoCmd.openquery"DELETE 源数据.ID, 源数据.申请序列号, 源数据.机构名称, 源数据.保单号, 源数据.险种代码, 源数据.申请资格人姓名, 源数据.申请资格人身份证, 源数据.县区柜员工号, 源数据.变更类型, 源数据.预估金额, 源数据.给付方式, 源数据.保全受理类型, 源数据.初审工号, 源数据.复审工号, 源数据.转账账号, 源数据.支付状态, 源数据.申请时间, 源数据.初审时间, 源数据.复审时间, 源数据.操作状态
FROM 源数据
WHERE (((源数据.申请序列号) Is Null));"
DoCmd.openquery"SELECT 源数据.ID, 源数据.申请序列号, 源数据.机构名称, 源数据.保单号, 源数据.险种代码, 源数据.申请资格人姓名, 源数据.申请资格人身份证, 源数据.县区柜员工号, 源数据.变更类型, 源数据.预估金额, 源数据.给付方式, 源数据.保全受理类型, 源数据.初审工号, 源数据.复审工号, 源数据.转账账号, 源数据.支付状态, 源数据.申请时间, 源数据.初审时间, 源数据.复审时间, 源数据.操作状态, IIf([预估金额]>10000,[复审工号],[初审工号]) AS 受理员工号, IIf([预估金额]>10000,[保全受理类型] & "需复审",[保全受理类型]) AS 受理类型 INTO 日常数据
FROM 源数据;"
end sub
老师请看这样对不对？

wangxy689

请帮我看看这样的语句为什么错误？
Private Sub 生成日常数据_Click()
DoCmd.RunSQL "delete * from 源数据 where 申请序列号 is null"
DoCmd.RunSQL "select *,IIf([预估金额]>10000,[复审工号],[初审工号]) AS 受理员工号, IIf([预估金额]>10000,[保全受理类型] & "需复审",[保全受理类型]) AS 受理类型 INTO 日常数据 FROM 源数据;"
End Sub

ycxchen

“where 申请序列号 is null ”，申请序列号是不是自动生成的？会有空的？

roych

可否转换成2003版本？俺打不开呀。

roych

第二个应该是： insert Into……吧？

todaynew

wangxy689 发表于 2011-3-22 07:13
请帮我看看这样的语句为什么错误？
Private Sub 生成日常数据_Click()
DoCmd.RunSQL "delete * from 源数 ...

按roych同志7楼意见办。

wangxy689

请老师帮着看一下错在哪里了。

wangxy689

回复 roych 的帖子

roych 老师、煮江品茶老师，……高手老师，我可崇拜你们了，你帮我加一个按钮吧，就是生成日常数据的按钮，这个两个按钮是操作查询一个是删除记录查询、一个是更新查询，我VBA学的不好，看看我的语句错在哪里了，请帮着改一下吧，谢谢了。