اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

الردود الموصى بها

قام بنشر

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

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

column_rows.jpg.6f4ff29f46dd203f82449454104204f6.jpg

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

  • Thanks 1
قام بنشر (معدل)
منذ ساعه, شايب said:

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

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

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

 

تم تعديل بواسطه أغيد
  • Like 1
قام بنشر
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.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information