Sub VeriAktar()
Dim rs As New ADODB.Recordset
rs.Open "tbl_reçete_arşiv", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
rs.AddNew
rs("r_id") = [frm_reçete_alt].Form![r_id]
rs("p_id") = [frm_reçete_alt].Form![p_id]
rs("r_tarih") = [frm_reçete_alt].Form![r_tarih]
rs("r_teşhis") = [frm_reçete_alt].Form![r_teşhis]
rs("r_protokolno") = [frm_reçete_alt].Form![r_protokolno]
rs("r_barkotno") = [frm_reçete_alt].Form![r_barkotno]
rs("r_ilaçadı") = [frm_reçete_alt].Form![r_ilaçadı]
rs("r_fiyat") = [frm_reçete_alt].Form![r_fiyat]
rs("r_diger") = [frm_reçete_alt].Form![r_diger]
rs("r_acıklama") = [frm_reçete_alt].Form![r_acıklama]
rs.Update
Set rs = Nothing
End Sub

Sub TabloSil()
    Dim strSQL As String

    Dim db As Database
    Dim Wr As Recordset
    
    Set db = CurrentDb
    
        DoCmd.SetWarnings False
            
            strSQL = "DELETE * FROM tbl_reçete;"
            db.Execute strSQL
            
        DoCmd.SetWarnings True
        
        Set db = Nothing
End Sub

Private Sub reçete_kapat_Click()
Call VeriAktar
Call TabloSil
Me.frm_reçete_arşiv.Requery
Me.frm_reçete_alt.Requery  
End Sub