نسخ بيانات من جدول (جداول) الى جدول اخر

[mohamed elalfy]

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

تمنياتي لحضراتكم جميعا بأن تكونوا في اسعد واحسن حال

لدي استفسار قد اكون مخطئ في طرحه ربما لا يكون هناك سبيبل فيه ولكني ساعرضه لعل وعسى قد مر على خبراتكم الطويله

هل من الممكن نقل بيانات من جدول معين او جداول الى جدول اخر  بمعنى 

في المرفق تجدون نموذج مصغر 

هناك شركه بها عدد 5 فروع/  والفروع بها موظفون , نظام العمل أن يعمل الموطف لمدة 5 اشهر ثم ياخد اجازه وبعد ال 5 اشهر يعاد تعيينه في فرع اخر 

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

السؤال هل من الممكن عند اعادة تعيينه في فرع اخر نسترجع جميع بياناته المسجله في الفرع الاول

ما دفعني الى السؤال انا البيانات كثيره جدا وبها مرفقات كثيره 

شكرا لحضراتكم 

New Microsoft Access Database.accdb

تم تعديل يوليو 18, 2020 بواسطه mohamed elalfy

[mohamed elalfy]

up

[عفرنس]

طول بالك .. 

سيأتيك الحل بإذن الله  

[mohamed elalfy]

ان شاء الله ا فايز

شكرا

[husamwahab]

هل ممكن التعديل على قاعدة البيانات كاختصار عدد الجداول ام لا

[mohamed elalfy]

شكرا ا حسام 

للاسف عدد الفروع 5 ولا يمكن تقليصه

انا عارف ان الامر مزعج

[أبوبسمله]

السلام عليكم

مشاركه مع اخى @husamwahab جزاه الله خيرا 💐

هل هذا ما تريد

افتح النموذج اختار الفرع المحول منه ثم اختار الفرع المحول اليه ثم اختار الموظف الذى سيتم نقله للفرع المحول عليه ثم اضغط زر تنفيذ

ملحوظه الاسماء سوف تظهر بعد اختيار الفرع المحول منه

ثم افتح الجدول الخاص بالفرع المحول عليه

جرب ووافنا بالنتيجه

New.accdb

[husamwahab]

14 minutes ago, mohamed elalfy said:

للاسف عدد الفروع 5 ولا يمكن تقليصه

 

لا اقصد تقليص عدد الفروع 

القصد تقليص الجداول مع بقاء عدد الفروع اي التعديل ببنية قاعدة البيانات

[mohamed elalfy]

استاذي الفلاحجي 

جزاك الله كل خير 

هذه الرساله تظهر عند الضغط على الفرع المحول منه 

تم تعديل يوليو 18, 2020 بواسطه mohamed elalfy

[أبوبسمله]

طيب جرب الان

 

New.accdb

[mohamed elalfy]

11 دقائق مضت, husamwahab said:

لا اقصد تقليص عدد الفروع 

القصد تقليص الجداول مع بقاء عدد الفروع اي التعديل ببنية قاعدة البيانات

ا حسام 

يستحيل تقليص وضم الجداول 

لان كل جدول مساحته كبيره 

وعند ضمه سيصل الجدول الواحد الى 2 جيجا وتقفل القاعده تمام كما تعلم

1 دقيقه مضت, الفلاحجى said:

طيب جرب الان

 

New.accdb 556 kB · 0 تنزيلات

حالا 

[mohamed elalfy]

6 دقائق مضت, الفلاحجى said:

طيب جرب الان

 

New.accdb 556 kB · 1 تنزيلات

استاذي 

ظهرت نفس الرساله السابقه

انا استخدم office 2013 

يجوز هو المشكله؟ 

[أبوبسمله]

طيب جرب الان

 

New1.accdb

[mohamed elalfy]

5 دقائق مضت, الفلاحجى said:

طيب جرب الان

 

New1.accdb 632 kB · 0 تنزيلات

للاسف نفس رسالة الخطا

هل عند حضرتك اشتغل ؟

[أبوبسمله]

شغال عندى وجربته قبل ما ارفعه

[mohamed elalfy]

1 دقيقه مضت, الفلاحجى said:

شغال عندى وجربته قبل ما ارفعه

طيب حجرب بكره من المكتب  ان شاء الله

ممكن لو عند حضرتك وقت تشرحلنا نفذت الفكره ازاي

[أبوبسمله]

طيب جرب الان

عما اشرح لك

 

 

New1.accdb

[mohamed elalfy]

2 دقائق مضت, الفلاحجى said:

