Bence recete_kapat formuna ve sorgulara gerek yok.

reçete alt formuna yazdığın veriyi arşive kaydetmek için ve reçete alt formundaki verileri temizlemek için

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

kodlarını vb ayfasına ekle,

kaydet butonu (reçete_kapat) kodlarını da aşağıdaki kod ile değiştir.

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