تحويل اسماء اعمدة جدول الى حقول في جدول اخر

[أغيد]

الاخوة الكرام .... 

السلام عليكم ... ارجو ا تفضلكم بمساعدتي في كيفية تحويل اسماء اعمدة جدول  الى حقول في جدول اخر كماهو موضح بالصورة ادناه ... شاكرا لكم تعاونكم 

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

[شايب]

3 ساعات مضت, أغيد said:

السلام عليكم ... ارجو ا تفضلكم بمساعدتي في كيفية تحويل اسماء اعمدة جدول  الى حقول في جدول اخر كماهو موضح بالصورة ادناه ... شاكرا لكم تعاونكم 

وعليكم السلام

اخونا العزيز شايب يجزم ان هذا الكود من عملنا الاخ متقاعد

وعلى الرغم من عدم الاقتناع بعمل متقاعد

الا انه يمكن تنفيذ ماتريد باضافة السطر التالي

rs!feah = fld.Properties("Caption")

بعد

rs.AddNew

الملف مرفق مع عدم الاقتناع

اخونا الشايب

 

test2023(1).accdb

[أغيد]

منذ ساعه, شايب said:

خونا العزيز شايب يجزم ان هذا الكود من عملنا الاخ متقاعد

وعلى الرغم من عدم الاقتناع بعمل متقاعد

كل الشكر والامتنان لك اخي @شايب والشكر موصول لجميع اساتذتنا ومعلمينا في المنتدى والشكر موصول ايضاً @متقاعد فعلا الكود السابق مأخوذ من مشاركتكم السابقة استفدت منه وبقي ما تفضلتم بالاجابة عليه ... اكرر شكري وامتناني ...اسئل الله ان ينفعنا بعلمكم ويزيدكم من فضله وكرمة 

 

تم تعديل أغسطس 19, 2023 بواسطه أغيد

[أغيد]

منذ ساعه, شايب said:

الملف مرفق مع عدم الاقتناع

ما سبب عدم الاقتناع ... 

[شايب]

43 دقائق مضت, أغيد said:

ما سبب عدم الاقتناع ... 

لحاجة في نفس يعقوب وامور اخرى

49 دقائق مضت, أغيد said:

كل الشكر والامتنان لك اخي @شايب 

الشكر لله اخي مع اطيب امنياتي لك بالتوفيق

اخونا الفاضل شايب 🌹