Silme butonunun tıklandığında olayındaki kodu aşağıdakilerle değiştiriniz.
DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE SIRANO FROM TBLKISIBILGILERI WHERE (((SIRANO) In (" & [AKSIRANO] & "," & [Açılan_Kutu15] & "," & [Açılan_Kutu25] & ")));"
DoCmd.SetWarnings True
Rapor yazdırma olayı için, TBLKISIBILGILERI isimli raporun denetim kaynağını aşağıdaki ile değiştir.
SELECT TBLKISIBILGILERI.SIRANO, TBLKISIBILGILERI.ADI, TBLKISIBILGILERI.SOYADI, TBLKISIBILGILERI.ADRESI, TBLKISIBILGILERI.TELNO FROM TBLKISIBILGILERI WHERE (((TBLKISIBILGILERI.SIRANO)=[Formlar]![FRMKISIBILGILERI (Form Üzerinde)]![AKSIRANO] Or (TBLKISIBILGILERI.SIRANO)=[Formlar]![FRMKISIBILGILERI (Form Üzerinde)]![Açılan Kutu15] Or (TBLKISIBILGILERI.SIRANO)=[Formlar]![FRMKISIBILGILERI (Form Üzerinde)]![Açılan Kutu25]));
Form yazdırma işleminde butonların görünmemesi için;
Buton özelliklerinden "Görüntüleme Koşulu" özelliğini Yalnızca Ekran olarak değiştir.