Disable/enable fields on forms

[murre08]

I am new to VBA and am having some problems turning several fields on a form off and then turning them. I was wondering if I might get some help with my code. I have a master form (frmSurveyType) with a combo box (cboSurveyType) with a tabbed sub form on it (sbfNestSurvey). When cboSurveyType = Land I want three fields (txtSitInNest, StandInNest, and EmptyNest) on the sbfNestSurvey to have the enable property to No and when cboSurveyType = Boat or Null these three fields to have the
enable property set to Yes. Here is my code. I have been able to disable the
fields but then I cannot enable them. I thank you in advance for any helpful
suggestions.



Private Sub sbfNestSurvey_Enter()

If Forms![frmSurveyType]![cboSurveyType] = "LAND"
Then


Forms![frmSurveyType]![sbfNestSurvey]![SitInNest].Enabled = No


Forms![frmSurveyType]![sbfNestSurvey]![StandInNest].Enabled = No


Forms![frmSurveyType]![sbfNestSurvey]![EmptyNest].Enabled = No

ElseIf
Forms![frmSurveyType]![cboSurveyType] = "BOAT" Then


Forms![frmSurveyType]![sbfNestSurvey]![SitInNest].Enabled = Yes


Forms![frmSurveyType]![sbfNestSurvey]![StandInNest].Enabled = Yes


Forms![frmSurveyType]![sbfNestSurvey]![EmptyNest].Enabled = Yes

ElseIf
Forms![frmSurveyType]![cboSurveyType] = Null Then


Forms![frmSurveyType]![sbfNestSurvey]![SitInNest].Enabled = Yes


Forms![frmSurveyType]![sbfNestSurvey]![StandInNest].Enabled = Yes


Forms![frmSurveyType]![sbfNestSurvey]![EmptyNest].Enabled = Yes



End If

End Sub

 

[CyberLynx]

Place the Following Function into the Master Form's Code Module:

Private Function EnableDisableFields(ByVal Strg As Variant)
 [COLOR="DarkGreen"] 'Declare the Ans Variabel as Boolean
  'This Variable will be used to set the
  'Enabled Property of the desired Controls.[/COLOR]
  Dim Ans As Boolean
  
  [COLOR="DarkGreen"]'Check the Passed value in the Function's Strg variable.
  'Compare it to the Case elements. Notice that the passed
  'value to the function is taken to lowercase here. This
  'is so that it wont be case sensitive.[/COLOR]
  Select Case LCase$(Strg)
     Case "land"        [COLOR="DarkGreen"]'1st Case element - Land[/COLOR]
        Ans = False
     Case "boat", Null  [COLOR="DarkGreen"]'2nd and 3rd Case element - Boat or Null[/COLOR]
        Ans = True
  End Select

  [COLOR="DarkGreen"]'Set the Controls on SubForm base from what our Select/Case
  'procedure has determined.[/COLOR]
  Forms![frmSurveyType]![sbfNestSurvey]![SitInNest].Enabled = Ans
  Forms![frmSurveyType]![sbfNestSurvey]![StandInNest].Enabled = Ans
  Forms![frmSurveyType]![sbfNestSurvey]![EmptyNest].Enabled = Ans
End Function

Now In the OnCurrent Event of the Master Form place this line of code:

Call EnableDisableFields(Me.cboSurveyType.Value)

Then in the OnClick Event for the cboSurveyType ComboBox enter the Same Line of Code:

Call EnableDisableFields(Me.cboSurveyType.Value)

.

 

[murre08]

Hi CyberLynx,

Thanks a bunch for the code! It worked like a charm. Cheers,
Peter