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

[عفرنس]

  في 19‏/7‏/2020 at 10:04, mohamed elalfy said:

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

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

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

Expand  

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

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

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

[mohamed elalfy]

  في 19‏/7‏/2020 at 10:16, فايز.. said:

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

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

Expand  

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

[عفرنس]

  في 19‏/7‏/2020 at 10:23, mohamed elalfy said:

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

Expand  

نحيل الموضوع إلى الكبار @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]

  في 19‏/7‏/2020 at 10:30, فايز.. said:

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

Expand  

 

 

- انا كلما اشوف رسالة خطأ في 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

 

جعفر

[عفرنس]

  في 19‏/7‏/2020 at 11:38, 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

 

جعفر

Expand  

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

لك غيبة .. 

[أبوبسمله]

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

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

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

Expand  

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

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

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

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

Expand  

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

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

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

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

 

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

بالتوفيق

Expand  

 

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

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

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

[أبوبسمله]

  في 19‏/7‏/2020 at 08:48, mohamed elalfy said:

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

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

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

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

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

Expand  

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

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

بالتوفيق

New_1.accdbFetching info...

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

  في 19‏/7‏/2020 at 10:30, فايز.. said:

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

Expand  

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

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

نحياتي

[kha9009lid]

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

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

Expand  

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

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

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

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

 

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

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

[mohamed elalfy]

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

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

 

[mohamed elalfy]

  في 19‏/7‏/2020 at 11:38, 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

 

جعفر

Expand  

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

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

الف شكر 

[jjafferr]

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

 

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

 

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

.

جعفر

[عفرنس]

  في 20‏/7‏/2020 at 09:42, jjafferr said:

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

 

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

 

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

.

جعفر

Expand  

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

[mohamed elalfy]

سلام عليكم 

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

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

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

 

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

[أبوبسمله]

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

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

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

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

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

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

[mohamed elalfy]

  في 20‏/7‏/2020 at 17:56, الفلاحجى 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 تنزيلات

Expand  

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

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

[أبوبسمله]

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

بالتوفيق

[mohamed elalfy]

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

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

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

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

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

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

 

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

[jjafferr]

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

 

جعفر

[mohamed elalfy]

  في 22‏/7‏/2020 at 20:17, jjafferr said:

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

 

جعفر

Expand  

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

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

[jjafferr]

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

[mohamed elalfy]

  في 22‏/7‏/2020 at 20:31, jjafferr said:

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

Expand  

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

 

  في 22‏/7‏/2020 at 20:17, jjafferr said:

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

 

جعفر

Expand  

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

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