Prikazi cijelu temu 28.10.2014 20:01
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: Pretraga više tekst polja istvremeno
Zamijeni ovu proceduru:
PreuzmiIzvorni kôd (Visual Basic):
  1. Private Sub DodajUslov(Vrijednost, ImePolja As String, Kriterija As String, Brojac As Integer)
  2.  
  3.  If IsNumeric(Vrijednost) = False Then
  4.     If Format$(Vrijednost) <> "" Then
  5.     Vrijednost = Chr(42) & Vrijednost & Chr(42)
  6.     End If
  7.  End If
  8.  
  9.  If IsDate(Vrijednost) Then
  10.  Vrijednost = "#" & Vrijednost & "#"
  11.  End If
  12.  
  13.  If Format$(Vrijednost) <> "" Then
  14.      If Brojac > 0 Then
  15.          Kriterija = Kriterija & " or "
  16.      End If
  17.  
  18.          Kriterija = (Kriterija & ImePolja & " Like " & Chr(39) & Vrijednost & Chr(39))
  19.          Brojac = Brojac + 1
  20.  End If
  21.  
  22.  End Sub
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.