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

[mohamed elalfy]

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

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

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

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

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

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

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

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

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

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

New Microsoft Access Database.accdbFetching info...

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

[mohamed elalfy]

up

[عفرنس]

طول بالك .. 

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

[mohamed elalfy]

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

شكرا

[husamwahab]

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

[mohamed elalfy]

شكرا ا حسام 

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

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

[أبوبسمله]

السلام عليكم

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

هل هذا ما تريد

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

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

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

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

New.accdbFetching info...

[husamwahab]

  في 18‏/7‏/2020 at 18:44, mohamed elalfy said:

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

 

Expand  

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

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

[mohamed elalfy]

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

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

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

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

[أبوبسمله]

طيب جرب الان

 

New.accdbFetching info...

[mohamed elalfy]

  في 18‏/7‏/2020 at 19:01, husamwahab said:

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

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

Expand  

ا حسام 

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

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

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

  في 18‏/7‏/2020 at 19:14, الفلاحجى said:

طيب جرب الان

 

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

Expand  

حالا 

[mohamed elalfy]

  في 18‏/7‏/2020 at 19:14, الفلاحجى said:

طيب جرب الان

 

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

Expand  

استاذي 

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

انا استخدم office 2013 

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

[أبوبسمله]

طيب جرب الان

 

New1.accdbFetching info...

[mohamed elalfy]

  في 18‏/7‏/2020 at 19:24, الفلاحجى said:

طيب جرب الان

 

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

Expand  

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

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

[أبوبسمله]

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

[mohamed elalfy]

  في 18‏/7‏/2020 at 19:31, الفلاحجى said:

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

Expand  

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

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

[أبوبسمله]

طيب جرب الان

عما اشرح لك

 

 

New1.accdbFetching info...

[mohamed elalfy]

  في 18‏/7‏/2020 at 19:39, الفلاحجى said:

طيب جرب الان

عما اشرح لك

 

 

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

Expand  

نفس الرساله 

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

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

 

[أبوبسمله]

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

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

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

[عفرنس]

  في 18‏/7‏/2020 at 18:56, الفلاحجى said:

السلام عليكم

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

هل هذا ما تريد

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

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

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

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

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

Expand  

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

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

[mohamed elalfy]

  في 19‏/7‏/2020 at 09:55, فايز.. said:

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

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

Expand  

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

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

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