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

pascal331

Henry D. Sy 发表于 2011-12-11 13:47
简单的方法就是用分组报表，然后分组统计！
还可以用主子报表，但我打不开你的库，不知道库的具体情况， ...

17楼有我转成2003版的，劳烦您给看看

Henry D. Sy

1. Option Compare Database
   
2. Option Explicit
   
3. Dim strT As String
   
4. 
   
5. Private Sub 打印_Click()
   
6.     Dim Criteria As String
   
7.     If Len(strT) <> 0 Then
   
8.         Criteria = "地区 in (" & strT & ")"
   
9.     Else
   
10.         Criteria = ""
    
11.     End If
    
12.     DoCmd.OpenReport "jiedai", acViewPreview, , Criteria
    
13. End Sub
    
14. 
    
15. Private Sub 关闭_Click()
    
16.     DoCmd.Close
    
17. End Sub
    
18. 
    
19. Private Sub 地区_AfterUpdate()
    
20. 
    
21.     Dim vItem As Variant
    
22.     Dim sSQL As String
    
23.     strT = ""
    
24.     For Each vItem In Me.地区.ItemsSelected
    
25.         strT = strT & "'" & Me.地区.ItemData(vItem) & "',"
    
26.     Next
    
27.     If strT = "" Then
    
28.         sSQL = "select * from dzj where 地区"
    
29.     Else
    
30.         sSQL = "select * from dzj where 地区 in (" & strT & ")"
    
31.     End If
    
32.     Me.dzj.Form.RecordSource = sSQL
    
33. End Sub
    

复制代码

Henry D. Sy

附件老是传不上，晕！

pascal331

Henry D. Sy 发表于 2011-12-11 15:00
附件老是传不上，晕！

刚才正在设计报表，没看见您的消息。
话说看了你做的报表，我打算删了我做的

bpchan

学习！

pascal331

Henry D. Sy 发表于 2011-12-11 15:00
附件老是传不上，晕！

请问要怎样设置才能使代码运行到"请输入清账收回金额"时弹出输入该值的对话框？

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

复制代码

Henry D. Sy

把例子传上来吧

pascal331

Henry D. Sy 发表于 2011-12-13 11:12
把例子传上来吧

Henry D. Sy

说说，具体要求什么，想得到什么样的结果！
请描述清楚点！

pascal331

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

如下图