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
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.