علاقة بين جدولين

[Ahmed_J]

السلام عليكم اساتذتي الاعزاء

مساء الخير

لدي قاعدة بيانات للعائلات  تتكون من جدولين   

الجدول الاول خاص بمعلومات عن رب العائلة (الاب). tb1

الجدول الثاني معلومات عن افراد العائلة (الزوجة والاولاد) tb2

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

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

وشكرا لكم

test.accdb

تم تعديل ديسمبر 20, 2021 بواسطه Ahmed_J

[Ahmed_J]

up

[ابو جودي]

اتفضل 

 

test.accdb

[kanory]

منذ ساعه, Ahmed_J said:

السلام عليكم اساتذتي الاعزاء

مساء الخير

لدي قاعدة بيانات للعائلات  تتكون من جدولين   

الجدول الاول خاص بمعلومات عن رب العائلة (الاب). tb1

الجدول الثاني معلومات عن افراد العائلة (الزوجة والاولاد) tb2

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

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

وشكرا لكم

 

ملاحظة للفائدة :

غير مفيد جعل الترقيم التلقائي مفتاح ....

لذلك اجعل المفتاح رقم الهوية مثلا ....

وهناك تعديلات حسب طبيعة برنامجك ... لا نستطيع اجبارك عليها مثل رقم خاص لكل فرد من افراد الاسرة ... 

تفضل .....

 

test (4).accdb

ههههههههه .... اعتذر منك اخي لان الاجابة كانت في نفس الوقت 

[ابو جودي]

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

ملاحظة للفائدة :

غير مفيد جعل الترقيم التلقائي مفتاح ....

لذلك اجعل المفتاح رقم الهوية مثلا ....

وهناك تعديلات حسب طبيعة برنامجك ... لا نستطيع اجبارك عليها مثل رقم خاص لكل فرد من افراد الاسرة ... 

تفضل .....

 

test (4).accdb 524 kB · 0 downloads

لقد سبقتك يا رجل 🤭

[kanory]

دائما سباق للخير أخي العزيز 

[ابو جودي]

4 دقائق مضت, kanory said:

ههههههههه .... اعتذر منك اخي لان الاجابة كانت في نفس الوقت 

العفو منكم استاذى يا هلا وميت مليون هلا وتعدوت منكم على ذلك دائما تحدث معكم هههههه

اسال الله ان يجمعنا على الخير دائما 

تم تعديل ديسمبر 20, 2021 بواسطه ابو جودي

[Ahmed_J]

السلام عليكم

استاذ @ابو جودي

الملف لايفتح عندي

لانني استخدم اوفيس 2010 

وهل  شرط اساسي  ان تكون العلاقة بين الجدولين رأس باطراف

 

تم تعديل ديسمبر 20, 2021 بواسطه Ahmed_J

[Ahmed_J]

استاذ @kanoryالسلام عليكم

شكرا لك كثيرا

15 ساعات مضت, kanory said:

ملاحظة للفائدة :

غير مفيد جعل الترقيم التلقائي مفتاح ....

لذلك اجعل المفتاح رقم الهوية مثلا ....

وهناك تعديلات حسب طبيعة برنامجك ... لا نستطيع اجبارك عليها مثل رقم خاص لكل فرد من افراد الاسرة ... 

تفضل .....

لم اجد  في ملفك اي مفتاح اساسي بالجدول

لو كان مثلا في الجدول الاول  tb1 المفتاح الاساسي هو رقم الهوية

طيب المفتاح الاساسي في الجدول الثاني  tb2 اين سيكون

وشكرا

ارجوا التعديل وشكرا 

[Ahmed_J]

UP

[ابو جودي]

جرب المرفق الاتى 

 

test (2).mdb

[Ahmed_J]

شكرا استاذ @ابو جودي

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

 

[jjafferr]

السلام عليكم 🙂

 

.

.

.

جعفر

1433.test.accdb.zip

[Ahmed_J]

السلام عليكم استاذ @jjafferr

شكرا لك 

اولا لم اجد علاقة بين الجدولين في الملف كما في الصورة ؟ لماذا استاذ

ثانيا انظر استاذ الى السجل الثاني لرب العائلة تجد ان تسلسل افراد العائلة بدأت من رقم 5  وليس 1

تحياتي للجميع

[jjafferr]

بدل العلاقة بين الجدولين ، انا عملت العلاقة بين النموذج الرئيسي والفرعي ، ولكن ، تفضل

.

واضفت حقل لتسلسل العائلة/الاطفال

.

.

في النموذج الفرعي ،  ولما تكتب اسم من اسماء افراد العائلة ، وعند حدث "بعد التحديث" ، يحصل الاسم على الرقم التلقائي التالي ، بهذا الكود:

Private Sub الاسم_AfterUpdate()

    'Get the Next Seq number for this child
    Me.Childern_ID = Nz(DMax("[Childern_ID]", "tb2", "[Father_ID]=" & Me.Parent!id), 0) + 1
End Sub

 

جعفر

1433.test.accdb.zip

[Ahmed_J]

شكرا لكم اساتذتي الاعزاء @jjafferr  استاذ @ابو جودي استاذ @kanory

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

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

لي طلب اخير 

كيف اضع زر حذف في النموذج الرئيسي form1  (نموذح رب العائلة)  ليقوم بحذ سجل من النموذج الفرعي فقط (نموذج اقراد العائلة) اي حذف احد افراد العائلة فقط

وشكرا لكم

[jjafferr]

اعمل زر في النموذج الرئيسي ،

.

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

Private Sub cmd_Delete_Click()
    
    Me.Subform.SetFocus
    
    'if the cursor is on a New Record, Exit
    If Me.Subform.Form.NewRecord = True Then Exit Sub
    
    
    DoCmd.SetWarnings False
        DoCmd.RunCommand acCmdDeleteRecord
    DoCmd.SetWarnings True
    
    'ReSeq the Child Numbers
    Call ReSeq
    
End Sub

Sub ReSeq()

    Dim rst As DAO.Recordset
    Dim i As Integer
    
    Set rst = Me.Subform.Form.RecordsetClone
    rst.MoveFirst
    
    Do Until rst.EOF
        
        i = i + 1
        
        rst.Edit
            rst!Childern_ID = i
        rst.Update
        
        rst.MoveNext
    Loop
    
    
    
End Sub

 

جعفر

1433.Delete_SubForm_Record_n_ReSeq.accdb.zip

[Ahmed_J]

شكرا لك استاذي العزيز @jjafferr  

بارك الله فيك

تم تعديل ديسمبر 22, 2021 بواسطه Ahmed_J