Private Sub pret_Change()

 

   

    Dim MySQL As String, Kriterija As String, MyRecordSource As String

    Dim Tmp As Variant

 

    ArgCount = 0

 

    MySQL = "SELECT * FROM tblArtikli WHERE "

    Kriterija = ""

   

    DodajUslov 0, "Artikal_Prodazna_Cena", Kriterij, "", "<>", "", ""

    DodajUslov Me.pret.Text, "Artikal_Ime", Kriterij, " AND ", " Like ", "%", Chr(39)

    DodajUslov 0, "Artikal_Prodazna_Cena", Kriterij, "", "<>", "", ""

    DodajUslov Me.pret.Text, "Artikal_BarKod", Kriterij, " AND ", " Like ", "%", Chr(39)

    DodajUslov [Look For Country], "[Country]", Kriterij, ArgCount

 

    If Kriterij = "" Then

    Exit Sub

    Else

    Kriterij = Kriterij & " ORDER BY Artikal_Ime"

    End If

    MyRecordSource = MySQL & Kriterija

   

     Set rsStavki = New ADODB.Recordset

     rsStavki.CursorLocation = adUseClient

     rsStavki.Open MyRecordSource, cn, adOpenStatic, adLockOptimistic

End Sub

Private Sub DodajUslov(Vrijednost As Variant, ImePolja As String, Kriterij As String, Arg1 As String, Arg2 As Integer, Arg3 As String, Arg4 As String)

   

    If Vrijednost <> "" Then

            Kriterij = Kriterij & Arg1

        Kriterij = (Kriterij & ImePolja & Arg2 & Arg4 & Vrijednost & Arg3 & Arg4)

    End If

 

End Sub