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

[Ahmed_J]

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

مساء الخير

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

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

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

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

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

وشكرا لكم

test.accdbFetching info...

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

[Ahmed_J]

up

[ابو جودي]

اتفضل 

 

test.accdbFetching info...

[kanory]

  في 20‏/12‏/2021 at 18:34, Ahmed_J said:

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

مساء الخير

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

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

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

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

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

وشكرا لكم

 

Expand  

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

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

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

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

تفضل .....

 

test (4).accdbFetching info...

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

[ابو جودي]

  في 20‏/12‏/2021 at 19:50, kanory said:

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

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

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

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

تفضل .....

 

test (4).accdb 524 kB · 0 downloads

Expand  

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

[kanory]

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

[ابو جودي]

  في 20‏/12‏/2021 at 19:50, kanory said:

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

Expand  

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

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

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

[Ahmed_J]

السلام عليكم

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

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

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

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

 

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

[Ahmed_J]

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

شكرا لك كثيرا

  في 20‏/12‏/2021 at 19:50, kanory said:

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

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

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

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

تفضل .....

Expand  

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

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

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

وشكرا

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

[Ahmed_J]

UP

[ابو جودي]

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

 

test (2).mdbFetching info...

[Ahmed_J]

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

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

 

[jjafferr]

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

 

.

.

.

جعفر

1433.test.accdb.zipFetching info...

[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.zipFetching info...

[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.zipFetching info...

[Ahmed_J]

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

بارك الله فيك

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