Prikazi cijelu temu 24.03.2015 02:07
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: Prihodi i rashodi
Evo ovako.
Svoj tatser za pretragu cmdcmdTraži prebaci u Form header i prommijeni mu ime u cmdTrazi.
Na tateru smdTrazi opciju default stavi na jes.
Nemoj u imenima kontrola koristiti nasa slova mada to radi ali bolje je issto tako nemoj koristiti operatore.
Imas to sve u ucionici forumu napisano.
Sada napravi jos dva tekst polja u Form header i neka se zovu:
TIme i TPrezime.

Na tasteru cmdTrazi U event procedure odaberi on click i udji u modul.
Sada kopiraj ovaj kod ispod.
Option Compare Database
Option Explicit

PreuzmiIzvorni kôd (Visual Basic):
  1. Private Sub cmdTrazi_Click()
  2. Dim MySQL As String, Kriterija As String, RekordSours As String
  3.      Dim ImepoljaT As String, ImePolja As String, ImeTabele As String
  4.      Dim Brojac As Integer, I As Integer
  5.  
  6.      ImeTabele = "T_Posao" '
  7.     MySQL = "SELECT * FROM " & ImeTabele & " WHERE "
  8.      
  9.      For I = 1 To 2 ' 6 je broj polja
  10.     'Ovo su imena polja u tabeli iz koje vrsimo pretragu
  11.     ImepoljaT = Choose(I, "Ime", "Prezime")
  12.      'Ovo su imena polja na formi u koja upisujemo kriterije pretrage
  13.     ImePolja = Choose(I, "TIme", "TPrezime")
  14.      DodajUslov Me(ImePolja), ImepoljaT, Kriterija, Brojac
  15.      Next I
  16.      If Kriterija = "" Then
  17.          Kriterija = "True"
  18.      End If
  19.      RekordSours = MySQL & Kriterija
  20.      Me.RecordSource = RekordSours
  21.      If Me.RecordsetClone.RecordCount = 0 Then
  22.          MsgBox "Nema podataka po ovom kriteriju"
  23.      End If
  24. End Sub
  25. Private Sub DodajUslov(Vrijednost, ImePolja As String, Kriterija As String, Brojac As Integer)
  26.  If IsNumeric(Vrijednost) = False Then
  27.  Vrijednost = Vrijednost & Chr(42)
  28.  End If
  29.  If IsDate(Vrijednost) Then
  30.  Vrijednost = "#" & Vrijednost & "#"
  31.  End If
  32.  If Vrijednost <> "" Then
  33.      If Brojac > 0 Then
  34.          Kriterija = Kriterija & " and "
  35.      End If
  36.          Kriterija = (Kriterija & ImePolja & " Like " & Chr(39) & Vrijednost & Chr(39))
  37.          Brojac = Brojac + 1
  38.  End If
  39.  End Sub
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.