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

[أغيد]

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

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

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.accdbFetching info...

[شايب]

  في 19‏/8‏/2023 at 07:12, أغيد said:

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

Expand  

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

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

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

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

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

بعد

rs.AddNew

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

اخونا الشايب

 

test2023(1).accdbFetching info...

[أغيد]

  في 19‏/8‏/2023 at 10:37, شايب said:

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

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

Expand  

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

 

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

[أغيد]

  في 19‏/8‏/2023 at 10:37, شايب said:

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

Expand  

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

[شايب]

  في 19‏/8‏/2023 at 12:05, أغيد said:

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

Expand  

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

  في 19‏/8‏/2023 at 11:59, أغيد said:

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

Expand  

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

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