473,549 Members | 2,576 Online
Bytes | Software Development & Data Engineering Community
+ Post

Home Posts Topics Members FAQ

How NOT to save a form or report

PhilOfWalton
1,430 Recognized Expert Top Contributor
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
Expand|Select|Wrap|Line Numbers
  1. PP_OpenForm(2,"RptSeminarbesucher", acPreview)
  2.  
into the Debug Window

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

Expand|Select|Wrap|Line Numbers
  1. Function PP_OpenForm(FormOrReport As Integer, FormReportName As String, Optional StrView As String = acNormal, _
  2.     Optional StrFilterName As String, Optional StrWhereCondition As String, _
  3.     Optional varDataMode As Variant = acFormPropertySettings, _
  4.     Optional varWindowMode As Variant = acWindowNormal, Optional varOpenArgs As Variant)
  5.  
  6.     'PP_OpenForm(2,"RptSeminarbesucher", acPreview)
  7.  
  8.     Dim TypeOfObject As Object
  9.     Dim Mdl As Module
  10.     Dim StartLine As Long, EndLine As Long
  11.     Dim StartCol As Long, EndCol As Long
  12.     Dim Increment As Integer
  13.     Dim HasMdl As Boolean
  14.     Dim ModuleAdded As Boolean
  15.     Dim PP_LoadAdded As Boolean
  16.     Dim ProcLineCount As Long
  17.  
  18.     ' Opens a form and insert PP_Load me.Name into the On open Event
  19.  
  20.     If FormOrReport = 1 Then
  21.         DoCmd.OpenForm FormReportName, acDesign
  22.         Set TypeOfObject = Forms!FormReportName
  23.     Else
  24.         DoCmd.OpenReport FormReportName, acDesign
  25.         Set TypeOfObject = Reports(FormReportName)
  26.     End If
  27.  
  28.     HasMdl = TypeOfObject.HasModule             ' Save has module
  29.     If TypeOfObject.HasModule = 0 Then
  30.         TypeOfObject.HasModule = -1
  31.     End If
  32.  
  33.     Increment = 2
  34.  
  35.     Set Mdl = TypeOfObject.Module
  36.  
  37.     If FormOrReport = 1 Then                    ' Form
  38.         Mdl.Find "Form_Load", StartLine, StartCol, EndLine, EndCol
  39.         If StartLine = 0 Then                       ' Sub Form_Load not found
  40.             StartLine = Mdl.CreateEventProc("Load", "Form")
  41.             ModuleAdded = -1
  42.         End If
  43.     Else                                        ' Report
  44.         Mdl.Find "Report_Load", StartLine, StartCol, EndLine, EndCol
  45.         If StartLine = 0 Then
  46.             StartLine = Mdl.CreateEventProc("Load", "Report")
  47.         End If
  48.     End If
  49.  
  50.     Mdl.Find "PP_Load", StartLine, StartCol, EndLine, EndCol
  51.  
  52.     'StartLine = 0
  53.     If StartLine = 0 Then
  54.         Mdl.InsertLines StartLine + Increment, "    PP_Load " & Chr$(34) & TypeOfObject.name & Chr$(34)
  55.         PP_LoadAdded = -1
  56.     End If
  57.  
  58.     If FormOrReport = 1 Then
  59.         DoCmd.OpenForm FormReportName, StrView, StrFilterName, StrWhereCondition, varDataMode, varWindowMode, varOpenArgs
  60.     Else
  61.         DoCmd.OpenReport FormReportName, StrView, StrFilterName, StrWhereCondition, varWindowMode, varOpenArgs
  62.     End If
  63.  
  64. CleanUp:
  65.     DoEvents
  66.  
  67.     Exit Function
  68.  
  69. End Function
  70.  
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
Oct 4 '17 #1
10 3417
NeoPa
32,564 Recognized Expert Moderator MVP
Hi Phil.

In the Form_Unload() event procedure have it set the Cancel parameter based on whether or not it's been closed by your special closing code. In your special closing code (probably behind a Close button) ensure you close the Form or Report with code similar to :
Expand|Select|Wrap|Line Numbers
  1. Call DoCmd.Close(ObjectType:={acForm or acReport} _
  2.                , ObjectName:=Me.Name _
  3.                , Save:=acSaveNo)
This (How to Close a Main Form Without Saving Changes of any Subforms) may also help.
Oct 5 '17 #2
PhilOfWalton
1,430 Recognized Expert Top Contributor
Hi Neopa

Thanks for reply, but still no dice.

