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

[عفرنس]

12 دقائق مضت, mohamed elalfy said:

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

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

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

أخي الفاضل البرنامج فتح معي 

نقل بيانات من جدول إلى جدول.accdb

تم تعديل يوليو 19, 2020 بواسطه فايز..

[mohamed elalfy]

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

أخي الفاضل البرنامج فتح معي 

نقل بيانات من جدول إلى جدول.accdb 672 kB · 0 تنزيلات

للاسف ده الي بيظهر ومش لاقي حل

[عفرنس]

5 دقائق مضت, mohamed elalfy said:

للاسف ده الي بيظهر ومش لاقي حل

نحيل الموضوع إلى الكبار @jjafferr @محمد أبوعبدالله

[عفرنس]

اعمل نموذج بالملف اللي عندك . وضع فيه كما بالصورة التالية 

ثم انسخ الأكواد التالية في محرر الآكواد 

Option Compare Database

Sub cmbF1_AfterUpdate()
x = Me.cmbF1.Value
y = Me.cmbF2.Value
z = Me.cmbEmp.Value

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

End Sub

Private Sub command0_Click()
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

تم تعديل يوليو 19, 2020 بواسطه فايز..

[mohamed elalfy]

شكرا ا فايز

مافي فايده الواضح ان المشكله عندي

انا بستخدم OFFICE 2020 

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

 

[jjafferr]

منذ ساعه, فايز.. said:

نحيل الموضوع إلى

 

 

- انا كلما اشوف رسالة خطأ في OLE و عنصر ActiveX ، فغالبا المشكلة في اعدادات الوندوز : 

A problem occurred while Microsoft Access was communicating with the OLE server or ActiveX control

https://www.officena.net/ib/topic/59481-استفسار-هام-بخصوص-اللغة-والبرمجة/?do=findComment&comment=381019

https://www.officena.net/ib/topic/64955-مشكلة-عند-فتح-البرنامج-على-ويندوز-8/?do=findComment&comment=423014

 

جعفر

[عفرنس]

منذ ساعه, jjafferr said:

 

 

- انا كلما اشوف رسالة خطأ في OLE و عنصر ActiveX ، فغالبا المشكلة في اعدادات الوندوز : 

A problem occurred while Microsoft Access was communicating with the OLE server or ActiveX control

https://www.officena.net/ib/topic/59481-استفسار-هام-بخصوص-اللغة-والبرمجة/?do=findComment&comment=381019

https://www.officena.net/ib/topic/64955-مشكلة-عند-فتح-البرنامج-على-ويندوز-8/?do=findComment&comment=423014

 

جعفر

حمد لله على السلامة @jjafferr 

لك غيبة .. 

[أبوبسمله]

4 ساعات مضت, فايز.. said:

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

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

طبيعى ده المفروض اللى يحصل وهذ ما كان يقصده اخى حسام  جزاه الله خيرا

19 ساعات مضت, husamwahab said:

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

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

فقمت بالتعديل حسب الموجود والموضح فقط ولكن اذا اعتمدنا كلامك اخى @فايز..  فالافضل كما قال اخى حسام جزاه الله خيرا التعديل فى بنيه الجداول وفصل بيانات الموظفين فى جدول ويتم اضافه كود الموظف بالفرع ثم تحديثه عند العوده والعمل مره اخرى على الفرع الجديد مع الحفاظ على رقم الموظف بالفرع الذى كان به حتى تكون لدينا سجلات هذا الموظف بكل فرع عمل به

اما بخصوص الرساله التى تظهر للاستاذ محمد فاشرت اليه بهذا الرابط ولا اعلم هل قام بزيارته ولاطلاع عليه ام لا ؟

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

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

 

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

بالتوفيق

 

جزاك الله خيرا معلمنا العزيز جعفر @jjafferr 💐 ع هذه الروابط وان شاء الله الاستاذ محمد يطلع عليها ويخبرنا بالنتيجه

ان شاء الله بالمساء @mohamed elalfy انظر لمثالك الجديد بعدما ارتاح قليلا من العمل

بالتوفيق اخوانى واساتذتى

[أبوبسمله]

7 ساعات مضت, mohamed elalfy said:

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

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

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

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

New Microsoft Access Database.accdb 1.25 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 0 تنزيلات

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

اتفضل وان شاء الله يشتغل معاك

بالتوفيق

New_1.accdb

[محمد أبوعبدالله]

6 ساعات مضت, فايز.. said:

نحيل الموضوع إلى الكبار @jjafferr @محمد أبوعبدالله

احب الصالحين ولست منهم ... غفر الله لنا ولك اخي الكريم

والحمد لله الاخوة ما قصروا بالحلول

نحياتي

[kha9009lid]

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

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

مع اني حاليا بعيد عن access لكن فعلا جدول واحد في اعتقادي للموظفين يكفي ومن تجربة لدينا قاعدة بيانات عملاقة تخدم مايقارب نصف مليون موظف في مئات الفروع

عند انتقال موظف او ترقيته في غير مقر وظيفتة يتغير الملاك ورقم الوظيفة وكذلك المرتبة في حالة الترقية ويبقى الموظف في جدول الموظفين ويبقى  رقم الملف فهو ثابت من تعيين الموظف لحين انتهاء خدمته

ويمكن تحديد موظفي كل فرع عن طريق الاستعلامات والصلاحيات تحدد من يمكنه الاطلاع على سجلات الموظف

مثال موظف في الفرع ب يمكن لصاحب الصلاحية في الفرع ب الاطلاع على سجلة وهكذا لبقية الفروع اما الادارة الرئيسية او المقر الرئيسي فيمكنة الاطلاع على كافة الموظفين

 

وحتى لا تفهم مشاركتي بشكل غير صحيح اقصد في ردي جدول الموظفين

