Centar za edukaciju-BiH



#1 21.10.2011 19:38
Registrovan od:19.09.2011
Postovi:31


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
↑  ↓

#2 21.10.2011 20:42
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


Predmet:Re: Filtriranje Countinuous forme sa Option Group
Polje [StatusNarudzbe] u tabeli iz koje citas jeli brojcano ili tekst.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#3 21.10.2011 21:04
Registrovan od:19.09.2011
Postovi:31


Predmet:Re: Filtriranje Countinuous forme sa Option Group
[StatusNarudzbe] je tekst
↑  ↓

#4 21.10.2011 21:31
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


Predmet:Re: Filtriranje Countinuous forme sa Option Group
Najbolje bi bilo da zakacis primjer.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#5 21.10.2011 23:06
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


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.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#6 22.10.2011 14:15
Registrovan od:19.09.2011
Postovi:31


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.
↑  ↓

#7 22.10.2011 15:44
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


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.
↑  ↓

#8 22.10.2011 17:17
Registrovan od:19.09.2011
Postovi:31


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.
↑  ↓

#9 22.10.2011 20:26
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


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.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#10 22.10.2011 20:46
Registrovan od:19.09.2011
Postovi:31


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?
↑  ↓

Stranice (2):1,2


Sva vremena su GMT +01:00. Trenutno vrijeme: 9: 19 pm.