مساعدة في إتمام كود ترحيل

[محمد عبد الله ٢]

السلام عليكم و رحمة الله و بركاته

واجهتني مشكلة أثناء تنفيذ الكود و هي جلب القيمة المحددة و ترحيلها من الجدول Table_2 الى Table_3

تم الإحضار , و لكن المطلوب إحضار جميع  الملاحظات التابعة للريال في الجدول  Table_2 و دمجها في حقل  Table_3.not أثناء ترحيل البيانات الى الجدول Table_3

مزيد من التفاصيل في المرفقات و جزاكم الله خيرآ

 

MEDATA.rar

تم تعديل فبراير 14, 2022 بواسطه محمد عبد الله ٢
استبدال الملف

[husamwahab]

السلام عليكم

تفضل هذه المحاولة ارجو ان تكون موفقة

MEDATA-2.rar

[محمد عبد الله ٢]

husamwahab

جزاك الله خيرآ أستاذ حسام .. أحسنت

أطمع بالمزيد من العلم من حضرتك ..

هل من الممكن إضافة القيمة المالية للملاحظة ؟

مثال : عمال + وقود

أن تصبح 550 عمال + 60  وقود

علمآ أنك قد وفيت و كفيت أستاذي المحترم 

 

[Eng.Qassim]

مشاركة مع اخي استاذ حسام

 

MEDATA-1.accdb

[د.كاف يار]

وتفضل هذه محاولة اخرى

 

MEDATA.zip

[محمد عبد الله ٢]

10 دقائق مضت, محمد عبد الله ٢ said:

هل من الممكن إضافة القيمة المالية للملاحظة ؟

تم الحل و لله الحمد و الشكر

و الشكر للأستاذ حسام أسأل الله له الجنة

حيث عدلت الكود في الوحدة النمطية ليصبح على الشكل التالي : 

 For i = 1 To k
    If XSum = "" Then
      XSum = Trim(XSum & Rs!mon & " " & Rs!not1)
    Else
      XSum = XSum & " + " & Rs!mon & Rs!not1
    End If
    Rs.MoveNext
  Next i

2 دقائق مضت, د.كاف يار said:

وتفضل هذه محاولة اخرى

جزاك الله أستاذ د.كاف يار

أسأل الله لك الأجر و الثواب

10 دقائق مضت, Eng.Qassim said:

مشاركة مع اخي استاذ حسام

ألف شكر لحضرتك أستاذ Eng.Qassim

زادنا الله و إياكم من علمه ..

[husamwahab]

بالخدمة استاذ محمد ورخم الله والديك