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
U cemu je problem?
PreuzmiIzvorni kôd (Text):Private Sub Command75_Click()
Dim strFilterSQL As String
strSQL = "qryNarudzbePregled"
Select Case Me.optStatusBy
Case 1
strFilterSQL = strSQL
Case 2
strFilterSQL = strSQL & " Where [StatusNarudzbe] = 'u procesu';"
Case 3
strFilterSQL = strSQL & " Where [StatusNarudzbe] = 'placeno';"
Case 4
strFilterSQL = strSQL & " Where [StatusNarudzbe] = 'poslano';"
Case 5
strFilterSQL = strSQL & " Where [StatusNarudzbe] = 'dostavljeno';"
Case 6
strFilterSQL = strSQL & " Where [StatusNarudzbe] = 'storno';"
End Select
Me.RecordSource = strFilterSQL
Me.Requery
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):Private Sub Command75_Click()
Dim strFilterSQL As String
strSQL = "SELECT * FROM qryNarudzbePregled"
Select Case Me.optStatusBy
Case 1
strFilterSQL = strSQL
Case 2
strFilterSQL = "Where [StatusNarudzbe] = 'u procesu';"
Case 3
strFilterSQL ="Where [StatusNarudzbe] = 'placeno';"
Case 4
strFilterSQL = "Where [StatusNarudzbe] = 'poslano';"
Case 5
strFilterSQL ="Where [StatusNarudzbe] = 'dostavljeno';"
Case 6
strFilterSQL = "Where [StatusNarudzbe] = 'storno';"
End Select
strSQL=strSQL & " " & strFilter
Me.RecordSource = strSQL
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? |