Here is the full code.
Expand|Select|Wrap|Line Numbers
  1. Function PP_OpenForm(FormOrReport As Integer, FormReportName As String, Optional StrView As String = acNormal, _
  2.     Optional StrFilterName As String, Optional StrWhereCondition As String, _
  3.     Optional varDataMode As Variant = acFormPropertySettings, _
  4.     Optional varWindowMode As Variant = acWindowNormal, Optional varOpenArgs As Variant)
  5.  
  6.     '?PP_OpenForm(2,"RptSeminarbesucher",acPreview)
  7.  
  8.     Dim TypeOfObject As Object
  9.     Dim Mdl As Module
  10.     Dim StartLine As Long, EndLine As Long
  11.     Dim StartCol As Long, EndCol As Long
  12.     Dim Increment As Integer
  13.     Dim HasMdl As Boolean
  14.     Dim ProcLineCount As Long
  15.     Dim InsertStr As String
  16.     Dim LoadStartLine As Long
  17.     Dim UnloadStartLine As Long
  18.  
  19.     ' Opens a form and insert PP_Load me.Name into the On open Event
  20.  
  21.     If FormOrReport = 1 Then
  22.         DoCmd.OpenForm FormReportName, acDesign
  23.         Set TypeOfObject = Forms!FormReportName
  24.     Else
  25.         DoCmd.OpenReport FormReportName, acDesign
  26.         Set TypeOfObject = Reports(FormReportName)
  27.     End If
  28.  
  29.     HasMdl = TypeOfObject.HasModule             ' Save has module
  30.     If TypeOfObject.HasModule = 0 Then
  31.         TypeOfObject.HasModule = -1
  32.     End If
  33.  
  34.     Increment = 2
  35.  
  36.     Set Mdl = TypeOfObject.Module
  37.  
  38.     If FormOrReport = 1 Then                    ' Form
  39.         Mdl.Find "Form_Load", StartLine, StartCol, EndLine, EndCol
  40.         If StartLine = 0 Then                       ' Sub Form_Load not found
  41.             StartLine = Mdl.CreateEventProc("Load", "Form")
  42.         End If
  43.     Else                                        ' Report
  44.         Mdl.Find "Report_Load", StartLine, StartCol, EndLine, EndCol
  45.         If StartLine = 0 Then
  46.             StartLine = Mdl.CreateEventProc("Load", "Report")
  47.         End If
  48.     End If
  49.  
  50.     LoadStartLine = StartLine
  51.  
  52.     StartLine = 0
  53.     Mdl.Find "PP_Load", StartLine, StartCol, EndLine, EndCol, True, True
  54.  
  55.     If StartLine = 0 Then
  56.         InsertStr = "    PP_Load  " & Chr$(34) & TypeOfObject.name & Chr$(34)
  57.         Mdl.InsertLines LoadStartLine + Increment, InsertStr
  58.     End If
  59.  
  60.     ' Unload procedure to stop it asking to save
  61.     StartLine = 0
  62.  
  63.     If FormOrReport = 1 Then                    ' Form
  64.         Mdl.Find "Form_Unload", StartLine, StartCol, EndLine, EndCol
  65.         If StartLine = 0 Then                       ' Sub Form_Load not found
  66.             StartLine = Mdl.CreateEventProc("Unload", "Form")
  67.         End If
  68.     Else
  69.         Mdl.Find "Report_Unload", StartLine, StartCol, EndLine, EndCol
  70.         If StartLine = 0 Then
  71.             StartLine = Mdl.CreateEventProc("Unload", "Report")
  72.         End If
  73.     End If
  74.  
  75.     UnloadStartLine = StartLine
  76.  
  77.     StartLine = 0
  78.  
  79.     Mdl.Find "PP_Unload", StartLine, StartCol, EndLine, EndCol
  80.  
  81.     If StartLine = 0 Then
  82.         InsertStr = "    PP_Unload  " & FormOrReport & ", " & Chr$(34) & TypeOfObject.name & Chr$(34)
  83.         Mdl.InsertLines UnloadStartLine + Increment, InsertStr
  84.     End If
  85.  
  86.     Debug.Print Mdl.Lines(1, 15)
  87.  
  88.     If FormOrReport = 1 Then
  89.         DoCmd.OpenForm FormReportName, StrView, StrFilterName, StrWhereCondition, varDataMode, varWindowMode, varOpenArgs
  90.     Else
  91.         DoCmd.OpenReport FormReportName, StrView, StrFilterName, StrWhereCondition, varWindowMode, varOpenArgs
  92.     End If
  93.  
  94. End Function
  95.  
  96. Function PP_Unload(ObjType As Integer, ObjName As String) As Boolean
  97.  
  98.     On Error GoTo PP_Onload_Err
  99.  
  100.     If ObjType = 1 Then                     ' Form
  101.         DoCmd.Close acForm, ObjName, acSaveNo
  102.     Else
  103.         DoCmd.Close acReport, ObjName, acSaveNo
  104.     End If
  105.  
  106. PP_Onload_Exit:
  107.     Exit Function
  108.  
  109. PP_Onload_Err:
  110.     If Err = 2585 Then
  111.         Resume PP_Onload_Exit
  112.     Else
  113.         LogError Err, Err.Description, "PP_Unload"
  114.     End If
  115.  
  116. End Function
  117.  
