(26/03/2024, 15:03)atoykan yazdı: E9 afterupdate olayına

If Açılan_Altvarmı = "Evet" Then

DoCmd.OpenForm "CerDişli_Kayıt"

Forms("CerDişli_Kayıt").Filter = "ALT3='" & E9.Value & "'"

Forms("CerDişli_Kayıt").FilterOn = True

End If

kodunu ekleyin. Çalışmalarınızda dikkat etmeniz gereken hususlar ile ilgili biz uyarıda bulunmaktan yorulduk, sizler aynı hataları yapmaktan yorulmadınız. Yapılmaması Gereken Ölümcül Hatalar başlıklı konuyu laf olsun diye değil, çok ama çok dikkatli inceleyin, hatalarınızı düzeltin.

Hocam zahmet verdim. İşlem tamamdır hayırlı işlerin olsun.