Display message when a subform is clicked on.

[tcheck]

I have a form that has a subform that I want to display a message if a user clicks on it that it is no longer used for data input. The On Click event works if the user clicks in the top left corner. I have tried the On Got Focus and On Dirty does not pop up the message. Where should I put the command?

Thank you in advance.

[ranman256]

rather than create a popup message,
just put a label on the form that is either visible or not. That has your message.
then the only code is when the user goes to the record...

sub form_OnCurrent()
lblMsg.visible  = me.subform.locked
end sub

[tcheck]

I give them an option to open up 2 other forms depending what kind of producer the employee is, hre is the code,

If Forms![frm_Producer]![Code] = "Sales" Then
If MsgBox("Changes to MMID's and Symbols are no longer entered in the Producer form, would you like to open the Money Manager form?", vbYesNo, "Client Prompt") = vbYes Then
DoCmd.OpenForm "frm_MMID_Active", acViewNormal, acEdit
End If
End If


If Forms![frm_Producer].[Code] = "Analyst" Then
If MsgBox("Changes to Symbols are no longer entered in the Producer form, would you like to open the Symbol Manager form?", vbYesNo, "Client Prompt") = vbYes Then
DoCmd.OpenForm "frm_SymbolList_All", acViewNormal, acEdit
'Else
'MsgBox "The user status has NOT been changed"
End If
End If

[aytee111]

Set the subform to Locked in the If statement above.