kodu bununla değiştir
Dim kriterim As String
If Not IsNull(Me.ulke) Then 'ulke alanınde değer varsa
kriterim = "ulke='" & Me.ulke & "'"
End If
If Not IsNull(Me.vekil) Then ' hizmet alanında değer varsa
If Len(kriterim) > 0 Then ' kriter var ise
kriterim = kriterim & " and [vekil]='" & Me.vekil & "'"
Else ' kriter yoksa
kriterim = "[vekil]='" & Me.vekil & "'"
End If
End If
If Not IsNull(Me.hizmet) Then ' hizmet alanında değer varsa
If Len(kriterim) > 0 Then ' kriter var ise
kriterim = kriterim & " and [hizmet]='" & Me.hizmet & "'"
Else ' kriter yoksa
kriterim = "[hizmet]='" & Me.hizmet & "'"
End If
End If
DoCmd.OpenForm "firmadetaylari", , , kriterim
yalnız anlamadığım bir konu var. arama yaptığın formun neden denetim kaynağı var.
arama yapmak için kriter belirlediğin formun denetim kaynağı olmamasını tavsiye ederim. yalnızca arama işlemine hizmet etmeli.
kolay gelsin
İyiki Varsın
Access
Cevapla