After running the code, the Debug statement shows the correct code for the "Modified report". The Report opens correctly in the desired language, but still asks me to save it when I close the report.

Any further thoughts

Phil
Oct 5 '17 #3
NeoPa
32,564 Recognized Expert Moderator MVP
No further thoughts Phil, but you may like to reread what I said in my earlier post. LMK if further explanation is required.
Oct 6 '17 #4
PhilOfWalton
1,430 Recognized Expert Top Contributor
I have a vague idea that it may be possible to create a "virtual" copy of the form or report and append it to the database AllForms or AllReports collections.

Then make the necessary changes to this virtual report, display it, and on closing just remove remove it from the Allforms or AllReprts collection.

Is this likely to work?
Is there likely to be database bloat issues?

Phil
Oct 6 '17 #5
NeoPa
32,564 Recognized Expert Moderator MVP
Phil:
Is this likely to work?
No. I may be mistaken but I don't see any reason to assume that would have the effect you're after.
Phil:
Is there likely to be database bloat issues?
No. If you were to try it I don't see any reason that it would cause any more bloat than opening Forms/Reports in the usual way.

I'm afraid I have a very busy weekend ahead Phil. When I can though, I'll try to fit in posting more details about how I use the technique i outlined in my earlier post. I'm surprised that Access doesn't treat changes made while in display view as temporary automatically myself. That would leave you with nothing to do. However, they don't, so I've developed a fairly straightforward technique to handle exactly that which I use in many of my Forms. Some Forms and most Reports don't need it but for those that do I use the technique explained earlier. It's always worked perfectly for me.
Oct 6 '17 #6
PhilOfWalton
1,430 Recognized Expert Top Contributor
Thanks to all for advice

The problem is solved don't ask how, but involves class modules & virtual forms. Anyway it works for forms so I think I can use the same technique for reports.

Here goes ...

Phil
Oct 8 '17 #7
PhilOfWalton
1,430 Recognized Expert Top Contributor
Spoke too soon. The routine works perfectly for forms, but I can't get it to work for Reports.

To Clarify, this is a program to translate any database into a different language. Obviously it has limitations but it translates Labels, Captions, Command Buttons, Check Boxes, Option Buttons, Control Tip Text, Status Bar, Combo & List boxes where there is a value list, some Combo & List boxes where there is a query on both forms or reports.

An output language is selected and what should happen is that you either have a command button open the form or report (or even use the debug window).

The form if the command is for Form, use the code
PLP_OpenFormRep ort 1, "FormName"

and for Reports
PLP_OpenFormRep ort 2, "ReportName "

It works perfectly for forms, but have been struggling for a week using pretty well identical code to get it to work for Reports, but with no joy.

If anyone has any time to spare, I would be grateful for assistance, but it may or may not be a 5 minute job

Thanks for any volunteers

Phil
Oct 9 '17 #8
NeoPa
32,564 Recognized Expert Moderator MVP
I'd certainly love to help you through this Phil. Unfortunately, for now, I'm up to my eyeballs on various different levels so working hard simply to avoid drowning.

Maybe at the weekend I may get some time to talk you through it. In the meantime, when I get a little less time as it will take less, I'd like to flesh out my earlier suggestion so that it's understandable to a larger audience. My earlier comments were certainly kept brief but it seems clear now there were probably a little too cryptic.

I haven't forgotten you or this particular issue.

-Ade.
Oct 11 '17 #9
PhilOfWalton
1,430 Recognized Expert Top Contributor
Thanks Adrian, I really appreciate your offer. In the mean time, I have more than enough to keep me out of mischief

Cheers

Phil
Oct 11 '17 #10

Sign in to post your reply or Sign up for a free account.

Similar topics

