tarih güncelleme sonrası olayını aşağıdaki gibi düzenleyip dener misiniz?

Private Sub date_AfterUpdate()

'hy_AltForm Filtreleme

StrFiltre1 = ""

StrFiltre2 = ""

StrFiltre3 = ""

If Len(Me.date) > 0 Then

    StrFiltre1 = "int(sDate)=" & CLng(Me.date)

    StrFiltre2 = "int([sDate Field])=" & CLng(Me.date)

    StrFiltre3 = "int([sDate Field])=" & CLng(Me.date)



    Me.[Query1 subform].Form.Filter = StrFiltre1

    Me.[Query1 subform].Form.FilterOn = True



    Me.[Find duplicates for IN].Form.Filter = StrFiltre2

    Me.[Find duplicates for IN].Form.FilterOn = True



    Me.[Find duplicates for Out].Form.Filter = StrFiltre3

    Me.[Find duplicates for Out].Form.FilterOn = True

Else

    Me.[Query1 subform].Form.FilterOn = False

    Me.[Find duplicates for IN].Form.FilterOn = False

    Me.[Find duplicates for Out].Form.FilterOn = False



End If



End Sub