请各位看看下述功能应怎么实现（access2010）

pascal331

为什么将代码改成

1. DoCmd.RunSQL "insert into 清帐记录 ( 姓名, 编号, 凭证编号, 摘要, 收回金额, 清账日期 )" _
   
2. 
   
3. & "select jiedai.姓名, jiedai.编号, '该记录为客户结账记录' as 凭证编号," _
   
4. 
   
5. & "'如有礼让金则收回金额将≠应收余额' as 摘要,  value.请输入清账收回金额 as 收回金额, now() as 清账日期 " _
   
6. 
   
7. & "from jiedai where 姓名 like'" & Combo0.Value & "'"

复制代码

就可以？和我要的效果一样

pascal331

Henry D. Sy 发表于 2011-12-13 12:18
说说，具体要求什么，想得到什么样的结果！
请描述清楚点！

为什么将代码改成

1. DoCmd.RunSQL "insert into 清帐记录 ( 姓名, 编号, 凭证编号, 摘要, 收回金额, 清账日期 )" _
   
2. 
   
3. & "select jiedai.姓名, jiedai.编号, '该记录为客户结账记录' as 凭证编号," _
   
4. 
   
5. & "'如有礼让金则收回金额将≠应收余额' as 摘要,  value.请输入清账收回金额 as 收回金额, now() as 清账日期 " _
   
6. 
   
7. & "from jiedai where 姓名 like'" & Combo0.Value & "'"

复制代码

就可以？我要的就是类似这种效果

Henry D. Sy

不是太明白你的意思，
"insert into 清帐记录 ( 姓名, 编号, 凭证编号, 摘要, 收回金额, 清账日期 )" _
             & "select jiedai.姓名, jiedai.编号, '该记录为客户结账记录' as 凭证编号," _
             & "'如有礼让金则收回金额将≠应收余额' as 摘要," & CCur(InputBox("请输入收回金额")) & " as 收回金额, #" & Date & "# as 清账日期 " & "from jiedai where 姓名 like '" & Combo0.Value & "'"

pascal331

Henry D. Sy 发表于 2011-12-13 13:52
不是太明白你的意思，
"insert into 清帐记录 ( 姓名, 编号, 凭证编号, 摘要, 收回金额, 清账日期 )" _
  ...

谢谢了，解决了