Kodu "Private Sub Tip_AfterUpdate()" şeklinde yazmışsın. Tip, açılan kutunun denetim kaynağı. Açılan kutu adı "Operasyon_tip" olduğu için "Private Sub Operasyon_tip_AfterUpdate()" şekinde yazmalısın.

Formu tasarım görünümünde aç, Operasyon_tip açılan kutusunun güncelleştirme olayı sonrasına kodu uygula,


Bunun soru ile ilgisi yok ama formun kapandığında olayına yazılı olan

DoCmd.RunSQL "DELETE Baslangic_saat, Is_emir_no, Nz([Baslangic_saat],0) AS İfade1 FROM [Operasyon Kayitlari] WHERE (((Nz([Baslangic_saat],0))=0));"

kodunu aşağıdaki ile değiştir.

docmd.setwarnings false

DoCmd.RunSQL "DELETE Baslangic_saat, Is_emir_no, Nz([Baslangic_saat],0) AS İfade1 FROM [Operasyon Kayitlari] WHERE (((Nz([Baslangic_saat],0))=0));"

docmd.setwarnings true

kodunu aşağıdaki ile değiştir.

Ayrıca, aşağıdaki konuyu mutlaka inceleyip örnek uygulamanı düzenle.

Yapılmaması gereken ölümcül hatalar