Kod:
' Sonuç
If Nz(Me.Aranan_Sonuc) <> "" Then
strWhere = strWhere & " AND " & "([Sonuç1]='" & Me.Aranan_Sonuc & "'"
strWhere = strWhere & " or " & " [Sonuç2]='" & Me.Aranan_Sonuc & "'"
strWhere = strWhere & " or " & " [Sonuç3]='" & Me.Aranan_Sonuc & "'"
strWhere = strWhere & " or " & " [Sonuç4]='" & Me.Aranan_Sonuc & "'"
strWhere = strWhere & " or " & " [Sonuç5]='" & Me.Aranan_Sonuc & "')"
End If