فلدينا جدول للمراتب وجدول لمسميات الوظائف وجدول للمقرات العمل الخ

[mohamed elalfy]

شكرا جزيلا لحضرتكم جميعا 

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

 

[mohamed elalfy]

21 ساعات مضت, jjafferr said:

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

- انا كلما اشوف رسالة خطأ في OLE و عنصر ActiveX ، فغالبا المشكلة في اعدادات الوندوز : 

A problem occurred while Microsoft Access was communicating with the OLE server or ActiveX control

https://www.officena.net/ib/topic/59481-استفسار-هام-بخصوص-اللغة-والبرمجة/?do=findComment&comment=381019

https://www.officena.net/ib/topic/64955-مشكلة-عند-فتح-البرنامج-على-ويندوز-8/?do=findComment&comment=423014

 

جعفر

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

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

الف شكر 

[jjafferr]

الحمدلله الذي منّ على منتدانا بكوكبة من الشباب المعطاء ، يغبطنا بل ويحسدنا عليها الكثيرون 🙂

 

اخي محمد ، رجاء اكمل معروفك ، بتقديرك عمل الاعضاء اللذين ساعدوك ، بعمل Like لمشاركاتهم المفيدة:

 

ثم اختار افضل مشاركة التي اعطتك الاجابة الصحيحة (وطبعا ليست مشاركتي ، لأنها كانت لحل مشكلة اخرى 🙂 ) :

.

جعفر

[عفرنس]

59 دقائق مضت, jjafferr said:

الحمدلله الذي منّ على منتدانا بكوكبة من الشباب المعطاء ، يغبطنا بل ويحسدنا عليها الكثيرون 🙂

 

اخي محمد ، رجاء اكمل معروفك ، بتقديرك عمل الاعضاء اللذين ساعدوك ، بعمل Like لمشاركاتهم المفيدة:

 

ثم اختار افضل مشاركة التي اعطتك الاجابة الصحيحة (وطبعا ليست مشاركتي ، لأنها كانت لحل مشكلة اخرى 🙂 ) :

.

جعفر

أخي @jjafferr هنيئا لمؤسس هذا الموقع ولكل من شارك فيه من الاخوة .. جزاهم الله خيرا على ما يقدمونه من معونة .. 

[mohamed elalfy]

سلام عليكم 

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

لو ممكن تفيدوني ازاي اخلي ال كومبو بوكس الاول والثاني يظهرلي الفروع للاختيار ما بينهم 

وانا ان شاء الله حكمل الكواد 

 

نقل بيانات من جدول إلى جدول (4).accdb

[أبوبسمله]

اتفضل استاذ @mohamed elalfy

لديك الجدول MSysObjects تجده مخفى وتجد به اسماء الجداول والفلاجات و id

تم تغير Flags على حسب الجدول السابق

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

بالتوفيق ان شاء الله

نقل بيانات من جدول إلى جدول (4).accdb

[mohamed elalfy]

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

اتفضل استاذ @mohamed elalfy

لديك الجدول MSysObjects تجده مخفى وتجد به اسماء الجداول والفلاجات و id

تم تغير Flags على حسب الجدول السابق

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

بالتوفيق ان شاء الله

نقل بيانات من جدول إلى جدول (4).accdb 1.55 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 0 تنزيلات

خلصت فيك كل الكلام 

الف شكر وربنا يديمك سند لغيرك 

[أبوبسمله]

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

بالتوفيق

[mohamed elalfy]

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

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

استفساري طبعا النموذج الي انا كنت حاطه كان مجرد مثال , دلوقتي لما جيت اجرب الفكره على النموذج الحقيقي ظهرت لي رسالة خطا المرفقه 

يعني احنا كنا بنشتغل على اسماء 8 حقول , بس ده كان وقت التجربه انا دلوقتي عندي حوالي 50 حقل لما بدات ادخل الكود كان شغال كويس جدا بس لما زاد عن 8 حقول وقف وطلعت رساله الخطا الي في المرفق

سؤالي هو  : هل كان فيه حد اقصى لاسماء الحقول في الكود مينفعش ازود عليها  ؟  انا طبعا اشتغلت على نموذج التجربه الي كان فيه 8 حقول بس وبدات ازود في الكود اسم حقل ثم اسم حقل . بس اول ما زاد عن ال8 ظهرت الرساله 

شكرا ومقدر جدا مجهودك 

 

نقل بيانات من جدول إلى جدول (4) (1).accdb

[jjafferr]

الظاهر ان عندك حقل في الجدول من نوع Lookup ، فهذا الحقل لا يمكن استعماله في الاستعلام .

 

جعفر

[mohamed elalfy]

7 دقائق مضت, jjafferr said:

الظاهر ان عندك حقل في الجدول من نوع Lookup ، فهذا الحقل لا يمكن استعماله في الاستعلام .

 

جعفر

شكرا استاذنا ومعلمنا لمرور حضرتك الكريم 

كده قفلت وملهاش حل؟ 

[jjafferr]

حقل في الجدول من نوع Lookup يحتوي على اكثر من قيمة ، ما يعرف الاكسس يتعامل اي من هذه القيم !!

[mohamed elalfy]

1 دقيقه مضت, jjafferr said:

حقل في الجدول من نوع Lookup يحتوي على اكثر من قيمة ، ما يعرف الاكسس يتعامل اي من هذه القيم !!

تمام واضح جدا الف شكر

 

14 دقائق مضت, jjafferr said:

الظاهر ان عندك حقل في الجدول من نوع Lookup ، فهذا الحقل لا يمكن استعماله في الاستعلام .

 

جعفر

شكرا استاذنا ومعلمنا لمرور حضرتك الكريم 

كده قفلت وملهاش حل؟