2. kodu aşağıdaki gibi değiştirip dener misiniz?

…. Then

MsgBox "Boş alan..!Lütfen eksik alanları doldurunuz.. ", vbOKOnly + vbCritical, "Kayıtta Eksik Bilgi"

Me.txtCRM.SetFocus

exit sub 

end if

resmi silmek için "kill" komutunu kullanabilirsiniz

kill dosyaAdresi&dosyaAdi