Office中国论坛/Access中国论坛

标题: [求助]如何在创建报表时关闭报表不提示保存? [打印本页]

作者: chkboy 时间: 2005-4-28 21:21
标题: [求助]如何在创建报表时关闭报表不提示保存?
请问如何在一个报表中用VBA创建表格后关闭该表格时不提示是否保存?(表格不需要保存)

[attach]10178[/attach]

作者: chkboy 时间: 2005-4-29 21:12
没人懂吗……？？？

作者: gxlishuxin 时间: 2005-5-1 10:52
自定义一工具栏，调用下面的closereport()，在“报表测试”设计上应用该自定义工具栏。

Function closereport()
DoCmd.Close acReport, "报表测试", acSaveNo
End Function

作者: 周运良 时间: 2005-5-7 05:46
Private Sub 命令测试_Click()
DoCmd.SetWarnings False
'定义控件及控件长度信息并赋值
Dim col1 As Control
Dim myleft As Long
Dim mytop As Long
Dim mywith As Long
Dim myheight As Long

myleft = 0
myheight = 400
mywith = 1250
mytop = 1500

'设计模式打开报表
DoCmd.OpenReport "报表测试", acViewDesign

'创建报表内容
CtrlCount = Reports!报表测试.Controls.Count '删除控件
For it = 1 To ctrlcount

DeleteReportControl "报表测试", Reports!报表测试.Controls(0).Name
Next
Set col1 = CreateReportControl("报表测试", acTextBox, acDetail, , "姓名", myleft, 0, mywith, myheight)

[此贴子已经被作者于2005-5-6 22:09:00编辑过]

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