Continuous form + filtriranje po datumu

[ Fanta @ 13.02.2009. 14:58 ] @

Poštovanje svima!

Imam jednu continuous form-u koja na sebi ima par podataka:

Redni broj, Prezime, Ime, Datum i par modula koji mi služe za pretraživanje te forme, tj. da kad korisnik napravi klik mišem na određeno polje u formi, recimo na polje Prezime u formi u kojem piše Vonić, forma će izbaciti samo one rezultate u formi koji se tiću prezimena Vonić. Slična stvar je napravita i za redni broj.

Problem koji imam tiće se datuma, tj. filtriranja po datumu.

Non stop mi javlja grešku, a meni još uvijek nije jasno zašto jer kad gledam kod meni djeluje sve OK.

Kod u modulu glasi:

Code:

Public Sub SetFilterD()

On Error Resume Next
Set frm = Screen.ActiveForm

With frm
    If .FilterOn = False Then
        .Filter = Screen.ActiveControl.name + "=#" & Screen.ActiveControl.Value & "#"
    Else
        .Filter = .Filter & " and " & Screen.ActiveControl.name + "=#" & Screen.ActiveControl.Value & "#"
    End If
   .FilterOn = True
   .Requery
  End With

Set frm = Nothing

End Sub

Krajnja ideja je kad korisnik klikne na polje Datum u continuous formi recimo 10.02.2009 da izbaci sve rezultate koji se tiću tog datuma

Zna li tko u čemu je problem?

[ Scelle @ 13.02.2009. 15:23 ] @

Pretpostavljam da je to polje u tabeli tipa Date... Ali da ipak probas da uklonis ove #?

[ Fanta @ 13.02.2009. 15:51 ] @

Da polje je tipa Date.

Pokušao sam i to.

To inače koristim za filtriranje brojeva. I tada mi javlja sljedeću grešku:

Syntax error in number in query expression 'Datum=8.2.200'.

[ Trtko @ 14.02.2009. 10:30 ] @

Javlja ti grešku zbog decimalne točke u datumu 02.04.2009
probaj staviti 02/04/2009 pa češ vidjeti da dobro radi

[ Zidar @ 17.02.2009. 14:35 ] @

MOzda je lakse da naucis korisniak da koristi Right Click i filtriranje direktno iz Accessa? Dobar filter se jako tesko programira i uvek naidje nesto sto programirani filter ne pokriva.