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

[بوعبد الله محفوظ]

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

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

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

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

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

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

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

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

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

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

Test 2003.zip

تم تعديل مايو 19, 2017 بواسطه بوعبد الله محفوظ

[jjafferr]

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

 

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

 

جعفر

[بوعبد الله محفوظ]

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

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

 

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

 

جعفر

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

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

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

[jjafferr]

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

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

Project;Repères;LaDate

 

جعفر

 

 

 

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

 

جعفر

[بوعبد الله محفوظ]

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

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

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

Project;Repères;LaDate

 

جعفر

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

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

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

[jjafferr]

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

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

 

جعفر

 

 

هكذا

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 لتحصل على سجل

[بوعبد الله محفوظ]

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

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

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

 

جعفر

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

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

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

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

Project;Repères;LaDate

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

تم تعديل مايو 19, 2017 بواسطه بوعبد الله محفوظ

[jjafferr]

تفضل

 

 

654.Test 2003.mdb.zip

[بوعبد الله محفوظ]

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

تفضل

 

 

654.Test 2003.mdb.zip

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

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

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

 

[jjafferr]

اخبرتك سابقا

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

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

 

[عبد الفتاح كيرة]

شكرا للإفادة

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

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

[علي محمد الكعبي]

هل يمكن طباعة نتائج البحث