أغيد قام بنشر أغسطس 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
أفضل إجابة شايب قام بنشر أغسطس 19, 2023 أفضل إجابة قام بنشر أغسطس 19, 2023 3 ساعات مضت, أغيد said: السلام عليكم ... ارجو ا تفضلكم بمساعدتي في كيفية تحويل اسماء اعمدة جدول الى حقول في جدول اخر كماهو موضح بالصورة ادناه ... شاكرا لكم تعاونكم وعليكم السلام اخونا العزيز شايب يجزم ان هذا الكود من عملنا الاخ متقاعد وعلى الرغم من عدم الاقتناع بعمل متقاعد الا انه يمكن تنفيذ ماتريد باضافة السطر التالي rs!feah = fld.Properties("Caption") بعد rs.AddNew الملف مرفق مع عدم الاقتناع اخونا الشايب test2023(1).accdb 1
أغيد قام بنشر أغسطس 19, 2023 الكاتب قام بنشر أغسطس 19, 2023 (معدل) منذ ساعه, شايب said: خونا العزيز شايب يجزم ان هذا الكود من عملنا الاخ متقاعد وعلى الرغم من عدم الاقتناع بعمل متقاعد كل الشكر والامتنان لك اخي @شايب والشكر موصول لجميع اساتذتنا ومعلمينا في المنتدى والشكر موصول ايضاً @متقاعد فعلا الكود السابق مأخوذ من مشاركتكم السابقة استفدت منه وبقي ما تفضلتم بالاجابة عليه ... اكرر شكري وامتناني ...اسئل الله ان ينفعنا بعلمكم ويزيدكم من فضله وكرمة تم تعديل أغسطس 19, 2023 بواسطه أغيد 1
أغيد قام بنشر أغسطس 19, 2023 الكاتب قام بنشر أغسطس 19, 2023 منذ ساعه, شايب said: الملف مرفق مع عدم الاقتناع ما سبب عدم الاقتناع ...
شايب قام بنشر أغسطس 19, 2023 قام بنشر أغسطس 19, 2023 43 دقائق مضت, أغيد said: ما سبب عدم الاقتناع ... لحاجة في نفس يعقوب وامور اخرى 49 دقائق مضت, أغيد said: كل الشكر والامتنان لك اخي @شايب الشكر لله اخي مع اطيب امنياتي لك بالتوفيق اخونا الفاضل شايب 🌹
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.