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.
E9 afterupdate olayına