1
2157
by: Scott Sabo | last post by:
I have a form & report based on a query which shows details about employees performance reviews (hire date, review date, review submital date, etc). We do 90 day probation reviews as well and I want to be able to indicate employees who have a hire date that is within 90 days of the current date and highlight their records in the form and...
0
5354
by: ghadley_00 | last post by:
MS Access Create form / report with multiple pages using different background images Hi, Would like to have users fill out a multipage form, and then click a print button, which pulls up the info just entered for a particular record and print out multiple pages of forms, each page having a different image as background.
0
2548
by: ernxos | last post by:
Hi, There is a button on one of my www pages which changes page content. It adds some fields to the form, which is created by php script. After changing the page is displayed once again. What I want to do is to save form data so after changing and reloading the page field are filled. That button is not Submit button. Can I do such thing?
3
5893
by: Mac Campbell | last post by:
For some unknown reason my mdb seemed to drop a module I had named "Utilities". I tried to copy the module back in from a backup copy and got the error message "<<MyProject>> is currently unable to rename the form, report, or module to 'Utilities' ... Close the database, reopen it, and try the rename operation again." This didn't work. It seemed...
2
2108
by: =?Utf-8?B?QmlsbHkgWmhhbmc=?= | last post by:
I am using reporting service with asp.net. I want to save a report snapshot in some time. How do I do this in asp.net? Is there any web service to do this? Thanks in advance! -Billy
3
10869
by: MyWaterloo | last post by:
I am trying to open my purchase orders form and go to the last record. In the on open command I do: DoCmd.GoToRecord , , acLast Seems straight forward enough...but I keep getting this message "You entered an expression that has invalid reference to the property Form/Report" before the form opens. After I acknowledge the message the form opens...
2
2310
by: kimeee | last post by:
I have a form that faculty need to fill out but it is very long and some stop before they can finish it and then have to re-enter all the fields they previously populated. So my boss asked if there was a way to set up the form so there is a 'save form' button and a 'submit' button, so our faculty don't have to complete the form in one sitting. ...
8
4110
Seth Schrock
by: Seth Schrock | last post by:
I'm creating a billing database and I'm wanting to be able to save the report that I use for the bill. I thought about using a Make Table query, but then you get a ton of tables. I could also export to PDF. My main problem is that I want a link to each bill in the customer form so that if a customer has a question about the bill, I can just...
3
13976
beacon
by: beacon | last post by:
Hi everybody, I'm using Access 2010, but the format for the database is .mdb because I'm not ready to fully convert it to Access 2010 and the .accdb format. I've been reading up on how to create Shortcut Menus in Access 2010 using VBA and I'm pretty confident I understand how most of it works...meaning that I can create a custom shortcut...
2
4495
by: nalongar | last post by:
Hi! First off, bear with me; I've just started to learn VBA and this is my first post on this site. My question could be extremely basic, but I haven't been able to find anything via the internet that fits my needs exactly. I need a way to save a report to a specific path after I have printed it as a PDF, so that I can send it as an email...
0
7526
marktang
by: marktang | last post by:
ONU (Optical Network Unit) is one of the key components for providing high-speed Internet services. Its primary function is to act as an endpoint device located at the user's premises. However, people are often confused as to whether an ONU can Work As a Router. In this blog post, we’ll explore What is ONU, What Is Router, ONU & Router’s main...
0
7723
Oralloy
by: Oralloy | last post by:
Hello folks, I am unable to find appropriate documentation on the type promotion of bit-fields when using the generalised comparison operator "<=>". The problem is that using the GNU compilers, it seems that the internal comparison operator "<=>" tries to promote arguments from unsigned to signed. This is as boiled down as I can make it. ...
1
7483
by: Hystou | last post by:
Overview: Windows 11 and 10 have less user interface control over operating system update behaviour than previous versions of Windows. In Windows 11 and 10, there is no way to turn off the Windows Update option using the Control Panel or Settings app; it automatically checks for updates and installs any it finds, whether you like it or not. For...
0
6051
agi2029
by: agi2029 | last post by:
Let's talk about the concept of autonomous AI software engineers and no-code agents. These AIs are designed to manage the entire lifecycle of a software development project—planning, coding, testing, and deployment—without human intervention. Imagine an AI that can take a project description, break it down, write the code, debug it, and then...
1
5375
isladogs
by: isladogs | last post by:
The next Access Europe User Group meeting will be on Wednesday 1 May 2024 starting at 18:00 UK time (6PM UTC+1) and finishing by 19:30 (7.30PM). In this session, we are pleased to welcome a new presenter, Adolph Dupré who will be discussing some powerful techniques for using class modules. He will explain when you may want to use classes...
0
3487
by: adsilva | last post by:
A Windows Forms form does not have the event Unload, like VB6. What one acts like?
1
1949
by: 6302768590 | last post by:
Hai team i want code for transfer the data from one system to another through IP address by using C# our system has to for every 5mins then we have to update the data what the data is updated we have to send another system
1
1063
muto222
by: muto222 | last post by:
How can i add a mobile payment intergratation into php mysql website.
0
771
bsmnconsultancy
by: bsmnconsultancy | last post by:
In today's digital era, a well-designed website is crucial for businesses looking to succeed. Whether you're a small business owner or a large corporation in Toronto, having a strong online presence can significantly impact your brand's success. BSMN Consultancy, a leader in Website Development in Toronto offers valuable insights into creating...

By using Bytes.com and it's services, you agree to our Privacy Policy and Terms of Use.

To disable or enable advertisements and analytics tracking please visit the manage ads & tracking page.