Kayda Göre Numara Belirleme

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

lütfen gönderdiğiniz örneklerinizde resimdeki ayarlamayı yapınız.

Sayın kesoka;
Size F_RECETE adlı formda basit bir reçete tasarımı önerisi sunuyorum. Sledgeab Hocamın dediği gibi başka hiç bir şeye ihtiyaç yok. Onun verdiği kodları (eğer uygun görürseniz benim önerdiğim forma) uyarlayın yeter. Kolay gelsin.

sayın sledgeab hocam gönderdiğiniz kod için çok tşkler. tabi benimki kulapı terten tutmaktı sizinki çok daha pratik.... fakat protokolno ile bi alakası yok sanırım. ama çok işime yarıyacak tşkler...
sayın yandemir hocam verdiğiniz düzeltmeyi eke uygulayabilirseniz çok sevinirim. düzeltmeyi uygulayamadım...

Yaptığımı eklemeyi unutmuşum Şimdi üstteki mesaja ekledim. (#21) Bakabilir misiniz?

sorgu ve formda birer düzeltme var.