Predmet:Re: Pretraga više tekst polja istvremeno
Zamijeni ovu proceduru:
PreuzmiIzvorni kôd (Visual Basic):Private Sub DodajUslov(Vrijednost, ImePolja As String, Kriterija As String, Brojac As Integer)
If IsNumeric(Vrijednost) = False Then
If Format$(Vrijednost) <> "" Then
Vrijednost = Chr(42) & Vrijednost & Chr(42)
End If
End If
If IsDate(Vrijednost) Then
Vrijednost = "#" & Vrijednost & "#"
End If
If Format$(Vrijednost) <> "" Then
If Brojac > 0 Then
Kriterija = Kriterija & " or "
End If
Kriterija = (Kriterija & ImePolja & " Like " & Chr(39) & Vrijednost & Chr(39))
Brojac = Brojac + 1
End If
End Sub
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.