B
Bryan
I need some help with the following
When I open this DB and click on a label which supposed to open a calendar
form I'm getting the following error message
1. there is no object in the control and it give me 3 option 1. end, 2.
Debug, 3. Help
when I click on Debug it brings me to the following codes.
Private Sub Label36_Click()
If Me.frm_DateChooser.Visible = False Then
Label36.Caption = "Hide Calendar..."
Me.frm_DateChooser.Visible = True
Forms!frm_MainScreen!frm_DateChooser.Form.src = "main"
If Text34 <> "" Then
Forms!frm_MainScreen!frm_DateChooser.Form.ActiveXCtl2 = Text34
Else
Forms!frm_MainScreen!frm_DateChooser.Form.ActiveXCtl2 = Date
End If
Else
Label36.Caption = "Show Calendar..."
Me.Text34.SetFocus
Me.frm_DateChooser.Visible = False
End If
End Sub
with the following line in yellow -
Forms!frm_MainScreen!frm_DateChooser.Form.ActiveXCtl2 = Date
End If
Can some one pls tell me what I need to do so I can fix this problem
thank You
When I open this DB and click on a label which supposed to open a calendar
form I'm getting the following error message
1. there is no object in the control and it give me 3 option 1. end, 2.
Debug, 3. Help
when I click on Debug it brings me to the following codes.
Private Sub Label36_Click()
If Me.frm_DateChooser.Visible = False Then
Label36.Caption = "Hide Calendar..."
Me.frm_DateChooser.Visible = True
Forms!frm_MainScreen!frm_DateChooser.Form.src = "main"
If Text34 <> "" Then
Forms!frm_MainScreen!frm_DateChooser.Form.ActiveXCtl2 = Text34
Else
Forms!frm_MainScreen!frm_DateChooser.Form.ActiveXCtl2 = Date
End If
Else
Label36.Caption = "Show Calendar..."
Me.Text34.SetFocus
Me.frm_DateChooser.Visible = False
End If
End Sub
with the following line in yellow -
Forms!frm_MainScreen!frm_DateChooser.Form.ActiveXCtl2 = Date
End If
Can some one pls tell me what I need to do so I can fix this problem
thank You