ابو البشر قام بنشر يونيو 28, 2018 مشاركة قام بنشر يونيو 28, 2018 السلام عليكم ورحمة الله وبركاته ..... الاخوة الافاضل من مشرفين وأعضاء المنتدى المبارك لدي جدول به بيانات بشكل حقول متعددة . المطلوب هو نقل هذه البيانات عن طريق كود الى جدول إخر على شكل سجلات . لا أريدها عن طريق استعلام الحاق فقط لأن اسماء الحقول تتغير كل مرة وأيضا عدد هذه الحقول .... والشرح كما في الصور التاليه : Data1.mdb رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر يونيو 28, 2018 مشاركة قام بنشر يونيو 28, 2018 وعليكم السلام وبتغيير بسيط على الكود: نصل الى: Private Sub cmd_Go_Click() Dim rst As DAO.Recordset Dim rst2 As DAO.Recordset Dim db As DAO.Database Dim RC As Integer Dim i As Integer Dim j As Integer Set db = CurrentDb db.Execute ("Delete * From bayan1") Set rst2 = db.OpenRecordset("Select * From bayan1") Set rst = db.OpenRecordset("Select * From bayan") rst.MoveLast: rst.MoveFirst RC = rst.RecordCount For i = 1 To RC For j = 0 To rst.Fields.Count - 1 If Len(rst.Fields(j).Value & "") = 0 Then GoTo Next_j rst2.AddNew rst2!a1 = rst.Fields(j).Value rst2.Update Next_j: Next j rst.MoveNext Next i rst.Close: Set rst = Nothing rst2.Close: Set rst2 = Nothing db.Close End Sub جعفر 2 رابط هذا التعليق شارك More sharing options...
عبد الفتاح كيرة قام بنشر يونيو 28, 2018 مشاركة قام بنشر يونيو 28, 2018 بارك الله فيكم رابط هذا التعليق شارك More sharing options...
ابو البشر قام بنشر يونيو 28, 2018 الكاتب مشاركة قام بنشر يونيو 28, 2018 تسلم يا استاذ . جعفر ... بارك الله فيك وفي جهودك في المنتدى ومعنا جميعا ... شكرا لك وكتب الله اجرك . رابط هذا التعليق شارك More sharing options...
kanory قام بنشر يونيو 28, 2018 مشاركة قام بنشر يونيو 28, 2018 ما شاء الله تبارك الله رابط هذا التعليق شارك 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.