Vetting Statement

[jl2886]

I only want the last if then statement to include the AND statements written in the survett variable I created if certain conditions hold. I think there might be a problem with a " or '. Or maybe there is an easier way to do it.

Private Sub ARM_Enter()
    Dim Surv
    If Me.Deceased_Survivor = "No" And (Me.Policy_Type = "Survivorship UL" Or Me.Policy_Type = "Survivorship WL") Then
    Surv = "Survivorship"
    Else: Surv = ""
    End If
    Dim Survvet
    If Surv = Survivorship Then
    Survvet = Me.Age_2 >= 68  AND Me.Average_LE_2 > 35 AND Me.Average_LE_2 <= 180
    End If
    If Me.Age >= 68 And Me.Face_Amount >= 100000 And Me.Face_Amount <= 1500000 And Me.Average_LE >= 35 And Me.Average_LE <= 180 And Survvet Then
    Me.ARM = "Price"
    Else
    Me.ARM = ""
    End If
End Sub
 

[MMcCarthy]

Try this ...

Private Sub ARM_Enter()
    Dim Surv
    If Me.Deceased_Survivor = "No" Then
   If Me.Policy_Type = "Survivorship UL" Or Me.Policy_Type = "Survivorship WL" Then
      Surv = "Survivorship"
   Else
      Surv = ""
   End If
Else
   Surv = ""
    End If
    Dim Survvet
    If Surv = Survivorship Then
    Survvet = Me.Age_2 >= 68  AND Me.Average_LE_2 > 35 AND Me.Average_LE_2 <= 180
    End If
    If Me.Age >= 68 And Me.Face_Amount >= 100000 And Me.Face_Amount <= 1500000 And Me.Average_LE >= 35 And Me.Average_LE <= 180 And Survvet Then
    Me.ARM = "Price"
    Else
    Me.ARM = ""
    End If
End Sub
 

Mary