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