14/02/2020, 00:51
ozanakkaya
Öncelikle bunlar makro değil Visual Basic Application kodu. Herhangi bir kopyalama işlemi olmadığı için resimler panoya kaydedilmiyor.
Kayıt sil butonunun tıklandığında olayına
kodu ekleyerek deneyiniz.
Kayıt ekle'da verdiği hatanın resmini ekleyiniz.
Kayıt sil butonunun tıklandığında olayına
If MsgBox("Kayıt Silinsin Mi?", vbExclamation + vbYesNo, "Silme Onayı") = vbYes Then
DoCmd.SetWarnings False
If Len(Dir(CurrentProject.Path & "\Resimler\" & Me.tckimlikno & ".jpg")) > 0 Then
Kill CurrentProject.Path & "\Resimler\" & Me.tckimlikno & ".jpg"
End If
DoCmd.RunCommand acCmdDeleteRecord
DoCmd.SetWarnings True
End If
kodu ekleyerek deneyiniz.
Kayıt ekle'da verdiği hatanın resmini ekleyiniz.