أغيد قام بنشر أغسطس 19, 2023 مشاركة قام بنشر أغسطس 19, 2023 الاخوة الكرام .... السلام عليكم ... ارجو ا تفضلكم بمساعدتي في كيفية تحويل اسماء اعمدة جدول الى حقول في جدول اخر كماهو موضح بالصورة ادناه ... شاكرا لكم تعاونكم Private Sub ÃãÑ0_Click() Dim rst As DAO.Recordset Dim rs As DAO.Recordset Dim fld As Field Dim a As Integer Set rst = CurrentDb.OpenRecordset("the main") Set rs = CurrentDb.OpenRecordset("sd") For a = 1 To rst.RecordCount For Each fld In rst.Fields If fld.Name = "f1" Or fld.Name = "f2" Or fld.Name = "f3" Then rs.AddNew rs!a = fld.Value rs!id = rst!no rs!location = rst!location rs!Month = rst!Month rs.Update End If Next fld rst.MoveNext Next a rst.Close: Set rst = Nothing rs.Close: Set rs = Nothing End Sub test2023.accdb رابط هذا التعليق شارك More sharing options...
أفضل إجابة شايب قام بنشر أغسطس 19, 2023 أفضل إجابة مشاركة قام بنشر أغسطس 19, 2023 3 ساعات مضت, أغيد said: السلام عليكم ... ارجو ا تفضلكم بمساعدتي في كيفية تحويل اسماء اعمدة جدول الى حقول في جدول اخر كماهو موضح بالصورة ادناه ... شاكرا لكم تعاونكم وعليكم السلام اخونا العزيز شايب يجزم ان هذا الكود من عملنا الاخ متقاعد وعلى الرغم من عدم الاقتناع بعمل متقاعد الا انه يمكن تنفيذ ماتريد باضافة السطر التالي rs!feah = fld.Properties("Caption") بعد rs.AddNew الملف مرفق مع عدم الاقتناع اخونا الشايب test2023(1).accdb 1 رابط هذا التعليق شارك More sharing options...
أغيد قام بنشر أغسطس 19, 2023 الكاتب مشاركة قام بنشر أغسطس 19, 2023 (معدل) منذ ساعه, شايب said: خونا العزيز شايب يجزم ان هذا الكود من عملنا الاخ متقاعد وعلى الرغم من عدم الاقتناع بعمل متقاعد كل الشكر والامتنان لك اخي @شايب والشكر موصول لجميع اساتذتنا ومعلمينا في المنتدى والشكر موصول ايضاً @متقاعد فعلا الكود السابق مأخوذ من مشاركتكم السابقة استفدت منه وبقي ما تفضلتم بالاجابة عليه ... اكرر شكري وامتناني ...اسئل الله ان ينفعنا بعلمكم ويزيدكم من فضله وكرمة تم تعديل أغسطس 19, 2023 بواسطه أغيد 1 رابط هذا التعليق شارك More sharing options...
أغيد قام بنشر أغسطس 19, 2023 الكاتب مشاركة قام بنشر أغسطس 19, 2023 منذ ساعه, شايب said: الملف مرفق مع عدم الاقتناع ما سبب عدم الاقتناع ... رابط هذا التعليق شارك More sharing options...
شايب قام بنشر أغسطس 19, 2023 مشاركة قام بنشر أغسطس 19, 2023 43 دقائق مضت, أغيد said: ما سبب عدم الاقتناع ... لحاجة في نفس يعقوب وامور اخرى 49 دقائق مضت, أغيد said: كل الشكر والامتنان لك اخي @شايب الشكر لله اخي مع اطيب امنياتي لك بالتوفيق اخونا الفاضل شايب 🌹 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان