dim kriterim as string

If Not IsNull(Me.adı) Then 'Ad alanınde değer varsa
kriterim = "adı='" & Me.adı & "'"
End If

If Not IsNull(Me.Senet_no) Then ' hizmet alanında değer varsa
If Len(kriterim) > 0 Then ' kriter var ise
kriterim = kriterim & " and [Senet no]=" & Me.Senet_no
Else ' kriter yoksa
kriterim = "[Senet no]=" & Me.Senet_no
End If
End If

kriteri bu şekilde oluştur. sorun olmayacaktır.[/align]