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

كيف يمكنني عمل فلتر للنموذج الفرعي


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

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

أريد عمل فلتر للنموذج الفرعي من خلال مربع تحرير وسرد txtProject في النموذج الرئيسي

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

LinkMasterChild2.PNG.cf9a50d5500a8f016aaa6a66fb6362e6.PNG

لذا قمت بالتالي

LinkMasterChild.PNG.7054d71703b289666e22ef1cc4a7e466.PNG

وأضفت الكود ليقوم بعمل الفلتر

Private Sub txtProject_AfterUpdate()
If IsNull(Me.txtProject) Then
Me.subRealisation.Form.Filter = ""
Me.subRealisation.Form.FilterOn = False
Else
Me.subRealisation.Form.Filter = "[Project]= '" & Me.txtProject & "'"
Me.subRealisation.Form.FilterOn = True
End If
End Sub

لكن تأتني الرسالة التالية

LinkMasterChild1.PNG.3224e85f38745ed6a502b8363163b9cd.PNG

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

وأين أخطأت بالضبط في الكود

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

Test 2003.zip

تم تعديل بواسطه بوعبد الله محفوظ
رابط هذا التعليق
شارك

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

السلام عليكم بوعبدالله:smile:

 

مافي داعي للكود ، ربط النموذج الرئيسي بالفرعي عن طريق Master/Child كفاية:smile:

 

جعفر

مشكووووووووووور أخونا جعفر على اهتمامك

لكن أنا أريد سجل واحد فقط 

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

LinkMasterChild3.PNG.3b824af5c892e3d3ac997eb81d299ac6.PNG

رابط هذا التعليق
شارك

في علاقة Master/Chid يجب ان تستعمل اسم الحقل من مصدره ، وليس الاسم الذي اعطيته في النموذج ،

يعني ، اسماء حقول Child يجب ان تكون

Project;Repères;LaDate

 

جعفر

 

 

 

ولا تنسى عمل Requery للنموذج الفرعي كلما عملت تغيير للحقول الثلاث في النموذج الرئيسي:smile:

 

جعفر

رابط هذا التعليق
شارك

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

في علاقة Master/Chid يجب ان تستعمل اسم الحقل من مصدره ، وليس الاسم الذي اعطيته في النموذج ،

يعني ، اسماء حقول Child يجب ان تكون

Project;Repères;LaDate

 

جعفر

جربتها أخي جعفر

لكن لم تنجح معي

لا أدري أين الخلل

رابط هذا التعليق
شارك

عفوا شوف ملاحظتي الاخيرة عن Requery ،

للأسف تم دمجها مع المشاركة اللي قبلها :blink:

 

جعفر

 

 

هكذا


Private Sub txtDate_AfterUpdate()
Me.subRealisation.Form.Requery
End Sub

Private Sub txtMarkItem_AfterUpdate()
Me.txtQuantityCurrent = Nz(DSum("NumberPeinture", "CheckTotalMarkItem"), 0)

Me.subRealisation.Form.Requery
End Sub


Private Sub txtProject_AfterUpdate()
Me.txtMarkItem = ""
Me.txtQuantity = 0
Me.txtMarkItem.Requery

Me.subRealisation.Form.Requery

'If IsNull(Me.txtProject) Then
'Me.subRealisation.Form.Filter = ""
'Me.subRealisation.Form.FilterOn = False
'Else
'Me.subRealisation.Form.Filter = "[Project]= '" & Me.txtProject & "'"
'Me.subRealisation.Form.FilterOn = True
'End If

End Sub

 

 

 

وللعلم ، تاريخ 19 ما عندك سجل ، فيجب تغييره الى 18 لتحصل على سجل:smile:

  • Like 1
رابط هذا التعليق
شارك

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

عفوا شوف ملاحظتي الاخيرة عن Requery ،

للأسف تم دمجها مع المشاركة اللي قبلها :blink:

 

جعفر

لقد تحالفوا ضدي

Forms!frmPaint!subRealisation.Requery
Forms!frmPaint!subRealisation!txtProject.Requery

لم ينفع أخي الكريم

عندما غيرت إلى أسماء الحقول 

Project;Repères;LaDate

الجدول الفرعي لا يأخذ أي قيمة

LinkMasterChild4.PNG.606da489301fc96cc59a68e3b706346e.PNG

تم تعديل بواسطه بوعبد الله محفوظ
رابط هذا التعليق
شارك

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

تفضل:smile:

 

 

654.Test 2003.mdb.zip

مشكور أخونا الكريم جعفر

من قبل لم أكن أكتب شيء في الجدول الفرعي 

لماذا لم يتم التحديث مباشرة

 

رابط هذا التعليق
شارك

شكرا للإفادة

جربت هذا و نجح معى

If IsNull(Me.txtProject) Then
    Me.subRealisation.Form.Filter = ""
    Me.subRealisation.Form.FilterOn = False
    Else
    Me.subRealisation.Form.Filter = "[Project]= '" & Me.txtProject & "'and Repères ='" & Me.txtMarkItem & "'"
    Me.subRealisation.Form.FilterOn = True
End If

ضعه فى حدث بعد التحديث لكل من

xtProject

txtMarkItem

رابط هذا التعليق
شارك

  • 3 weeks later...

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



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

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

Important Information