Prikazi cijelu temu 25.03.2015 13:56
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: Prihodi i rashodi
To ti i radi sad tako samo sto moras lčistati da bi vidio sledecag.
Mozes napraviti sit formu i onda ces imati izgled po redovima kao u exelu i tada ces ih vise vidjeti.
Sad mozes samo listati one koje si odabrao.
Nemoras ti ni kucati napr danijel dovoljno je ukucati dan i opezt ce prepoznati.
Isto tako mozes ukucati samo dio imena ili samo dio prezimena i opet ce naci.
Poruku o fresci pri zatvaranju T_Posao pretpostavljam forme (promijni u F_posao) nisam mogao viidjeti.
Zakaci je na vorum

Evo ova druga procedura malo izmijenjena pa je zanmijeni sa starom samo radi ucenja
PreuzmiIzvorni kôd (Visual Basic):
  1. Private Sub DodajUslov(Vrijednost, ImePolja As String, Kriterija As String, Brojac As Integer)
  2. If Trim(Format$(Vrijednost)) = "" Then GoTo Kraj
  3. If IsNumeric(Vrijednost) = False Then
  4. Vrijednost = Chr(39) & Vrijednost & Chr(42) & Chr(39)
  5. End If
  6.  If IsDate(Vrijednost) Then
  7.  Vrijednost = "#" & Vrijednost & "#"
  8.  End If
  9.      If Brojac > 0 Then
  10.          Kriterija = Kriterija & " and "
  11.      End If
  12.          Kriterija = (Kriterija & ImePolja & " Like " & Vrijednost)
  13.          Brojac = Brojac + 1
  14. Kraj:
  15.  End Sub

znaci zamijeni samo ovu Private Sub DodajUslov a ona na on klik ostajke ista.
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.