Forms VBA Tabs

[johnbird1988]

Hello
I have a form with 5 different tabs. On one of the tabs called “Employee” I have a sub form. When I click on this tab I know that access will automatically save any change because it moves out of focus. Is there some VBA code I can attached to the “Employee” tab that will respond to a yes, no box? I would like the Yes to continue to the “Employees” tab and the no to return to the current tab. I have the below bit of code at the moment.
Private Sub Employee_Click()
If MsgBox("All changes will be saved. Would you like to continue?", vbYesNo) = vbYes Then
End If
End Sub
End Sub
Thank you
John

 

[boblarson]

Just use the subform's Before Update event. If you cancel, it should stay where it is.

Private Sub Form_BeforeUpdate(Cancel As Integer)
    If Msgbox("All changes will be saved.  Would you like to continue?", vbQuestion + vbYesNo, "Please Confirm...") = vbNo Then
        Cancel = True
   End If
End Sub

Oh, and by the way - you can't use the tab's click event or the tab page's click event. They are useless. You have to use the tab control's ON CHANGE event to do anything associated with someone moving to another tab. We don't in this part because we are working with the Before Update event which should cancel the move if it is canceled.