Prikazi cijelu temu 01.04.2015 10:54
Dan79 Van mreze
Clan
Registrovan od:02.03.2015
Lokacija:-


Predmet:Re: Prihodi i rashodi
[sup]hvala Miroslave.
e sad opet zastao :P,dodao sam polje u trazenu status jer sam se sjetio sa moram imati 3 stavke (odbijen,prihvacen i odustao).
znaci dodao sam uz ime prezime jos i status za trazenje i dodao u cod ali mi ne radi moze mi netko reci gdje sam pogrijsio?

"
PreuzmiIzvorni kôd (vbnet):
  1.  
  2.  
  3. Private Sub cmdNadi_Click()
  4.  
  5.     Dim MySQL As String, Kriterija As String, RekordSours As String
  6.          Dim ImepoljaT As String, ImePolja As String, ImeTabele As String
  7.          Dim Brojac As Integer, I As Integer
  8.      
  9.          ImeTabele = "T_Posao" '
  10.         MySQL = "SELECT * FROM " & ImeTabele & " WHERE "
  11.          
  12.          For I = 1 To 2 ' 6 je broj polja
  13.         'Ovo su imena polja u tabeli iz koje vrsimo pretragu
  14.         ImepoljaT = Choose(I, "Ime", "Prezime", "status")
  15.          'Ovo su imena polja na formi u koja upisujemo kriterije pretrage
  16.         ImePolja = Choose(I, "TIme", "TPrezime", "tStatus")
  17.          DodajUslov Me(ImePolja), ImepoljaT, Kriterija, Brojac
  18.          Next I
  19.          If Kriterija = "" Then
  20.              Kriterija = "True"
  21.          End If
  22.          RekordSours = MySQL & Kriterija
  23.          Me.RecordSource = RekordSours
  24.          If Me.RecordsetClone.RecordCount = 0 Then
  25.              MsgBox "Nema podataka po ovom kriteriju"
  26.          End If
  27.     End Sub
  28.  
  29.  
  30. Private Sub cmdNovi_Click()
  31. DoCmd.RefreshRecord
  32. End Sub
  33.  
  34.     Private Sub cmdTrazi_Click()
  35.     Dim MySQL As String, Kriterija As String, RekordSours As String
  36.          Dim ImepoljaT As String, ImePolja As String, ImeTabele As String
  37.          Dim Brojac As Integer, I As Integer
  38.      
  39.          ImeTabele = "T_Posao" '
  40.         MySQL = "SELECT * FROM " & ImeTabele & " WHERE "
  41.          
  42.          For I = 1 To 2 ' 6 je broj polja
  43.         'Ovo su imena polja u tabeli iz koje vrsimo pretragu
  44.         ImepoljaT = Choose(I, "Ime", "Prezime", "Status")
  45.          'Ovo su imena polja na formi u koja upisujemo kriterije pretrage
  46.         ImePolja = Choose(I, "TIme", "TPrezime", "tStatus")
  47.          DodajUslov Me(ImePolja), ImepoljaT, Kriterija, Brojac
  48.          Next I
  49.          If Kriterija = "" Then
  50.              Kriterija = "True"
  51.          End If
  52.          RekordSours = MySQL & Kriterija
  53.          Me.RecordSource = RekordSours
  54.          If Me.RecordsetClone.RecordCount = 0 Then
  55.              MsgBox "Nema podataka po ovom kriteriju"
  56.          End If
  57.     End Sub
"