Code:
Private Sub DodajUslov(Vrijednost, ImePolja As String, Kriterija As String, Brojac As Integer)
If IsNumeric(Vrijednost) = False Then
Vrijednost = Vrijednost & Chr(42)
End If
If IsDate(Vrijednost) Then
Vrijednost = "#" & Vrijednost & "#"
End If
If Vrijednost <> "" Then
If Brojac > 0 Then
Kriterija = Kriterija & " and "
End If
Kriterija = (Kriterija & ImePolja & " Like " & Chr(39) & Vrijednost & Chr(39))
Brojac = Brojac + 1
End If
End Sub
Private Sub Command22_Click()
Dim MySQL As String, Kriterija As String, RekordSours As String
Dim ImepoljaT As String, ImePolja As String
Dim Brojac As Integer, I As Integer
Dim Tmp As Variant
Dim Frm As Form
MySQL = "SELECT * FROM ZAHTEVI WHERE "
For I = 1 To 6
ImepoljaT = Choose(I, "DATUMPRIJEMA", "VREMEPRIJEMA", "SERBROJ", "MODEL", _
"KORISNIK", "SERVISER")
ImePolja = "T" & I
DodajUslov Me(ImePolja), ImepoljaT, Kriterija, Brojac
Next I
If Kriterija = "" Then
Kriterija = "True"
End If
RekordSours = MySQL & Kriterija
DoCmd.OpenForm "NALOG"
Set Frm = Forms("Nalog")
Frm.RecordSource = RekordSours
If Frm.RecordsetClone.RecordCount = 0 Then
MsgBox "Nema podataka po ovom kriteriju"
Me.Command34.SetFocus
DoCmd.Close acForm, "NALOG"
End If
End Sub
zxz