Main form and subform

[jle0003]

In my database, I have an "Event" form that contains an "Activities" subform. Each Event can have several activities associated with it. Here is what I want to do:

When all the "Activities" in an Event have an "ActivityStatus" of "Closed", I want the "EventClosed" checkbox on the Main Event form to auto check.

I have attached a sample database. The Main Menu will allow you to select a "New Event" which opens a blank Event form ready for a new entry or you can select "Event List" which will open up a list of already created Events and allow you to open that Event for edits.

Any help is much appreciated!

Thanks!

[burrina]

Using an AfterUpdateEvent of your criteria, you can do something like,

If Me.ActivityStatus = "Closed" Then Me.[MyCheckBox] = True

HTH

[ranman256]

I would say you need a routine say: CheckEventClosed()
it would go on the form_oncurrent event, and subform_afterupdate event

have 2 'invisible' text boxes that count the sub form query
1 to count closed records (linked to the master key)
1 to count all records (linked to the master key)

txtClosedCount = dcount("*",qsSubFormClosed)
txtAllCount= dcount("*",qsSubFormAll)

'this event will run when you change record, or update the sub form.

sub  CheckEventClosed()
   chkEventclosed.value = txtClosedCount = txtAllCount
end sub

[John_G]

Hi -

In the AfterUpdate event of the ActivityStatus control of the subform, add this code:

Private Sub ActivityStatus_AfterUpdate()
  If Me![ActivityStatus] = "open" Then
    Me.Parent![EventClosed] = False
  Else
    If Me.Dirty Then Me.Dirty = False
    If DCount("*", "sfrmActivities", "eventID = " & Me.Parent![EventID] & " AND ActivityStatus = ""Open"" ") = 0 Then Me.Parent![EventClosed] = True
  End If

End Sub

I tried it and it works on the test DB

HTH

John

[jle0003]

John,

Thank you! This did the trick!