Private Sub Command51_Click()
On Error GoTo Err_Command51_Click
docmd.runsql "INSERT INTO 准备 ( 序号,客户号, 审核日期, 退款银行, 客户编码, 应付收益, 已领收益, 增值收益, 合计, 编码 )
SELECT (SELECT IIF(Max(准备.序号)>=1,Max(准备.序号),0)
FROM 准备)+1 AS 序号, 客户查询02.客户号, Date() AS 审核日期, 客户查询02.退款银行, 客户查询02.客户编码, Round(客户查询02.贷方*客户查询02.增值比例,2) AS 应付收益, forms!总账客户!TEXT71 AS 已领收益, Round(客户查询02.贷方*客户查询02.增值比例,2)-forms!总账客户!TEXT71 AS 增值收益, Round(客户查询02.贷方*客户查询02.增值比例,2)-forms!总账客户!TEXT71 AS 合计, 客户查询02.编码
FROM 客户查询02"
Exit_Command51_Click:
Exit Sub
Err_Command51_Click:
MsgBox Err.Description
Resume Exit_Command51_Click
请高手指点应该怎么改,谢谢!作者: todaynew 时间: 2009-10-16 10:40
dim ssql as string
ssql="INSERT INTO 准备 ( 序号,客户号, 审核日期, 退款银行, 客户编码, 应付收益, 已领收益, 增值收益, 合计, 编码 ) "
ssql=ssql & "SELECT (SELECT IIF(Max(准备.序号)>=1,Max(准备.序号),0) FROM 准备)+1 AS 序号, "
ssql=ssql & "客户查询02.客户号, Date() AS 审核日期, 客户查询02.退款银行, 客户查询02.客户编码, "
ssql=ssql & " Round(客户查询02.贷方*客户查询02.增值比例,2) AS 应付收益, forms!总账客户!TEXT71 AS 已领收益, "
ssql=ssql & "Round(客户查询02.贷方*客户查询02.增值比例,2)-forms!总账客户!TEXT71 AS 增值收益, "
ssql=ssql & "Round(客户查询02.贷方*客户查询02.增值比例,2)-forms!总账客户!TEXT71 AS 合计, 客户查询02.编码 "
ssql=ssql & "FROM 客户查询02;"
docmd.runsql ssql作者: xyxj1974 时间: 2009-10-16 11:18
Private Sub Command51_Click()
On Error GoTo Err_Command51_Click
docmd.runsql "INSERT INTO 准备 ( 序号,客户号, 审核日期, 退款银行, 客户编码, 应付收益, 已领收益, & _
增值收益, 合计, 编码 ) & _
SELECT (SELECT IIF(Max(准备.序号)>=1,Max(准备.序号),0) & _
FROM 准备)+1 AS 序号, 客户查询02.客户号, Date() AS 审核日期, 客户查询02.退款银行, 客户查询02.客 & _
户编码, Round(客户查询02.贷方*客户查询02.增值比例,2) AS 应付收益, forms!总账客户! & _
TEXT71 AS 已领收益, Round(客户查询02.贷方*客户查询02.增值比例,2)-forms!总账客户!TEXT71 AS & _
增值收益, Round(客户查询02.贷方*客户查询02.增值比例,2)-forms!总账客户!TEXT71 AS 合计, 客 & _
户查询02.编码 & _
FROM 客户查询02"
Exit_Command51_Click:
Exit Sub
Err_Command51_Click:
MsgBox Err.Description
Resume Exit_Command51_Click