Help - Save button and a Notification to Save a Change (subform)

[matey56]

Hi all,
I have followed the instructions in the link below to add a save button (that is grayed out until data is entered) and a notification when the form is closed without saving first. It works perfectly, but I have several forms that have subforms that it doesn't work with. The save button is on the main form and the records are on the subform. How can I tweak the code to make it work in these situations?

https://www.iaccessworld.com/create-...n-save-change/

Here is the vba code I added:

Private Sub Form_Dirty(Cancel As Integer)
Me.cmdSave.Enabled = True


End Sub

Private Sub cmdSave_Click()
Saved = True
DoCmd.RunCommand(acCmdSaveRecord)
Me.cmdSave.Enabled = False
Saved = False
End Sub

Private Sub Form_BeforeUpdate(Cancel As Integer)
Dim Response As Integer
If Saved = False Then
Response = MsgBox("Do you want to save the changes on this record?", vbYesNo, "Save Changes?")
If Response = vbNo Then
Me.Undo
End If
Me.cmdSave.Enabled = False
End If
End Sub

[ranman256]

Why the save button?
Data is saved automatically when user leaves the record.

[mike60smart]

I agree with ranman, there is no need for any of the code just have a Close Button

[matey56]

I knew someone was going to ask me that. Users were messing up the data too often. They would often times type incorrect data then close the tab thinking the data wasn't saved. Because that's how Word, Excel, etc. works. They're just used to it.

Why the save button?
Data is saved automatically when user leaves the record.

[matey56]

So is there a way to make this work using the form/subform relationship?

[Welshgasman]

I believe you would need to duplicate the code in the subforms?, as soon as they move to the mainform their data would be saved.

[matey56]

I believe you would need to duplicate the code in the subforms?, as soon as they move to the mainform their data would be saved.

I did that, but it's not working. I just don't know what's missing.

[Gicu]

Have a look at this related thread and download the sample I uploaded there and review it.
https://www.access-programmers.co.uk.../#post-1863514

Cheers,

[Gicu]

Edit: double-post

[June7]

Ad Vlad's code demonstrates, use the Cancel argument of BeforeInsert and BeforeUpdate events.

Could also have data validation for each control.

Data entry into a database is not like creating a Word or Excel document. In my experience, users expect data to be saved when they click a Save button and don't need to be annoyed with a message to verify. That's why I provide a Cancel button as well as a Save button.

I have never used form BeforeUpdate or BeforeInsert events.

[matey56]

I keep getting errors because the subform doesn't have the cmdSave button.

[Gicu]

And what are the errors please? Have you look at the sample?

[matey56]

And what are the errors please? Have you look at the sample?

Here's one for example:



It's because he cmdSave button is not in the subform right? I'm using an unbound box in my main form to retrieve records in my subform.

[Gicu]

Of course that is the cause, and it looks like you have a reference to the Save command button in the previous event as well. You need to modify the code to match your forms. Not sure what an unbound box is, I suspect you use it as the Master field in the Master\Child linking fields. Is the main form unbound? If yes what is to save there? You need to show us a bit more or spend the time to understand what the code does and modify it to work for the subform.
I am attaching the sample I mentioned in my original post, review how the code is implemented in the subform.

Cheers,

[matey56]

The main form is not unbound. It's record source is a query that displays data from a separate table. However, there is nothing to save on the main form. It's display data only (thus the reason for the subform). It's just the only space for a save button because it's a one-to-many relationship and each product will have dozens of records displayed on the subform. I don't want each record to have a save button. Once the user selects a product from the unbound box on the main form, it requeries the subform (see code below). If the save button is not on the subform, I don't know how to make the code work.


Private Sub cbo_select_product_AfterUpdate()
Me.Requery
Me.qsfm_Label_Tracking.Form.Requery