[求助]如何在创建报表时关闭报表不提示保存?

chkboy

请问如何在一个报表中用VBA创建表格后关闭该表格时不提示是否保存?(表格不需要保存)

chkboy

没人懂吗……？？？

gxlishuxin

自定义一工具栏，调用下面的closereport()，在“报表测试”设计上应用该自定义工具栏。

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

周运良

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编辑过]