Office中国论坛/Access中国论坛

标题: Access报表问题求救 [打印本页]

---

作者: kunn82    时间: 2009-3-17 15:46
标题: Access报表问题求救
最近使用Access2003，想调用数据库中的数据生成一个report，发现一个比较奇怪的问题，向大家请教   

我首先创建了一个form一个report, frm确认键的响应代码很简单是这样的：

Dim rpt As Report, ctlNew As Control
Dim tctl As Control

'''这部分是清空report中上次生成的已有的一些控件，但不清空footer中的pagename
DoCmd.OpenReport "rptA3", acViewDesign
    Set rpt = Reports![rptA3]
errordel:
    For Each tctl In rpt.Controls
        If tctl.Name = "pagename" Then
            GoTo a1
        End If
        DeleteReportControl rpt.Name, tctl.Name
a1:    Next tctl
    If rpt.Controls.count > 1 Then GoTo errordel
    rpt.BorderStyle = 1
    rpt.Section(acDetail).Height = 15

'''下面就是创建要在该report上显示的label
Set ctlNew = CreateReportControl(rpt.Name, acLabel, acDetail, , , 2700, 100, 5000, 600)
    ctlNew.Caption = "你好"
    ctlNew.FontBold = True
    ctlNew.FontName = "黑体"
    ctlNew.FontSize = 24
    ctlNew.TextAlign = 2
    ctlNew.SizeToFit
    Set ctlNew = Nothing   

    Set ctlNew = CreateReportControl(rpt.Name, acLabel, acDetail, , , 500, 800, 800, 300)
    ctlNew.Caption = "周期："
    ctlNew.FontBold = True
    ctlNew.FontName = "黑体"
    ctlNew.FontSize = 10
    ctlNew.SizeToFit
    Set ctlNew = Nothing   

    Set ctlNew = CreateReportControl(rpt.Name, acLabel, acDetail, , , 1500, 800, 1500, 300)
    ctlNew.Caption = DLookup("codename", "tblcode", "codetype='Cycle' and codeNo='" & Me.ComrentDate.value & "'")
    ctlNew.FontName = "黑体"
    ctlNew.FontSize = 10
    ctlNew.SizeToFit
    Set ctlNew = Nothing   

'''然后保存，并打开report
    DoCmd.Save acReport, rpt.Name
    DoCmd.OpenReport rpt.Name, acViewPreview
    DoCmd.Maximize

在实际操作过程中，我打开form点击确认，报表便生成并最大化，但是我关闭报表再点击确认，如此反复多次后，就会出现报表打不开的问题
此时我在编辑界面双击rptA3，也打不开了，提示The expression on format you entered as the event property setting produced the following error:There isn't enough memory to complete the automation object on the | object.
在开发界面编译时，弹出窗口提示out of memory

---

作者: 红尘如烟    时间: 2009-3-18 13:40

1. Dim rpt As Report, ctlNew As Control
   
2. Dim tctl As Control
   
3. 
   
4. '''这部分是清空report中上次生成的已有的一些控件，但不清空footer中的pagename
   
5. DoCmd.OpenReport "rptA3", acViewDesign
   
6.     Set rpt = Reports![rptA3]
   
7. errordel:
   
8.     For Each tctl In rpt.Controls
   
9.         If tctl.Name <> "pagename" Then
   
10.         DeleteReportControl rpt.Name, tctl.Name
    
11.         End If
    
12.     Next
    
13.    
    
14.     rpt.BorderStyle = 1
    
15.     rpt.Section(acDetail).Height = 15
    
16. 
    
17. '''下面就是创建要在该report上显示的label
    
18. Set ctlNew = CreateReportControl(rpt.Name, acLabel, acDetail, , , 2700, 100, 5000, 600)
    
19.     With ctlNew
    
20.         .Caption = "你好"
    
21.         .FontBold = True
    
22.         .FontName = "黑体"
    
23.         .FontSize = 24
    
24.         .TextAlign = 2
    
25.         .SizeToFit
    
26.     End With
    
27. 
    
28.     Set ctlNew = CreateReportControl(rpt.Name, acLabel, acDetail, , , 500, 800, 800, 300)
    
29.     With ctlNew
    
30.         .Caption = "周期："
    
31.         .FontBold = True
    
32.         .FontName = "黑体"
    
33.         .FontSize = 10
    
34.         .SizeToFit
    
35.     End With
    
36. 
    
37.     Set ctlNew = CreateReportControl(rpt.Name, acLabel, acDetail, , , 1500, 800, 1500, 300)
    
38.     With ctlNew
    
39.         .Caption = DLookup("codename", "tblcode", "codetype='Cycle' and codeNo='" & Me.ComrentDate.Value & "'")
    
40.         .FontName = "黑体"
    
41.         .FontSize = 10
    
42.         .SizeToFit
    
43.     End With
    
44. '''然后保存，并打开report
    
45.     DoCmd.Save acReport, rpt.Name
    
46.     DoCmd.OpenReport rpt.Name, acViewPreview
    
47.     DoCmd.Maximize
    
48.    
    
49.     Set rpt = Nothing
    
50.     Set ctlNew = Nothing
    
51.     Set tctl = Nothing
    

复制代码

---

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)

Powered by Discuz! X3.3