zastoplatitivise 21.10.2011 20:38
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

zxz 21.10.2011 21:42
Predmet:Re: Filtriranje Countinuous forme sa Option Group

Polje [StatusNarudzbe] u tabeli iz koje citas jeli brojcano ili tekst.

zastoplatitivise 21.10.2011 22:04
Predmet:Re: Filtriranje Countinuous forme sa Option Group

[StatusNarudzbe] je tekst

zxz 21.10.2011 22:31
Predmet:Re: Filtriranje Countinuous forme sa Option Group

Najbolje bi bilo da zakacis primjer.

zxz 22.10.2011 00:06
Predmet:Re: Filtriranje Countinuous forme sa Option Group

Ovo nije dobro :
strSQL = "qryNarudzbePregled"

trebalo bi :
strSQL = "SELECT * FROM qryNarudzbePregled"

i na kraju ovo:
Me.RecordSource = strFilterSQL
trebalo bi:
Me.RecordSource =strSQL & strFilterSQL
Moguce da jos ima gresaka zato kazem da je najbolje okaciti primjer.
Dali je optio group dobro postavljen.

zastoplatitivise 22.10.2011 15:15
Predmet:Re: Filtriranje Countinuous forme sa Option Group

Imao sam nekih problema s ADSL modemom pa se nisam prije javljao ...

Ispravio sam strlSQL onako kako si napisao, ali Me.RecordSource sam ostavio isti i sada radi!

Hvala.

zxz 22.10.2011 16:44
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

zastoplatitivise 22.10.2011 18:17
Predmet:Re: Filtriranje Countinuous forme sa Option Group

Jel' imaÅ¡ neki primjer kako bih promjenio BackColor kontrolama u toj continuous formi na nivou jednog zapisa ako je txtStatusNarudzbe = "plaćeno"?
Znači onom zapisu (record) u kojem ta kontrola ima vrijednost "u procesu" sve kontrole uključujući i ovu referentnu imat će BackColor npr. green.

zxz 22.10.2011 21:26
Predmet:Re: Filtriranje Countinuous forme sa Option Group

Imas opciju na polju u skocnom meniju koja se zove
Conditional formating.
Nadam se da ces se snaci ako ne postavit cu primjer.

Napomena:
Ovo zna biti i prilicno sporo ako ima puno podataka.
Ako je takva situacija naci cemo i neko drugo rjesenje.

zastoplatitivise 22.10.2011 21:46
Predmet:Re: Filtriranje Countinuous forme sa Option Group

Probavao sam s Conditional formatting no nisam uspio obojati jedan red :(. Na formi će biti oko 300 recorda - možda ipak s VBA?