كود نقل بيانت نموذج الى سجلين في جدولين مختلفين

[tayseer2009]

السلام عليكم ورحمة الله وبركاته اريد من عباقة الاكسس طلب وهو كو يقوم بنقل بينات نموذج ال سجلين في جدول  او جدولين

وشكرا لكم

[محمد أبوعبدالله]

وعليكم السلام ورحمة الله وبركاته

تفضل اخي الكريم

        Dim db As DAO.Database
        Dim rs As DAO.Recordset
        Dim rss As DAO.Recordset
        Set db = CurrentDb
        
        Set rs = db.OpenRecordset("SELECT tbl1.*FROM tbl1;")
        Set rss = db.OpenRecordset("SELECT tbl2.*FROM tbl2;")
        
        rs.AddNew
        rs("txt1") = Me.txt1
        rs("txt2") = Me.txt2
        rs("txt3") = Me.txt3
        
        rs.Update
        rs.Close

        
        rss.AddNew
        rss("txt1") = Me.txt1
        rss("txt2") = Me.txt2
        rss("txt3") = Me.txt3
        
        rss.Update
        rss.Close

تحياتي

[tayseer2009]

اخي العزيز عبد الله شكرا لاهتمام  الكريم وبارك الله فيك

اخي لو تكرمت اذا في امكانية كود ترحيل بيانات في نفس الجدول tbl1   ولكن الترحيل يكون بسطرين او سجلين اي يكون الترحل متكرر السجل الاول يساوي نفس بيانات السجل الثاني  

مع الاحترام