طيب جرب الان

عما اشرح لك

 

 

New1.accdb 556 kB · 0 تنزيلات

نفس الرساله 

اسف والله تعبتك معايا 

بس ليه الكود مكتوب بالشكل المرفق (عشان الجدول عربي؟)

 

[أبوبسمله]

ساشرح باختصار

الكمبو الاول والثانى لاختيار الفروع ووضعت بمصدر الصف لهم نفس الجمله التاليه

SELECT MSysObjects.Name, MSysObjects.Flags
FROM MSysObjects
WHERE (((MSysObjects.Flags)=0) AND ((MSysObjects.Type)=1));

فى حدث بعد التحديث للكمبو الاول وضعنا الكود التالى لجلب الاسماء بناء على الفرع

Sub cmbF1_AfterUpdate()
Dim x As String
Dim strSQL As String

x = Me.cmbF1.Value

strSQL = "SELECT الاسم FROM " & "[" & x & "]" & ";"
Me.cmbEmp.RowSource = strSQL

End Sub

بعد اختيار الاسم

فحدث عند النقر قمت بوضع الكود التالى لالحاق البيانات

Private Sub btnRun_Click()

Dim x As String
Dim y As String
Dim z As String

x = Me.cmbF1.Value
y = Me.cmbF2.Value
z = Me.cmbEmp.Value


DoCmd.RunSQL "INSERT INTO " & "[" & y & "]" & "( الاسم, [تاريخ الميلاد], [الشهاده الجامعيه], الجامعه, الراتب, [الحاله الاجتماعيه], [تاريخ بداية الخدمه] )" & _
"SELECT الاسم,[تاريخ الميلاد],[الشهاده الجامعيه],الجامعه,الراتب,[الحاله الاجتماعيه], Date() AS SDate " & _
"FROM " & "[" & x & "]" & " WHERE (الاسم='" & z & "');"

End Sub

 

 

[mohamed elalfy]

الف شكر

ان شاء الله كده واضح جدا

انا عاجز عن الشكر

بكره ان شاء الله حجرب وان شاء الله تنجح 

فعلا فكره عبقريه

عاجز عن الشكر وربنا يجعله في ميزان حسانتك ان شاء الله

 

[أبوبسمله]

اتبع الشرح فالرابط التالى ووافنا بالنتيجه لحل هذه المشكله

 

 

الشكر لله ثم لاخواننا واساتذتنا جزاهم الله خيرا

بالتوفيق

[mohamed elalfy]

حاضر استاذي الفلاججي

تسلم وربنا يكرمك

 

[mohamed elalfy]

سلام عليكم  ا / ابو بسمله 

عارف اني تعبت حضرتك معايا بس ان شاء الله كله في ميزان حسناتك ان شاء الله 

حاولت اشتغل على الاكواد بس اتلغبطت مني عشان الحقول كانت متسميه بالعربي 

انا غيرت الجدول وعملت الحقول بالانجليزي , لو في مجال حضرتك تعملي الفكره على المرفق 

New Microsoft Access Database.accdb

[عفرنس]

14 ساعات مضت, الفلاحجى said:

السلام عليكم

مشاركه مع اخى @husamwahab جزاه الله خيرا 💐

هل هذا ما تريد

افتح النموذج اختار الفرع المحول منه ثم اختار الفرع المحول اليه ثم اختار الموظف الذى سيتم نقله للفرع المحول عليه ثم اضغط زر تنفيذ

ملحوظه الاسماء سوف تظهر بعد اختيار الفرع المحول منه

ثم افتح الجدول الخاص بالفرع المحول عليه

جرب ووافنا بالنتيجه

New.accdb 560 kB · 2 تنزيلات

أخي @الفلاحجى شغل مية على مية . 

لكن السؤال : المفروض عندما تنقل بيانات الموظف حسن مثلا من الفرع 1 إلى الفرع 2 ما تبقى بالجدول 1 . لأنه اذا بقيت صار اسم حسن مكرر في جدولين . 

[mohamed elalfy]

8 دقائق مضت, فايز.. said:

أخي @الفلاحجى شغل مية على مية . 

لكن السؤال : المفروض عندما تنقل بيانات الموظف حسن مثلا من الفرع 1 إلى الفرع 2 ما تبقى بالجدول 1 . لأنه اذا بقيت صار اسم حسن مكرر في جدولين . 

هو ده المطلوب ا فايز 

عشان لو اتلغى اتلغت فترة عمله بالفرع 1 , 

ولكنه لا يفتح معي  😭😭