Msg box or greying out fields depending on list box selection. 1

[Triacona]

Dear all,

I would really appreciate some help on this, thanks

I have a form - (MainScreen)

This form has several tabs, each relating to a specific selection of tables.

On one of my tabs - (Residential Premises)
I have a list box which lists reports

"RP Report Via Open Cases";"RP Report on Type for Open Cases";"RP Report Open Cases Via Officer";"RP Report Case Via Officer";"RP Report Via Officer and Action Date";"RP Hazards Sorted via Rating";"RP Hazards Sorted Via Officer"

Then on the right hand side of this list there are fields to be filled in:
Screen Name : Form Name
Start Date : RpStartDate (Date chooser ActiveX)
End Date : RpEndDate (Date chooser ActiveX)
Officer : RpCmbOfficer (Combo box)
Type : RpCmbTyp (Combo Box)

I would preferably like, when the user clicks on a specific report name in my left hand side list, for certain fields on the right to grey out (Meaning they cannot be used)

Any help would really be appreciated, I don't know where to start really.
Do I code each field?
Is there a nested If statement, I need to formulate?

Again your help would really be appreciated.

Many thanks,

Kind regards

Triacona

 

[HarleyQuinn]

You can do this on the Click of the List, a simple example (to illustrate the idea) might be:

Private Sub lstReports_Click()

Select Case lstReports.ItemData(lstReports.ListIndex)

Case "RP Hazards Sorted via Rating"
    RpStartDate.Enabled = False
    '... other controls Enabled state
Case "RP Report Via Open Cases"
    RpStartDate.Enabled = True
    '... other controls Enabled state
End Select
End Sub

Hope this helps

Andy
---------------------------------
[green]' Signature removed for testing purposes.[/green]

http://lessthandot.com

 

[Triacona]

Chief answer mate!!! Thank you!!
It works brilliantly!

Private Sub ListRP_AfterUpdate()

Select Case ListRP.ItemData(ListRP.ListIndex)

Case "RP Report Via Open Cases"
    RpStartDate.Enabled = False
    RpEndDate.Enabled = False
    '... other controls Enabled state
Case "RP Report Case Via Officer", "RP Report Via Officer and Action Date", "RP Hazards Sorted via Rating", "RP Hazards Sorted Via Officer"
    RpStartDate.Enabled = True
    RpEndDate.Enabled = True
    '... other controls Enabled state
End Select

End Sub

Thanks again
They deactivate based on selection brilliantly.
Is there any way to grey them out as well?

Kind regards

Triacona

 

[Triacona]

Dear Andy,

Thanks again for your help
I have figured out a way to "grey out" the unwanted fields.
I have made them non-visable when the specific list item is selected.

Private Sub ListRP_AfterUpdate()

Select Case ListRP.ItemData(ListRP.ListIndex)

Case "RP Report Via Open Cases"
    RpStartDate.Enabled = False
    RpEndDate.Enabled = False
    RpStartDate.Visible = False
    RpEndDate.Visible = False
            
    '... other controls Enabled state
        
Case "RP Report Case Via Officer", "RP Report Via Officer and Action Date", "RP Hazards Sorted via Rating", "RP Hazards Sorted Via Officer"
    RpStartDate.Enabled = True
    RpEndDate.Enabled = True
    RpStartDate.Visible = True
    RpEndDate.Visible = True
    '... other controls Enabled state
End Select

End Sub

Thanks again

Kind regards

Triacona

 

[HarleyQuinn]

Triacona - glad you got it sorted! Thanks for the star

Andy
---------------------------------
[green]' Signature removed for testing purposes.[/green]

http://lessthandot.com

 

[dhookom]

I start almost every application with tables:
[tt][blue]
ztblReports (names of reports)
==================
rptRptName (name of report)
rptTitle (friendly name displayed in list box of reports)
rpt.... (other fields)

ztblCriteria (names of controls)
================================
criCrit (Name of Control)
criTitle (friendly name)
criFieldName (field name this is used against)

ztblReprotCriteria (junction table of reports vs criteria)
================================
rpcCrit (links to ztblCriteria.criCrit)
rpcRptName (links to ztblReports.rptRptName)
[/blue][/tt]

I have a couple simple forms for maintaining the above records.

I enter "crit" in the tag property of every criteria control on my form.
The after update event of the report list box has this code to enable or disable criteria controls based the selected report.

Private Sub lboReport_AfterUpdate()
    Dim ctl As Control
    Dim strRpt As String
    strRpt = Me.lboReport
    For Each ctl In Me.Controls
        If Left(ctl.Tag, 4) = "crit" Then
            ctl.Enabled = DCount("*", "ztblReportCriteria", _
            "rpcCrit='" & ctl.Name & "' AND rpcRptName ='" & strRpt & "'")
        End If
    Next
End Sub

I have other code when opening a report that builds a WHERE CONDITION based on enabled criteria controls and the criFieldName values.

Duane
Hook'D on Access
MS Access MVP