Master and Detail Split Form View

[Missinglinq]

The 'save' button should simply initiate the save and nothing else. No Messagebox, nothing except initiate the save. Once that is clicked, execution will go to the Form_BeforeUpdate event, and the Messagebox will then pop up, making sure that the user actually wants to save the Record and hasn't hit the button by mistake.

For the 'save' button you can simply use

DoCmd.RunCommand acCmdSaveRecord



Linq ;0)>

[james28]

The 'save' button should simply initiate the save and nothing else. No Messagebox, nothing except initiate the save. Once that is clicked, execution will go to the Form_BeforeUpdate event, and the Messagebox will then pop up, making sure that the user actually wants to save the Record and hasn't hit the button by mistake.

For the 'save' button you can simply use

DoCmd.RunCommand acCmdSaveRecord

Linq ;0)>

Thank you for the explanation! If I am understanding correctly, my save button is actually still functioning just fine. The issue is that the Form_BeforeUpdate event fires after clicking save, which then makes the message show up.


The save command that you suggested is actually what I am currently using in my form.


Do you know of any way to add a condition or some other stop, so that users are not given the popup option when they click the save button?

Thank you again!

[June7]

I suggested an approach in post 8.

[james28]

June,

Thank you for the reply. Sorry that I missed that! That sounds exactly like what I am trying to do. Unfortunately, I have no idea where to begin to do that. Do you happen to have a tutorial or sample that you could guide me with?


Thank you again!

[June7]

Are you interested in the suggestion to use Boolean variable declared in module header? I never actually used that approach. What exactly do you not understand about the suggestion? How to declare variable in module header? How to set the variable? How to reference it in BeforeUpdate event?

[james28]

June,

Thank you for the reply. Unfortunately, I have no experience in doing any of what you said. Any examples or tutorials would be greatly appreciated.

Thank you!

[June7]

You show posts with VBA code you implemented. Exactly where are you lost? I really don't want to reproduce a tutorial in a forum thread. If you lack basic knowledge of programming concepts, VBA language, Access functionality - that is way too much to cover here.

The suggestion I offer will involve maybe 5 lines of code.

1. declare a Boolean variable in the form code module header
Dim booSave As Boolean

2. reference the variable in appropriate events
In the Save/Close button Click:
booSave = True
In the BeforeUpdate:
If booSave = True Then
'do this
Else
'do this
End If

[james28]

June,

Thank you for the reply and the patience. I really appreciate it. I certainly am no expert in any of the things that you mentioned, but I am learning.

As much as I would like to take credit for the code I posted before, it was not originally mine.




In your example, I understand what to do for #2. I simply replace my code in the Form_BeforeUpdate with what you have (replacing the do this).

I am not so sure what to do with step 1. I think it may have to do with my lack of terminology.


Are you saying that the "form code module header" is the name of the area between Private Sub Form_BeforeUpdate(Cancel As Integer) and what you have in #2?


By that I mean, the entire thing should look like:

Private Sub Form_BeforeUpdate(Cancel As Integer)
Dim booSave As Boolean
booSave = True
In the BeforeUpdate:
If booSave = True Then
'do this
Else
'do this
End If

If that is not what you were saying, I do not know where the "form code module header" is. I found reference to a FormHeader and an Auto_Header0, but nothing specifically called "module header".



Thank you again!

[June7]

No, the header is at the top of the module before any procedure code

Option Compare Database
Option Explicit
Dim booSave As Boolean

Private Sub Save_Click()
booSave = True
DoCmd.RunCommand acCmdSaveRecord
End Sub

Private Sub Form_BeforeUpdate(Cancel As Integer)
If booSave = True Then
'run this code
booSave = False
Else
Cancel = True
End If
End Sub