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

11/06/2023, 10:02

mnsahin

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
21/06/2023, 15:07

berduş

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