Private Sub cmdNadi_Click()

    Dim MySQL As String, Kriterija As String, RekordSours As String
         Dim ImepoljaT As String, ImePolja As String, ImeTabele As String
         Dim Brojac As Integer, I As Integer
     
         ImeTabele = "T_Posao" '
        MySQL = "SELECT * FROM " & ImeTabele & " WHERE "
         
         For I = 1 To 2 ' 6 je broj polja
        'Ovo su imena polja u tabeli iz koje vrsimo pretragu
        ImepoljaT = Choose(I, "Ime", "Prezime", "status")
         'Ovo su imena polja na formi u koja upisujemo kriterije pretrage
        ImePolja = Choose(I, "TIme", "TPrezime", "tStatus")
         DodajUslov Me(ImePolja), ImepoljaT, Kriterija, Brojac
         Next I
         If Kriterija = "" Then
             Kriterija = "True"
         End If
         RekordSours = MySQL & Kriterija
         Me.RecordSource = RekordSours
         If Me.RecordsetClone.RecordCount = 0 Then
             MsgBox "Nema podataka po ovom kriteriju"
         End If
    End Sub


Private Sub cmdNovi_Click()
DoCmd.RefreshRecord
End Sub

    Private Sub cmdTrazi_Click()
    Dim MySQL As String, Kriterija As String, RekordSours As String
         Dim ImepoljaT As String, ImePolja As String, ImeTabele As String
         Dim Brojac As Integer, I As Integer
     
         ImeTabele = "T_Posao" '
        MySQL = "SELECT * FROM " & ImeTabele & " WHERE "
         
         For I = 1 To 2 ' 6 je broj polja
        'Ovo su imena polja u tabeli iz koje vrsimo pretragu
        ImepoljaT = Choose(I, "Ime", "Prezime", "Status")
         'Ovo su imena polja na formi u koja upisujemo kriterije pretrage
        ImePolja = Choose(I, "TIme", "TPrezime", "tStatus")
         DodajUslov Me(ImePolja), ImepoljaT, Kriterija, Brojac
         Next I
         If Kriterija = "" Then
             Kriterija = "True"
         End If
         RekordSours = MySQL & Kriterija
         Me.RecordSource = RekordSours
         If Me.RecordsetClone.RecordCount = 0 Then
             MsgBox "Nema podataka po ovom kriteriju"
         End If
    End Sub