اذهب الي المحتوي
أوفيسنا

الردود الموصى بها

قام بنشر (معدل)

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

مساء الخير

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

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

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

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

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

وشكرا لكم

test.accdbFetching info...

تم تعديل بواسطه Ahmed_J
قام بنشر
  في 20‏/12‏/2021 at 18:34, Ahmed_J said:

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

مساء الخير

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

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

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

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

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

وشكرا لكم

 

Expand  

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

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

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

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

تفضل .....

 

test (4).accdbFetching info...

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

  • Like 2
  • Haha 1
قام بنشر
  في 20‏/12‏/2021 at 19:50, kanory said:

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

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

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

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

تفضل .....

 

test (4).accdb 524 kB · 0 downloads

Expand  

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

  • Like 1
  • Haha 1
قام بنشر (معدل)
  في 20‏/12‏/2021 at 19:50, kanory said:

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

Expand  

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

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

تم تعديل بواسطه ابو جودي
  • Like 2
قام بنشر (معدل)

السلام عليكم

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

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

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

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

 

Untitled.jpg

تم تعديل بواسطه Ahmed_J
  • Confused 1
قام بنشر

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

شكرا لك كثيرا

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

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

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

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

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

تفضل .....

Expand  

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

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

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

وشكرا

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

قام بنشر

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

شكرا لك 

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

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

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

Untitled.jpg

Untitled1.jpg

  • تمت الإجابة
قام بنشر

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

image.png.a445223ce85a74e64843d9cded823224.png

.

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

image.png.d1f8f0bb66f6498a3fd26228051f3e8b.png

.

image.png.9eaded0223a1ceed54df17b8543aa160.png

.

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

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...

  • Like 1
  • Thanks 1
قام بنشر

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

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

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

لي طلب اخير 

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

وشكرا لكم

قام بنشر

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

image.png.1a00118eb3368646285dddb653a6638b.png

.

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

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...

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information