أستدعاء بيانات من جدول اخر عن طريق المفتاح الغريب

[zymawy7]

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

اهلا وسهلا بأهل العلم والمعرفة بارك الله فيكم 

لدي قاعدة فيه مراجعين كل مراجع له رقم ملف خاص فيه 

اي مراجع  يتم الحصول علي بياناته من خلال رقم الملف 

فطبعا اغلب المراجعين اباء واحيانا يزورك ابنائهم مع رقم ملف الاب 

في انا اريد عندما يأتيني ابن برقم ابيه يكون هناك قائمة منسدلة

عند اسم الاب يكون فيه قائمة منسدلة فيه ابناء الاب 

 

عندما اختار اسم احد الابناء تتغير البيانات الى بيانات الابن المختار من القائمة 

كل البيانات تتغير من 

اسم 

الجنسية 

رقم الهوية 

مصدرها 

عنوان السكن 

رقم الجوال

المعرف

كل البيانات يتم احضارها من جدول الـSons  

باارك الله فيكم وزادكم علماً ونفعا للناس 

Fiamlies.rar

 

 

 

 

 

 

تم تعديل ديسمبر 4, 2016 بواسطه zymawy7

[zymawy7]

بارك الله فيكم 

[zymawy7]

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

أستاذ jjafferr

فزعتك هنا يالنابغة 

[صالح حمادي]

السلام عليكم

تفضل التعديل المطلوب

 

 

Fiamlies.rar

[zymawy7]

1 ساعه مضت, صالح حمادي said:

السلام عليكم

تفضل التعديل المطلوب

 

 

Fiamlies.rar

بارك الله فيك عمل ممتاز 

ولكن هل اقدر عندما استعلام عن الاب عن طريق رقم الملف تظهر البيانات ويكون هناك قائمة منسدلة في الاسم 

حيث استطيع تغير .؟ 

[zymawy7]

6 ساعات مضت, صالح حمادي said:

السلام عليكم

تفضل التعديل المطلوب

 

 

Fiamlies.rar

يالغالي اتحملني لاهنت مبتدئ 

عنددما حاولت تجربته في مشروعي وعملت كل شئ هناك استثناء يأتيني 

[صالح حمادي]

هل نقلت الكود كاملا

[zymawy7]

منذ ساعه, صالح حمادي said:

هل نقلت الكود كاملا

نعم 

الخطا يكون هنا في هذا الكود

Me.الاسم = DLookup("names", "PeopleNeighborhood", "ID='" & [fathnum] & "'")

حيث انني غيرت اسم الجدول الى PeopleNeighborhood واسم الحقل الى NAMES 

اعتقد المشكلة في مكان  ID  حيث لا ادري 

 

م رائك بأن عيد المثال واكتب جميع الحقول والجداول بنفس الاسماء الموجود في المشروع الرئيسي ؟

تم تعديل ديسمبر 8, 2016 بواسطه zymawy7

[jjafferr]

9 ساعات مضت, صالح حمادي said:

السلام عليكم

تفضل التعديل المطلوب

Fiamlies.rar

السلام عليكم أخي صالح

 

الطريقة التي استدعيت بها انت البيانات من الجدول ، هي بواسطة الدالة Dlookup لكل حقل ، اي استخدمت الدالة 8 مرات

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

 

جعفر

[jjafferr]

السلام عليكم

 

بعد ان قارنت الجدولين Fathers و Sons ، رأيت ان معظم الحقول تحمل نفس البيانات ، باستثناء اسم الاسم (اسم الاب في جدول الاباء ، واسم الابن في جدول الابناء) ،

فقمت بنسخ الاستعلام السابق ، وعمل استعلامين منه ، واحد للأب والاخر للابن ، وبتعديل اسم خانة الاسم ، حققت التالي:

.

والمهم عندي هنا هو ، اننا نستطيع تعديل البيانات (وليس قراءتها فقط)

.

فعند منادات الاب ، نستخدم استعلام الاباء ، وعند منادات الابن ، نستخدم استعلام الابناء 

والكود التالي يوضح الطريقة

Private Sub chk_Father_Click()

    If Me.chk_Father = -1 Then
    
        Me.cmd_son = ""
        Me.RecordSource = "qry_Fathers"
    Else
        Me.RecordSource = "qry_Sons"
    End If
    
    Me.Requery
    
End Sub

Private Sub cmd_FatherNum_AfterUpdate()

    Me.chk_Father = -1
    Me.cmd_son.Requery
    Call chk_Father_Click
End Sub

Private Sub cmd_son_AfterUpdate()

    Me.chk_Father = 0
    Call chk_Father_Click
    
End Sub

Private Sub Form_Load()

    Call chk_Father_Click
End Sub

.

