AccessTr.neT

Merhaba,

Ekte gönderdiğim dosyada master data formunda bulunan tarih etiketine yazdığım tarihin diğer üç alt formda aynı tarih ile filtre yapmasını istiyorum.Kutu boş iken bütün bütün kayıtları gösterecek, örneğin 05/06/2023 tarihini kutuya yazdığımda ise üç alt formdaki sadece 05/06/2023 tarihli kayıtları göstermesini istiyorum. İstediğim formatın ekran resmini de ekledim.

Teşekkürler

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