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