مشكلة في في حقل نص البحث لا يظهر القيم

[qathi]

عند كتابة في حقل نص البحث لا يتم اظهار النتائج وتظهر نافذة مطالبة ادخال القيمة علما ان حقل Mostvid الذي في الفورم الفرعي والذي يكون علية البحث مرتبط بالاستعلام Expr6 عبارة عن دالة if و DLookUp

مرفق الملف للتاكد

Database1.rar

[ابو ياسين المشولي]

18 دقائق مضت, qathi said:

عند كتابة في حقل نص البحث لا يتم اظهار النتائج وتظهر نافذة مطالبة ادخال القيمة علما ان حقل Mostvid الذي في الفورم الفرعي والذي يكون علية البحث مرتبط بالاستعلام Expr6 عبارة عن دالة if و DLookUp

مرفق الملف للتاكد

Database1.rar

مشكلتك اخي انك تقع بنفس الاخطاء

تريد تبحث عن شي وهو اسمه غير الشرط

اتفضل

On Error Resume Next
Dim aboyaseen As String
 Dim farFilter As Variant
farFilter = Null
 
   If Not IsNull(Me.n1) Then
        farFilter = "[Expr6] LIKE '*" & [Forms]![Sersh_F]![n1] & "*'"
DoCmd.OpenReport "Sersh_rpt", acViewReport, , aboyaseen
   End If
   
    If Not IsNull(Me.k1) Then
     farFilter = (farFilter + " AND ") & "[Stype] LIKE '*" & [Forms]![Sersh_F]![k1] & "*'"
    DoCmd.OpenReport "Sersh_rpt", acViewReport, , aboyaseen
    End If
   
   ' كود البحث بين تاريخين
   If Not IsNull(Me.Date1) Or IsNull(Me.Date2) Then
   aboyaseen = (farFilter + " AND ") & "[Sdate] Between [Forms]![Sersh_F]![Date1] And [Forms]![Sersh_F]![Date2]"
DoCmd.OpenReport "Sersh_rpt", acViewReport, , aboyaseen
   End If
  
    
        With Me.SershExpense_Sub.Form
      If Not IsNull(farFilter) Then
     .DataEntry = False
     .Filter = farFilter
     .FilterOn = True
   Else
    .FilterOn = False
   End If
    .Requery
  End With

بدل Mostvid

غيرتها الى Expr6

وبامكانك تغير Expr6

الى Mostvid

 

[qathi]

أحبك أستاذنا @ابو ياسين المشولي

والله حاولت مرار أحلها بنفسي من كل ناحية لكن لم انتبة انه يتم من خلال الكود أستدعاء الحقل باسمة من الاستعلام

[ابو ياسين المشولي]

ان شاء الله تستفيد

نشوفك خبير 

عن قريب

[qathi]

أنشاء الله ..

الله قادر على كل شيء

بارك الله فيك أستاذنا @ابو ياسين المشولي وزادك الله علما .. 

[ابو ياسين المشولي]

كل شي بالممارسه والخبرة

ان لم تغلط لن تتعلم

ولكن لازم تستفيد من الاخطاء

تحياتي