close dynamically report without saving prompt

[xezekielx]

Hi! I dynamically created a small report (with code) and I wanted to know if it was possible to close said report while avoiding the small "Do you wish to save" prompt. Thanks in advance!

 

[GingerR]

This will always save changes:
DoCmd.Close acReport, "ReportName", acSaveYes

This will never save them:
DoCmd.Close acReport, "ReportName", acSaveNo

This will prompt you (DEFAULT):
DoCmd.Close acReport, "ReportName", acSavePrompt



Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ222-2244. Basics at

http://r937.com/relational.html

 

[xezekielx]

Thanks GingerR but how can I "implement" the close event or whatever with a dynamically created report (I mean created with the CreateReport([parameters]) method) ? Thanks again for your answer!

 

[GingerR]

Oh....I guess I thought you were already closing it, hence getting the message you didn't want to see....
Can't you just put it after your CreateReport code?

Function MakeNewReport()
    Dim rpt As Report
    Dim strOldName, strNewName As String

    strNewName = "GingerReport"
    Set rpt = CreateReport
    DoCmd.Restore
    strOldName = rpt.Name
    DoCmd.Save acReport, strOldName
    DoCmd.Close acReport, strOldName, acSaveNo
    DoCmd.Rename strNewName, acReport, strOldName

End Function

Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ222-2244. Basics at

http://r937.com/relational.html