بحث في نموذج فرعي من خلال مربع نص في نموذج رئيسي

[حسين العربى]

السلام عليكم ورحمة الله وبركاته اخواني اعضاي ومشرفي المنتدي الكرام

عندي نموذج رئيسي اسمه forms_1  

وعدد اثنين  نموذج فرعي  نموذج اسمه fry_111  ولاخر اسمه fry_112

اريد البحث برقم الفاتورة  من خلال مربع نص واحد  اسم مربع النص   tt1 

فما هو التعديل علي هذ الكود 

Dim vSearchString As String
vSearchString = Me.tt1.Text
Me.tt2.Value = vSearchString
Me.fry_111.Requery

او  حل اخر  ولكم جزيل الشكر

تم تعديل ديسمبر 12, 2017 بواسطه حسين العربى
سييسشي

[jjafferr]

    me.fry_111.SetFocus
    me.fry_111![رقم الفاتورة].SetFocus
    DoCmd.FindRecord Me.tt1, , , , , , True

وعليكم السلام

 

هذا الكود للنموذج الفرعي الاول ، ويمكنك تغييره للنموذج الفرعي الثاني

 

جعفر

[حسين العربى]

استاذي الفاضل ومعلمي شكرا علي مرروك الطيب 

الظاهر ماوصلك ما اقصده بالظبط او يمكن انا الي فهمت شنو تقصد

انا عاوذ ابحث من مربع نص واحد فقط في عدد اثنين نموذج فرعي 

يعني مثلا لما اضع رقم الفاتوره في مربع النص واضغط انتر يديني النتيجه في النموذجين 

مع العلم انا كل نموذج مرتبط بجدول غير الاخر

[jjafferr]

وعليكم السلام اخي حسين

 

الكود السابق يبحث عن اول سجل في النموذج الفرعي ، فانت قلت:

12 ساعات مضت, حسين العربى said:

اريد البحث برقم الفاتورة  من خلال مربع نص واحد  اسم مربع النص   tt1 

.

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

    me.fry_111.filter= "[رقم الفاتورة]=" & me.tt1
    me.fry_111.filteron= true

    me.fry_112.filter= "[رقم الفاتورة]=" & me.tt1
    me.fry_112.filteron= true

 

جعفر

[حسين العربى]

استاذي  ومعلمي الفاضل اليك المرفق ليتضح الامر

 

PROGRMS_Super Market 1201202017.rar

تم تعديل ديسمبر 13, 2017 بواسطه حسين العربى

[jjafferr]

يا سيدي ، المشكلة ان رقم الفاتورة عندك "نص" ، والمعادلة التي اعطيتك هي اذا كان رقم الفاتورة "رقم"

 

وكذلك كان الخطأ مني في الكود اعلاه ، فعند مناداة النموذج الفرعي ، يجب ان نضيف كلمة .Form. 

تفضل هذا التعديل ، بالاضافة انه عندك بقايا في نهاية الكود:

Private Sub fatora_no_AfterUpdate()

    Me.fry_111.Form.Filter = "[id_fatora]='" & Me.fatora_no & "'"
    Me.fry_111.Form.FilterOn = True

    Me.fry_112.Form.Filter = "[fatora_no]='" & Me.fatora_no & "'"
    Me.fry_112.Form.FilterOn = True

'End If
End Sub

 

جعفر

[حسين العربى]

الف شكر استاذي ومعلمي الفاضل هذا هو المطلوب  جزاك الله خيرا وجعله الله في ميزان حسناتك