Having trouble trying to get the calendar function to update the date field on a subform?
I am trying to use 1 calendar to set the date on many different forms. I saw Mile-O's example and mine is similar. What I get it to work on the Parent form but can't get it to work on a subform. Here is what I have.
Private Sub Command2_Click()
If IsLoaded("frmTeleleadsDetails") Then
Forms!frmTeleleadsDetails!DateRouted.Value = Calendar.Value (this part works)
ElseIf IsLoaded("frmUserPipeline") Then
Forms!frmUserPipeline!subfrm_Pipeline!DateRouted.Value = Calendar.Value (This part does not, even if I REM out the above statement)
End If
DoCmd.Close acForm, "frmCalendar", acSaveNo
End Sub
Any help would be appreciated
I am trying to use 1 calendar to set the date on many different forms. I saw Mile-O's example and mine is similar. What I get it to work on the Parent form but can't get it to work on a subform. Here is what I have.
Private Sub Command2_Click()
If IsLoaded("frmTeleleadsDetails") Then
Forms!frmTeleleadsDetails!DateRouted.Value = Calendar.Value (this part works)
ElseIf IsLoaded("frmUserPipeline") Then
Forms!frmUserPipeline!subfrm_Pipeline!DateRouted.Value = Calendar.Value (This part does not, even if I REM out the above statement)
End If
DoCmd.Close acForm, "frmCalendar", acSaveNo
End Sub
Any help would be appreciated