代码求助,请高手帮忙

bjyutong

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

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

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