title: Enable/Disable Fields with certain criteria MS Access
body: <p>I have a form in MS Access that I'm trying to create for insurance claims. I have all the fields that I need to be filled in but what I'd like to be able to do is enable or disable those fields depending on certain actions of the users. So the flow of the form is like this: I have a Frame at the top with two radio buttons, one for a single-claim incident and one for a multi-claim incident. If the user clicks the single-claim button everything continues with no problem. If the user clicks the multi-claim incident button, a combo box appears to the side with a dropdown list of MultiClaim_Incident_ID numbers that they need to select from. What I'm trying to do is if the user selects the Multi-Claim Incident button AND does not select an Incident ID number from the dropdown down list (i.e. leaves it at default value) then the rest of the form is disabled until corrected as well as clear all the fields...</p>
  
  <p>It seems like it should be pretty straightforward but I can't seem to get it to work, I'm not sure if my logic is flawed or what. Here's an abridged version of my VBA code:</p>
  
  <pre><code>Private Sub Form_Load()
      Me.SM_Frame.Value = 1
      Me.MultiClaim_Drpdwn.Value = Null
  End Sub
  
  Private Sub SM_Frame_AfterUpdate()
      If SM_Frame.Value = 1 Then
          Me.MultiClaim_Incident_ID_Label.Visible = False
          Me.MultiClaim_Drpdwn.Visible = False
      ElseIf SM_Frame.Value = 2 Then
          Me.MultiClaim_Incident_ID_Label.Visible = True
          Me.MultiClaim_Drpdwn.Visible = True
      ElseIf SM_Frame.Value = 2 &amp; MultiClaim_Drpdwn.Value = Null Then
          Me.Incident_Date = Null
          Me.Incident_Date.Enabled = False
          Me.Claimant_Name.Value = ""
          Me.Claimant_Name.Enabled = False
      //PATTERN CONTINUES FOR REST OF FIELDS// 
          MsgBox ("CLEAR EVERYTHING!!")
      ElseIf SM_Frame.Value = 1 Then
          Me.Incident_Date.Value = ""
          Me.Incident_Date.Enabled = True
          Me.Claimant_Name.Value = ""
          Me.Claimant_Name.Enabled = True
      //PATTERN CONTINUES FOR REST OF FIELDS//
          MsgBox ("Everything can continue as is")
      End If
  End Sub
  </code></pre>