How NOT to save a form or report

[PhilOfWalton]

I use the following routine to open a form or report, check if there is an OnLoad event, if not I add it.

Experimentall I type

PP_OpenForm(2,"RptSeminarbesucher", acPreview)
 

into the Debug Window

I then add a line of code to translate the form into a foreign language. All works perfectly ... nearly.

Function PP_OpenForm(FormOrReport As Integer, FormReportName As String, Optional StrView As String = acNormal, _
    Optional StrFilterName As String, Optional StrWhereCondition As String, _
    Optional varDataMode As Variant = acFormPropertySettings, _
    Optional varWindowMode As Variant = acWindowNormal, Optional varOpenArgs As Variant)
 
    'PP_OpenForm(2,"RptSeminarbesucher", acPreview)
 
    Dim TypeOfObject As Object
    Dim Mdl As Module
    Dim StartLine As Long, EndLine As Long
    Dim StartCol As Long, EndCol As Long
    Dim Increment As Integer
    Dim HasMdl As Boolean
    Dim ModuleAdded As Boolean
    Dim PP_LoadAdded As Boolean
    Dim ProcLineCount As Long
 
    ' Opens a form and insert PP_Load me.Name into the On open Event
 
    If FormOrReport = 1 Then
        DoCmd.OpenForm FormReportName, acDesign
        Set TypeOfObject = Forms!FormReportName
    Else
        DoCmd.OpenReport FormReportName, acDesign
        Set TypeOfObject = Reports(FormReportName)
    End If
 
    HasMdl = TypeOfObject.HasModule             ' Save has module
    If TypeOfObject.HasModule = 0 Then
        TypeOfObject.HasModule = -1
    End If
 
    Increment = 2
 
    Set Mdl = TypeOfObject.Module
 
    If FormOrReport = 1 Then                    ' Form
        Mdl.Find "Form_Load", StartLine, StartCol, EndLine, EndCol
        If StartLine = 0 Then                       ' Sub Form_Load not found
            StartLine = Mdl.CreateEventProc("Load", "Form")
            ModuleAdded = -1
        End If
    Else                                        ' Report
        Mdl.Find "Report_Load", StartLine, StartCol, EndLine, EndCol
        If StartLine = 0 Then
            StartLine = Mdl.CreateEventProc("Load", "Report")
        End If
    End If
 
    Mdl.Find "PP_Load", StartLine, StartCol, EndLine, EndCol
 
    'StartLine = 0
    If StartLine = 0 Then
        Mdl.InsertLines StartLine + Increment, "    PP_Load " & Chr$(34) & TypeOfObject.name & Chr$(34)
        PP_LoadAdded = -1
    End If
 
    If FormOrReport = 1 Then
        DoCmd.OpenForm FormReportName, StrView, StrFilterName, StrWhereCondition, varDataMode, varWindowMode, varOpenArgs
    Else
        DoCmd.OpenReport FormReportName, StrView, StrFilterName, StrWhereCondition, varWindowMode, varOpenArgs
    End If
 
CleanUp:
    DoEvents
 
    Exit Function
 
End Function
 

The problem is when the form or report is closed I am prompted whether to save it. The answer is always "NO"

Now I do not want to modify any forms or reports so is there a way or preventing the question and just closing the form or report unchanged?

Phil

[NeoPa]

Hi Phil.

I've attached a very quick and very basic database that illustrates what I was trying to say earlier. One Form, one Command Button on that Form. Simple as you like.

I include the code below :

Option Compare Database
Option Explicit
 
Private blnAllowClose As Boolean
 
Private Sub cmdClose_Click()
    blnAllowClose = True
    Call DoCmd.Close(ObjectType:=acForm, ObjectName:=Me.Name, Save:=acSaveNo)
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
    Dim strMsg As String
 
    If Not blnAllowClose Then
        Cancel = True
        strMsg = "You may only close this form by clicking the Close button"
        Call MsgBox(Prompt:=strMsg _
                  , Buttons:=vbInformation Or vbOKOnly _
                  , Title:=Me.Name)
    End If
End Sub

Please confirm this is what you were after.