وقد استفدت من مرفق اخي صالح ، واستخدمت حقلي البحث منه

 

جعفر

479.Fiamlies.accdb.zip

[صالح حمادي]

ما شاء الله عليك أستاذ جعفر

إذا حضر الماء غاب التيمم

فكرة ممتازة جدا جدا و خاصة فكرة إستعمال الدالة dlookup التي أشرت إليها

جزاك الله عنا كل خير أستاذي الكريم جعفر

 

[zymawy7]

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

 

ع راسي من فوق ي استاذ جعفر 

كل شئ تمام

اول م اختار رقم الملف م اقدر وتجي رسالة تحت وهذا نص الرسالة 

http://d.top4top.net/p_343roos91.png

http://d.top4top.net/p_343roos91.png

هناك مشكلة طرأت عندي في مشروعي رقم الملف هو autoNumber  

رقم الملف في مشروعي اسمه  ID والجدول هذا  autoNumber  

اذا كيف حتكون عملية العلاقة حيث ان رقم الاب autoNumber    لان كل اب يجي يفك ملف يكون هناك رقم ملف تلقائي 

هناك حل لهذا المشكلة ؟ 

تم تعديل ديسمبر 9, 2016 بواسطه zymawy7

[zymawy7]

للرفع

[صالح حمادي]

إذا كان حقل رقم الملف في جدول الآباء نوع بياناته ترقيم تلقائي فيجب أن يكون نوع الحقل الذي يقابله في جدول الأبناء نوعه رقم و ليس ترقيم تلقائي

 

[jjafferr]

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

في 12/9/2016 at 15:43, zymawy7 said:

هناك مشكلة طرأت عندي في مشروعي رقم الملف هو autoNumber  

رقم الملف في مشروعي اسمه  ID والجدول هذا  autoNumber  

اذا كيف حتكون عملية العلاقة حيث ان رقم الاب autoNumber    لان كل اب يجي يفك ملف يكون هناك رقم ملف تلقائي 

هناك حل لهذا المشكلة ؟ 

 

البرنامج الذي ارفقته انت ، ID ليس AutoNumber ، وانما هو نص ، 

وكان في اعتقادي ان المرفق هو جزء من برنامج اكبر ، بحيث انه عندك نموذج رئيسي للأب ، ونموذج فرعي للأبناء ، والربط بين النموذجين بالحقل FatherNum ، وبهذه الحالة ، كل شئ سيتم ربطه تلقائيا بين الجدولين.

 

جعفر

[zymawy7]

3 ساعات مضت, صالح حمادي said:

إذا كان حقل رقم الملف في جدول الآباء نوع بياناته ترقيم تلقائي فيجب أن يكون نوع الحقل الذي يقابله في جدول الأبناء نوعه رقم و ليس ترقيم تلقائي

 

فعلا الامور زبطت معي 

وارقام الملفات ظهرت في القائمة المنسدلة وكل شئ تمام 

ولكن اذا جيت ابغى اختار رقم ملف الاب في القائمة المنسدلة 

لا استطيع حيث ان بتجيني رسالة 

اقتباس

Control can't be edited , it's bound to AutoNumber Field 'ID'

 

لم استطع فهم الرسالة 

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

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

 

البرنامج الذي ارفقته انت ، ID ليس AutoNumber ، وانما هو نص ، 

وكان في اعتقادي ان المرفق هو جزء من برنامج اكبر ، بحيث انه عندك نموذج رئيسي للأب ، ونموذج فرعي للأبناء ، والربط بين النموذجين بالحقل FatherNum ، وبهذه الحالة ، كل شئ سيتم ربطه تلقائيا بين الجدولين.

 

جعفر

بالفعلا كلامك سليم الغلط مني م اعطيت بال لنقظة مهم انظر الى هذا الرسالة 

 

Control can't be edited , it's bound to AutoNumber Field 'ID'

[jjafferr]

ارفق برنامجك لوسمحت على نرى ماترى ، وسترى الحل كما نرى ، ان شاء الله

 

جعفر

[zymawy7]

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

ارفق برنامجك لوسمحت على نرى ماترى ، وسترى الحل كما نرى ، ان شاء الله

 

جعفر

 

3 ساعات مضت, صالح حمادي said:

إذا كان حقل رقم الملف في جدول الآباء نوع بياناته ترقيم تلقائي فيجب أن يكون نوع الحقل الذي يقابله في جدول الأبناء نوعه رقم و ليس ترقيم تلقائي

 

بارك الله فيكم والله ورزقكم من حيت لاتحتسبون وزادكم من علمه 

الامور زبطت والله الحمد حيث اننا في قائمة الاباء حطيت المصدر  ID  اول م حذفته زبطت شكرا 

شكرا لسعة صدوركم