Private findcode As String
Private findnum As String
Private findgvari As String
Private findsaxeli As String
Private findbirth As String
Private findmomdat As String
Private findgacdat As String
Private findgamge As String
Private findlaborant As String
Private findprison As String
Private pusto As String

Private Sub fcode_Change()
findcode = Nz(Me.fcode.Text, "")
findnum = Nz(Me.fnum.Value, "")
findgvari = Nz(Me.fgvari.Value, "")
findsaxeli = Nz(Me.fsaxeli.Value, "")
findbirth = Nz(Me.fbirthday.Value, "")
findmomdat = Nz(Me.fmomdate.Value, "")
findgacdat = Nz(Me.fgacdate.Value, "")
findgamge = Nz(Me.cmb_gamge, "")
findlaborant = Nz(Me.cmb_laborant, "")
findprison = Nz(Me.cmb_prison, "")
pusto = findcode & findnum & findgvari & findsaxeli & findbirth & findmomdat & findgacdat & findgamge & findlaborant & findprison
If pusto <> "" Then
    Call Filtracia
    Me.fcode.SelStart = 100
Else
    Me.[sruli_sia_subform].Form.FilterOn = False
End If
End Sub

Function Filtracia()
    Me.[sruli_sia_subform].Form.filter = "Nz([sruli_sia_q]![patient_code]) Like '" & findcode & "*'" _
        & " And Nz([sruli_sia_q]![patient_num]) Like '" & findnum & "*'" _
        & " And Nz([sruli_sia_q]![gvari]) Like '" & findgvari & "*'" _
        & " And Nz([sruli_sia_q]![saxeli]) Like '" & findsaxeli & "*'" _
        & " And Nz([sruli_sia_q]![birthday]) Like '" & findbirth & "*'" _
        & " And Nz([sruli_sia_q]![momartvis_tarigi]) Like '*" & findmomdat & "*'" _
        & " And Nz([sruli_sia_q]![gacemis_tarigi]) Like '" & findgacdat & "*'" _
        & " And Nz([sruli_sia_q]![id_gamge]) Like '" & findgamge & "*'" _
        & " And Nz([sruli_sia_q]![id_laborant]) Like '" & findlaborant & "*'" _
        & " And Nz([sruli_sia_q]![id_prison]) Like '" & findprison & "*'"
End Function