Prikazi cijelu temu 21.10.2011 20:38
zastoplatitivise Van mreze
Clan
Registrovan od:19.09.2011
Lokacija:Hrvatska


Predmet:Filtriranje Countinuous forme sa Option Group
Pozdrav svima!
Molio bih malu pomoć, ako je moguće...
Imam continuous formu na koju bih u Header ubacio Option Group sa 6 vrijednosti pomoću koje bih filtrirao tu formu. Record Source forme je query, a polje po kojem bih filtrirao formu je StatusNarudzbe (text). U nastavku je kod koji sam napisao no ne radi Disappointed
U cemu je problem?
PreuzmiIzvorni kôd (Text):
  1. Private Sub Command75_Click()
  2.  
  3. Dim strFilterSQL As String
  4.  
  5. strSQL = "qryNarudzbePregled"
  6.  
  7.     Select Case Me.optStatusBy
  8.        
  9.         Case 1
  10.             strFilterSQL = strSQL
  11.         Case 2
  12.             strFilterSQL = strSQL & " Where [StatusNarudzbe] = 'u procesu';"
  13.         Case 3
  14.             strFilterSQL = strSQL & " Where [StatusNarudzbe] = 'placeno';"
  15.         Case 4
  16.             strFilterSQL = strSQL & " Where [StatusNarudzbe] = 'poslano';"
  17.         Case 5
  18.             strFilterSQL = strSQL & " Where [StatusNarudzbe] = 'dostavljeno';"
  19.         Case 6
  20.             strFilterSQL = strSQL & " Where [StatusNarudzbe] = 'storno';"
  21.     End Select
  22.    
  23.     Me.RecordSource = strFilterSQL
  24.     Me.Requery
  25.  
  26. End Sub