(26/10/2024, 17:06)onur_can yazdı: Tabi gelebilir. Yalnız bazı değişiklikler yapmanız gerekir. Ay alanını açılan kutu olarak değiştirin, tüm ayları gösterecek şekilde bir tablo oluşturun, Ay seçtiğinizde alt formların sorgusunuda bir filtre ayarlayın ve afterupdate olayına alt formları sorgulatın.

Private Sub Ay_AfterUpdate()
Dim selectedMonth As String
selectedMonth = Me.Ay.Value

' Alt form için sorguyu güncelle
Me.borc.Form .Filter = "Ay = '" & selectedMonth & "'"
Me.borc.Form.FilterOn = True
End Sub

Burada hata veriyor Bir yardım lütfen. Tam uygulayamadım.

Merhaba,
Ay kriteri string değil sayı olmalıdır. Ay = Ocak ise Ay = 1, Ay = Şubat ise Ay =2 gibi 12. aya kadar bu şekilde if ile dönüştürün daha sonra kriteri kullanın.

(31/10/2024, 09:04)onur_can yazdı: Merhaba,
Ay kriteri string değil sayı olmalıdır. Ay = Ocak ise Ay = 1, Ay = Şubat ise Ay =2 gibi 12. aya kadar bu şekilde if ile dönüştürün daha sonra kriteri kullanın.

Tamam kardeşim deneyim sağol

Uygulamanızı eklerseniz daha çabuk cevap alırsınız.