An event within an event

[Wildster]

Hi,
I want to put an event within an event but it seems as though this can't be done and I need to figure a work around. Basically I am trying to say that if the user clicks on the 'cmdRenewTraining' button then it just saves the record without the prompt asking if they wish to save. If they dont press the 'cmdRenewTraining' button then I want the prompt to ask them if they want to save changes. The code looks to make sense but I think the reason Access wont allow it is because it's an event within an event, any ideas how I can get around this problem please? I'm guessing I need to remove lines 2-5 and bring them outside the Private Sub Form_BeforeUpdate(Cancel As Integer)??

Private Sub Form_BeforeUpdate(Cancel As Integer)
 If cmdRenewTraining_Click() Then
DoCmd.Save
End If
Else
 
    If MsgBox("Changes have been made to this record." _
        & vbCrLf & vbCrLf & "Do you want to save these changes?" _
        , vbYesNo, "Changes Have Been Made") = vbYes Then
            DoCmd.Save
        Else
            DoCmd.RunCommand acCmdUndo
    End If
    End If
End Sub

Thanks

[ADezii]

Hi,
I want to put an event within an event but it seems as though this can't be done and I need to figure a work around. Basically I am trying to say that if the user clicks on the 'cmdRenewTraining' button then it just saves the record without the prompt asking if they wish to save. If they dont press the 'cmdRenewTraining' button then I want the prompt to ask them if they want to save changes. The code looks to make sense but I think the reason Access wont allow it is because it's an event within an event, any ideas how I can get around this problem please? I'm guessing I need to remove lines 2-5 and bring them outside the Private Sub Form_BeforeUpdate(Cancel As Integer)??

Private Sub Form_BeforeUpdate(Cancel As Integer)
 If cmdRenewTraining_Click() Then
DoCmd.Save
End If
Else
 
    If MsgBox("Changes have been made to this record." _
        & vbCrLf & vbCrLf & "Do you want to save these changes?" _
        , vbYesNo, "Changes Have Been Made") = vbYes Then
            DoCmd.Save
        Else
            DoCmd.RunCommand acCmdUndo
    End If
    End If
End Sub

Thanks

1. First of all, you cannot Save a Record in the BeforeUpdate() Event of a Form.
2. You can experiment with the following logic, it should be close to what you are requesting:
   1. Declare a Private Variable in the Form's Code Module. The state of this Variable (True/False) will indicate whether or not the cmdRenewTraining button was clicked.
      

      Private blnRenewTraining As Boolean

   2. Place the following code in the Click() Event of cmdRenewTraining:
      

      Private Sub cmdRenewTraining___Click()
        blnRenewTraining = True       'Indicate the Button was clicked
        DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
      End Sub

   3. Copy and Paste the following code in the BeforeUpdate() Event of the Form. The code will first check and see if the cmdRenewTraining button was clicked and act accordingly:
      

      Private Sub Form_BeforeUpdate(Cancel As Integer)
      If blnRenewTraining = False Then    'Renew Training Button not clicked
        If MsgBox("Changes have been made to this record." _
              & vbCrLf & vbCrLf & "Do you want to save these changes?" _
              , vbYesNo, "Changes Have Been Made") = vbYes Then
        Else
          DoCmd.RunCommand acCmdUndo
        End If
      End If
      End Sub

   4. Reset our Variable in the AfterUpdate() Event of the Form:
      

      Private Sub Form_AfterUpdate()
        blnRenewTraining = False
      End Sub

3. I basically threw this together before bedtime, I'll leave it up to you to determine how well it works. It has obvious drawbacks such as if Required Fields are not filled in prior to repeated Saves, you will continue to get the annoying prompt, etc,

[Wildster]

1. First of all, you cannot Save a Record in the BeforeUpdate() Event of a Form.
2. You can experiment with the following logic, it should be close to what you are requesting:
   1. Declare a Private Variable in the Form's Code Module. The state of this Variable (True/False) will indicate whether or not the cmdRenewTraining button was clicked.
      

      Private blnRenewTraining As Boolean

   2. Place the following code in the Click() Event of cmdRenewTraining:
      

      Private Sub cmdRenewTraining___Click()
        blnRenewTraining = True       'Indicate the Button was clicked
        DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
      End Sub

   3. Copy and Paste the following code in the BeforeUpdate() Event of the Form. The code will first check and see if the cmdRenewTraining button was clicked and act accordingly:
      

      Private Sub Form_BeforeUpdate(Cancel As Integer)
      If blnRenewTraining = False Then    'Renew Training Button not clicked
        If MsgBox("Changes have been made to this record." _
              & vbCrLf & vbCrLf & "Do you want to save these changes?" _
              , vbYesNo, "Changes Have Been Made") = vbYes Then
        Else
          DoCmd.RunCommand acCmdUndo
        End If
      End If
      End Sub

   4. Reset our Variable in the AfterUpdate() Event of the Form:
      

      Private Sub Form_AfterUpdate()
        blnRenewTraining = False
      End Sub

3. I basically threw this together before bedtime, I'll leave it up to you to determine how well it works. It has obvious drawbacks such as if Required Fields are not filled in prior to repeated Saves, you will continue to get the annoying prompt, etc,

Thanks very much, it's a good solution to the problem and makes sense. Having made a few tweaks here and there it now works perfectly.

Thanks again

[ADezii]

Thanks very much, it's a good solution to the problem and makes sense. Having made a few tweaks here and there it now works perfectly.

Thanks again

You are quite welcome.