Formda Seçilen Tarihe Göre Alt Formdaki Tarihleri Filtreleme

Formda Seçilen Tarihe Göre Alt Formdaki Tarihleri Filtreleme - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Formda Seçilen Tarihe Göre Alt Formdaki Tarihleri Filtreleme (/konu-formda-secilen-tarihe-gore-alt-formdaki-tarihleri-filtreleme.html)

Formda Seçilen Tarihe Göre Alt Formdaki Tarihleri Filtreleme - mnsahin - 11/06/2023

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

RE: Formda Seçilen Tarihe Göre Alt Formdaki Tarihleri Filtreleme - berduş - 21/06/2023

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