Hayırlı günler

Acceste ben son üç ayda muayenesi red olanları gör.ek istiyorum ve aşağıdaki gibi yaptım ama hata veriyor. Ayrı ayrı çalıştırdığında sorun yok .

D10 : Muayene sonucu
C6: Muayene tarihi
Ana_Sayfa_Liste : Alt Form

ElseIf Acilankutu35="Muayenesi RED olanlar"
Me.Ana_Sayfa_Liste.linkchildfields =""
ME.tarih1=dateadd ("m",-3,date)
ME.tarih1=cate ("1." & month(tarih1) & "." & year (tarih1))
ME.tarih2=cdate("20." & month (date) & "," & year(date)
ME.Ana_Sayfa_Liste.form.filter =""
ME.Ana_Sayfa_Liste.form.filter="[C6] Neyse en " & clng(me.tarih1) & " and " & cong (me.tarih2) or "[D10]='RED'"
ME.Ana_Sayfa_Liste.form.filteron=true

Öneren gerekirse akşama atarım iş bilgisayarı dışarı giriş ve çıkışa kapalı kusura bakmayın.