Dim cmb As String
Dim evaltype() As Variant
Dim f1 As Integer
Dim f2 As Integer
cmb = cmbContractType.Text
f1 = Me.Frame112.Value
f2 = Me.Frame134.Value
If cmb = "Medical" Then
Select Case evaltype(f1, f2)
Case evaltype(1, 1)
DoCmd.OpenReport "Medical", acViewReport...