B
Bryan
Can someone anyone please help with the following?
I’m working with an access DB when I click on one of the report I would like
to see where report is getting its data from. I was told to switch to the
design view and then click on the field and look at the properties. Well I
did that and in the control source field it just say “column 5†Can you
please let me know what I’m doing wrong…
As for my next question
When I click on a control on one of the form I’m getting the error below
Then I would click on debug and it brings me to this code
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
I’m working with an access DB when I click on one of the report I would like
to see where report is getting its data from. I was told to switch to the
design view and then click on the field and look at the properties. Well I
did that and in the control source field it just say “column 5†Can you
please let me know what I’m doing wrong…
As for my next question
When I click on a control on one of the form I’m getting the error below
Then I would click on debug and it brings me to this code
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