Prikazi cijelu temu 22.10.2011 16:44
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: Filtriranje Countinuous forme sa Option Group
Da u pravu si.

Sad vidim da je dodan u svim redovima case.
Lakse je bilo na kraju dodati jer zbog toga i jesu dvije memorijske.
u tvom slucaju mogla je jedna ali nisam ja to ni vidio.
PreuzmiIzvorni kôd (Visual Basic):
  1. Private Sub Command75_Click()
  2. Dim strFilterSQL As String
  3.  
  4. strSQL = "SELECT * FROM qryNarudzbePregled"
  5.  
  6.     Select Case Me.optStatusBy
  7.        
  8.         Case 1
  9.             strFilterSQL = strSQL
  10.         Case 2
  11.             strFilterSQL = "Where [StatusNarudzbe] = 'u procesu';"
  12.         Case 3
  13.             strFilterSQL ="Where [StatusNarudzbe] = 'placeno';"
  14.         Case 4
  15.             strFilterSQL = "Where [StatusNarudzbe] = 'poslano';"
  16.         Case 5
  17.             strFilterSQL ="Where [StatusNarudzbe] = 'dostavljeno';"
  18.         Case 6
  19.             strFilterSQL = "Where [StatusNarudzbe] = 'storno';"
  20.     End Select
  21.    
  22.    strSQL=strSQL & " " &  strFilter
  23.  
  24.    Me.RecordSource = strSQL
  25.  
  26. End Sub
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.