If MsgBox("Resim Tablosu Temizlensin mi?", vbYesNo, "Silme Onayı?") = vbNo Then
Exit Sub
Else
CurrentDb.Execute "DELETE * FROM resim "
MsgBox "Tablo Silindi.", vbOKOnly, "Silme Onayı"
End If
Butonun tıklandığında olayına aşağıdaki kodu yazınız.