Hi, I have 7 subforms (one for each day of week) in form together with calendar,in the subforms I have the following code:

Private Sub Form_AfterUpdate()
If [Form_JobScheduleSubformFriday].Scheduled & "" <> "" Then
If [Form_JobScheduleSubformFriday].JobDate & "" = "" Then
[Form_JobScheduleSubformFriday].JobDate = [Form_Calendar]!Friday.Tag
End If
End If
End Sub

When form open subforms show only date "Friday", and I can't see appointments entered until I click in calendar.
Is there any way to fix this?
Thanks in advance for your help,
Emilio