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