Geri Al butonunun tıklandığında olayına yazılan kodu aşağıdaki ile değiştiriniz.

Private Sub Komut16_Click()

On Error GoTo Err_Komut16_Click

DoCmd.SetWarnings False

DoCmd.RunSQL ("DELETE HareketDetay.HareketNo FROM HareketDetay WHERE (((HareketDetay.HareketNo)=[Forms]![Satis]![HareketNo]))")

Forms![Satis]![HareketDetay].Form.Requery

DoCmd.SetWarnings True

Exit_Komut16_Click:

    Exit Sub



Err_Komut16_Click:

    MsgBox Err.Description

    Resume Exit_Komut16_Click

    

End Sub