B
Beeyen
Good Day,
I have a mainform and subform with tabs. Whenever I enter information into
a field in the mainform and then go to a tab in the subform I receive a ‘Save
Record†message (the coding is located below). When I select ‘No’ the input
on the mainform disappears and the field in the subform I am trying to select
to include information with the record becomes active. If I select yes to
save the record is not complete with the right choices and opens a new
record. The message just recently started appearing.
Has anyone experienced this and if, so can you share your resolve.
Thanks
Private Sub Form_BeforeUpdate(Cancel As Integer)
Dim strMsg As String
strMsg = "Workload Tracker Data has changed."
strMsg = strMsg & "@Would you like to save the changes?"
strMsg = strMsg & "@Click Yes to Save or No to Discard changes and exit
out."
If MsgBox(strMsg, vbQuestion + vbYesNo, "Save Record?") = vbYes Then
'do nothing
Else
DoCmd.RunCommand acCmdUndo
'Created for WHI Benefits use by Michael Banks
End If
End Sub
I have a mainform and subform with tabs. Whenever I enter information into
a field in the mainform and then go to a tab in the subform I receive a ‘Save
Record†message (the coding is located below). When I select ‘No’ the input
on the mainform disappears and the field in the subform I am trying to select
to include information with the record becomes active. If I select yes to
save the record is not complete with the right choices and opens a new
record. The message just recently started appearing.
Has anyone experienced this and if, so can you share your resolve.
Thanks
Private Sub Form_BeforeUpdate(Cancel As Integer)
Dim strMsg As String
strMsg = "Workload Tracker Data has changed."
strMsg = strMsg & "@Would you like to save the changes?"
strMsg = strMsg & "@Click Yes to Save or No to Discard changes and exit
out."
If MsgBox(strMsg, vbQuestion + vbYesNo, "Save Record?") = vbYes Then
'do nothing
Else
DoCmd.RunCommand acCmdUndo
'Created for WHI Benefits use by Michael Banks
End If
End Sub