[ DarioBH @ 16.04.2008. 12:19 ] @
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]