I have a form, EmpForm with a subform, Activity. There are two
controls on the mainform. First control entitled HoursWorked
calculates data from two fields on the mainform,=DateDiff("s",
[StartTime],[EndTime])/3600. The second control, ActivityHours
calcualates data from the subform, =frmActivity.Form!TotalHrs.

I need the code to put behind the Close button on the Mainform which
will prevent the mainform and subform form closing unless the
HoursWorked and ActivityHours are equal.

Thank you for your help

Ron

A_Classic_Man wrote:

Perhaps something similar to the following might work.
If Me.YourMainFormControlName <>_
Me.YourSubformName!YourSubformsControlName then
Msgbox "Values don't match!"
else
Docmd.Close acForm, Me.name
Endif

On Feb 14, 11:11*am, Salad <sa... (AT) oilandvinegar (DOT) com> wrote:
Thank you, your help is appreciated.

A_Classic_Man wrote:

Do realize that if there are no records in you subform it will probably
error.
If Me.YourSubformName.Form.Recordcount > 0 then...
'do your check
endif

Also, if you have an X button, it will run your code and close as well.
If a record exists, you can cancel the Unload. If it's a new record I
don't think there's a built in way to determine the X was trapped, so
you'd get the error message and then it would close.

On 14/02/2011 22:36:37, Salad wrote:
Disable the close button on the form and create a command button to close the
form. You can then run whatever checks you want and if they fail, just cancel
the event. If the checks are OK then DoCms.Close acform, "EmpForm"
Phil