A
azwifmj1
I have dropped a couple of textboxes on the form(using VBA).I can
activate and deactivate textboxes of my choice on the very same
form.But I cannot activate the calender icon that is working in
conjuction with the textbox.Whenever the user selects the Date on the
calender icon, the selected date must be dropped into the textboxt next
to it.I am unable to turn on the calender icon and the textbox to appear
simultineously on the form.Below find my code:
Public Sub CreateSelectionCritForm()
selectionControls = Array("frmProgramme", "frmPortfolio",
"frmProject", "frmSubProject", "frmState", "frmStatus",
"frmRiskFactor", "frmImpact", "frmPriority", "frmBaselineDate",
"frmCriticality", "frmButtonRow")
If Me.ReportType = "LogReport" Then
'A standard log report must be written...
Select Case Me.ReportName
Case "AllLogTypes"
'Don't turn any conditional controls on
Case "RiskLog"
TurnOnControl State
TurnOnControl Status
TurnOnControl RiskFactor
chkAllData.Visible = True
Case "IssueLog"
TurnOnControl State
TurnOnControl Status
TurnOnControl Impact
TurnOnControl Criticality
chkAllData.Visible = True
Case "DecisionLog"
TurnOnControl Status
TurnOnControl Impact
Case "DependencyLog"
TurnOnControl BaselineDate
'TurnOnControl Status
Case "ChangeRequestLog"
TurnOnControl Status
End Select
Else
Do something....
activate and deactivate textboxes of my choice on the very same
form.But I cannot activate the calender icon that is working in
conjuction with the textbox.Whenever the user selects the Date on the
calender icon, the selected date must be dropped into the textboxt next
to it.I am unable to turn on the calender icon and the textbox to appear
simultineously on the form.Below find my code:
Public Sub CreateSelectionCritForm()
selectionControls = Array("frmProgramme", "frmPortfolio",
"frmProject", "frmSubProject", "frmState", "frmStatus",
"frmRiskFactor", "frmImpact", "frmPriority", "frmBaselineDate",
"frmCriticality", "frmButtonRow")
If Me.ReportType = "LogReport" Then
'A standard log report must be written...
Select Case Me.ReportName
Case "AllLogTypes"
'Don't turn any conditional controls on
Case "RiskLog"
TurnOnControl State
TurnOnControl Status
TurnOnControl RiskFactor
chkAllData.Visible = True
Case "IssueLog"
TurnOnControl State
TurnOnControl Status
TurnOnControl Impact
TurnOnControl Criticality
chkAllData.Visible = True
Case "DecisionLog"
TurnOnControl Status
TurnOnControl Impact
Case "DependencyLog"
TurnOnControl BaselineDate
'TurnOnControl Status
Case "ChangeRequestLog"
TurnOnControl Status
End Select
Else
Do something....