Message box to alert if changes are being made on a form/subform

[mjvm]

Hi,

I have successfully added code that alerts the user if they are making a change to a record when a check box is 'true'. However, the form includes a subform. I can't work out how to trigger the message box when changes are made on the subform.

I don't know how to include the subform in my code below.
OR whether to write code for the subform and reference the check box (I tried frm.DischargedSP and Me.frm.DischargedSP

The subform is called: sbfrmContacts
The check box is called DischargedSP and the main form is called frmClientForm.

My code is as follows (the yes/no message box works):

Private Sub Form_Dirty(Cancel As Integer)
If DischargedSP = True Then
Response = MsgBox("You are editing a client whose episode of care is closed. Do you want to proceed?", vbYesNo)
If Response - vbYes Then
Cancel = True
Me.Undo
End If
End If
End Sub


Really appreciate some help.

thanks,
Marcella

[jimatqsi]

I think this is what you need. I keep a bookmark to this page and find myself visiting it often.
http://access.mvps.org/access/forms/frm0031.htm

Jim

[PhilOfWalton]

I suspect you could use exactly the same code on the subform, but change the second line to:-

    If Me.Parent!DischargedSP = True Then
 

Phil

[mjvm]

thank you for this.
ticked this as best reply because it answered my question in the most straightforward way - which is what I need :)

[mjvm]

thanks Jim - this is a really useful page, and I'm sure others will find it helpful.