I keep getting the error 'Object variable or With block variable not set' with the following code. 'i' is integer, ViewOptions is OptionBox.
Any idea what I'm doing wrong?
Any idea what I'm doing wrong?
Code:
For i = 0 To 4
If ViewOptions.Value = 1 Then
If i = 0 Then
If IsNumeric(strCriteria(i)) Then
LinkCriteriaFinal = "(" & LinkCriteria(i) & " like " & strCriteria(i) & " &'*' )"
Else
LinkCriteriaFinal = "(" & LinkCriteria(i) & " like '" & strCriteria(i) & "' &'*' )"
End If
Else
If IsNumeric(strCriteria(i)) Then
LinkCriteriaFinal = LinkCriteriaFinal & " and (" & LinkCriteria(i) & " like " & strCriteria(i) & " & '*' )"
Else
LinkCriteriaFinal = LinkCriteriaFinal & " and (" & LinkCriteria(i) & " like '" & strCriteria(i) & "' & '*' )"
End If
End If
Else
If i = 0 Then
If IsNumeric(strCriteria(i)) Then
LinkCriteriaFinal = "(" & LinkCriteria(i) & " like " & strCriteria(i) & " &'*' )"
Else
LinkCriteriaFinal = "(" & LinkCriteria(i) & " like '" & strCriteria(i) & "' &'*' )"
End If
Else
If IsNumeric(strCriteria(i)) Then
LinkCriteriaFinal = LinkCriteriaFinal & " or (" & LinkCriteria(i) & " like " & strCriteria(i) & " & '*' )"
Else
LinkCriteriaFinal = LinkCriteriaFinal & " or (" & LinkCriteria(i) & " like '" & strCriteria(i) & "' & '*' )"
End If
End If
End If
Next i
Comment