ربط مربعي تحرير وسرد في نفس النموذج

[Fouad Aldalwe]

السلام عليكم...

ممكن تفضلكم في ارشادي الى الحل: انه لدي نموذج مستند الى استعلام، في هذا النموذج المستمر فيه مربعي تحرير وسرد الاول اسمه t1 متضمن قيم غير مستندة الى جدول او استعلام وهي منتج1 ومنتج2 ومنتج3، مربع التحرير والسرد الثاني ايضاً قيم غير مستندة الى جدول او استعلام واسمه t2 وفيه 2022و2023و2023، وضمن حقول النموذج يوجد حقل المنتجات وحقل السنوات.

المطلوب ربط المربعين مع بعض بحث إذا اخترت سنة من t2 يتم تصفية النموذج حسب هذه السنة، ومن ثم إذا اخترت t1 يتم تصفية هذا النموذج لهذه السنة وحسب المنتج الذي تم اختياره في t1 

مع الشكر والتقدير 

  

[Eng.Qassim]

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

استخدم هذا السبروتين

Sub MyFilter()
Dim strSQL As String
strSQL = ""

If Len("" & Me!t1) > 0 Then
    strSQL = "[items]='" & Me!t1 & "'"
End If

If Len("" & Me!t2) > 0 Then
    If Len(strSQL) > 0 Then
        strSQL = strSQL & " And "
     End If
     strSQL = strSQL & "year(dates)='" & Me!t2 & "'"
 End If
 If Len(strSQL) = 0 Then
    Me.FilterOn = False
 Else
     Me.Filter = strSQL
    Me.FilterOn = True
 End If
 
End Sub

وفي حدث بعد تحديث t1 استدعي الروتين

Private Sub t1_AfterUpdate()
MyFilter
End Sub

ونفس الحالة ل t2

[Fouad Aldalwe]

ممنون جداً استاذ 

[Fouad Aldalwe]

اسف يظهر خطأ في my filter 

[Fouad Aldalwe]

سيدي هذا نموذج عن القاعدة ممكن التعديل فيها وشكراً لسعة تفهمكم

 

الاجازات.zip

تم تعديل أغسطس 6, 2022 بواسطه Fouad Aldalwe

[Fouad Aldalwe]

وشيء اخر اساتذتنا كبف تظهر التصفية في النموذج المتقدم ذكره اخر سجل من الاسم لكل الاسماء من رقم السجل no حيث تظهر التصفية بالاسماء مع اخر سجل لكل منها 

وانا اسف للاطالة ولكم منا جزيل الشكر

[Eng.Qassim]

تفضل التعديل

انظر للنموذج الذي يظهر اخر سجل  ل no وحسب فهمي لسؤالك الاخير

 

 

الاجازات.rar

تم تعديل أغسطس 6, 2022 بواسطه Eng.Qassim

[Fouad Aldalwe]

ممنون ممنون جداً هذا ما اردته بل واكثر من ذلك جزاك الله كل خير

[Fouad Aldalwe]

سيدي الغالي ممكن طلب اخير، ممكن في نموذج ادخال البيانات enter انه في حال ادخال بيانات خانة الحقل wp2 في tp2 يتم تسجيلها تلقائياً في خانة الحقل wp1 في tp1 وبالعكس على شرط أنه يأخذ اخر سجل في التسجيل ل no لكل اسم وشكراً جزيلاً 

الاجازات.zip