Access 2010
I have a form that with a combo box called Meeting_Type_Combo.
I need the following:
When a user picks a certain option in the combo list I want certain fields to be enabled and certain ones to be disabled on the form.
I have code which works when I just use it for one option. When I add the elseif the whole thing doesn't work.
I have tried it on the "After Update" and "Change" Events.
I must be missing something.......
Here is my code:
Expand|Select|Wrap|Line Numbers
- If Me.MEETING_TYPE_Combo.Value = "OUT OF HOME 15 MONTH REVIEW" Then
- Me.MEETING_DATE_90DAY.Enabled = False
- Me.MEETING_DEADLINE_90DAY.Enabled = False
- Me.OUT_REMOVAL_DATE.Enabled = False
- Me.OUT_7DAY_FEM_DEAD.Enabled = False
- Me.MEETING_DATE_15MONTH_FAMILY.Enabled = True
- Me.MEETING_DATE_15MONTH_FAMILY_DEADLINE.Enabled = True
- Me.OUT_SHELTERHEARING_DATE.Enabled = False
- Me.PERMANENCY_DATE.Enabled = False
- ElseIf Me.MEETING_TYPE_Combo.Value = "REMOVAL DATE" Then
- Me.MEETING_DATE_90DAY.Enabled = False
- Me.MEETING_DEADLINE_90DAY.Enabled = False
- Me.OUT_REMOVAL_DATE.Enabled = True
- Me.OUT_7DAY_FEM_DEAD.Enabled = False
- Me.MEETING_DATE_15MONTH_FAMILY.Enabled = False
- Me.MEETING_DATE_15MONTH_FAMILY_DEADLINE.Enabled = False
- Me.OUT_SHELTERHEARING_DATE.Enabled = False
- Me.PERMANENCY_DATE.Enabled = False
- ElseIf Me.MEETING_TYPE_Combo.Value = "SHELTER HEARING" Then
- Me.MEETING_DATE_90DAY.Enabled = False
- Me.MEETING_DEADLINE_90DAY.Enabled = False
- Me.OUT_REMOVAL_DATE.Enabled = False
- Me.OUT_7DAY_FEM_DEAD.Enabled = False
- Me.MEETING_DATE_15MONTH_FAMILY.Enabled = False
- Me.MEETING_DATE_15MONTH_FAMILY_DEADLINE.Enabled = False
- Me.OUT_SHELTERHEARING_DATE.Enabled = True
- Me.PERMANENCY_DATE.Enabled = False
- ElseIf Me.MEETING_TYPE_Combo.Value = "PERMANENCY DATE" Then
- Me.MEETING_DATE_90DAY.Enabled = False
- Me.MEETING_DEADLINE_90DAY.Enabled = False
- Me.OUT_REMOVAL_DATE.Enabled = False
- Me.OUT_7DAY_FEM_DEAD.Enabled = False
- Me.MEETING_DATE_15MONTH_FAMILY.Enabled = False
- Me.MEETING_DATE_15MONTH_FAMILY_DEADLINE.Enabled = False
- Me.OUT_SHELTERHEARING_DATE.Enabled = False
- Me.PERMANENCY_DATE.Enabled = True
- ElseIf Me.MEETING_TYPE_Combo.Value = "IN HOME 90 DAY REVIEW" Then
- Me.MEETING_DATE_90DAY.Enabled = True
- Me.MEETING_DEADLINE_90DAY.Enabled = True
- Me.OUT_REMOVAL_DATE.Enabled = False
- Me.OUT_7DAY_FEM_DEAD.Enabled = False
- Me.MEETING_DATE_15MONTH_FAMILY.Enabled = False
- Me.MEETING_DATE_15MONTH_FAMILY_DEADLINE.Enabled = False
- Me.OUT_SHELTERHEARING_DATE.Enabled = False
- Me.PERMANENCY_DATE.Enabled = False
- ElseIf Me.MEETING_TYPE_Combo.Value = "OUT OF HOME 90 DAY" Then
- Me.MEETING_DATE_90DAY.Enabled = True
- Me.MEETING_DEADLINE_90DAY.Enabled = True
- Me.OUT_REMOVAL_DATE.Enabled = False
- Me.OUT_7DAY_FEM_DEAD.Enabled = False
- Me.MEETING_DATE_15MONTH_FAMILY.Enabled = False
- Me.MEETING_DATE_15MONTH_FAMILY_DEADLINE.Enabled = False
- Me.OUT_SHELTERHEARING_DATE.Enabled = False
- Me.PERMANENCY_DATE.Enabled = False
- ElseIf Me.MEETING_TYPE_Combo.Value = "OUT OF HOME INITIAL PRT" Then
- Me.MEETING_DATE_90DAY.Enabled = True
- Me.MEETING_DEADLINE_90DAY.Enabled = True
- Me.OUT_REMOVAL_DATE.Enabled = False
- Me.OUT_7DAY_FEM_DEAD.Enabled = False
- Me.MEETING_DATE_15MONTH_FAMILY.Enabled = False
- Me.MEETING_DATE_15MONTH_FAMILY_DEADLINE.Enabled = False
- Me.OUT_SHELTERHEARING_DATE.Enabled = False
- Me.PERMANENCY_DATE.Enabled = False
- ElseIf Me.MEETING_TYPE_Combo.Value = "OUT OF HOME PRT 90 DAY" Then
- Me.MEETING_DATE_90DAY.Enabled = True
- Me.MEETING_DEADLINE_90DAY.Enabled = True
- Me.OUT_REMOVAL_DATE.Enabled = False
- Me.OUT_7DAY_FEM_DEAD.Enabled = False
- Me.MEETING_DATE_15MONTH_FAMILY.Enabled = False
- Me.MEETING_DATE_15MONTH_FAMILY_DEADLINE.Enabled = False
- Me.OUT_SHELTERHEARING_DATE.Enabled = False
- Me.PERMANENCY_DATE.Enabled = False
- End If