Postavio sam nekoliko option buttona kao filter i dugme 'Filter' sa slijedecim kodom
Private Sub Filter_Click()
Dim Flt As String
Select Case Me!Option
Case 1
Flt = All & " Where [ID] = '1';"
Case 2
Flt = All & " Where [ID] = '2';"
Case 3
Flt = All & " Where [ID] = '3';"
Case 4
Flt = All & " Where [ID] = '4';"
Case Else
Flt = All & ";"
End Select
Me.RecordSource = Flt
Me.Requery
End Sub
Sve radi OK, samo bi trebao dodati jos i filter po datumu
Imam polje Datum i calendar control koji sam nazvao Calendar
kako bi na gornji filter dodao jos i datum.
Pokusao sam sa
Flt = All & " Where [ID] = '1' & Datum = [Calendar];"
al ne ide
Ima li ko kakvu ideju
-----------------
Skontao, greska bila u &
Sorry
[Ovu poruku je menjao DarioBH dana 16.04.2008. u 13:32 GMT+1]