tayseer2009 قام بنشر ديسمبر 27, 2020 مشاركة قام بنشر ديسمبر 27, 2020 السلام عليكم ورحمة الله وبركاته اريد من عباقة الاكسس طلب وهو كو يقوم بنقل بينات نموذج ال سجلين في جدول او جدولين وشكرا لكم رابط هذا التعليق شارك More sharing options...
محمد أبوعبدالله قام بنشر ديسمبر 28, 2020 مشاركة قام بنشر ديسمبر 28, 2020 وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم 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 تحياتي 1 رابط هذا التعليق شارك More sharing options...
tayseer2009 قام بنشر ديسمبر 29, 2020 الكاتب مشاركة قام بنشر ديسمبر 29, 2020 اخي العزيز عبد الله شكرا لاهتمام الكريم وبارك الله فيك اخي لو تكرمت اذا في امكانية كود ترحيل بيانات في نفس الجدول tbl1 ولكن الترحيل يكون بسطرين او سجلين اي يكون الترحل متكرر السجل الاول يساوي نفس بيانات السجل الثاني مع الاحترام رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.