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

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

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

قبل تجربة الكود .. أعتذر عن تاخري لأني كنت بالمشفى ..

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

العفو اخي بارك الله فيك

ان شاء الله يكون كما طلبت

[النجاشي]

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

قبل تجربة الكود .. أعتذر عن تاخري لأني كنت بالمستشفى ..

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

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

ويخرج لنا بنتائج مرضيه 

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

وكل الاخوه بهذا المنتدي الرائع

الف سلامه للسائل عسى ما تشوف شر

تم تعديل أكتوبر 4, 2018 بواسطه ابو زاهر

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

2 دقائق مضت, ابو زاهر said:

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

ويخرج لنا بنتائج مرضيه 

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

وكل الاخوه بهذا المنتدي الرائع

الف سلامه للسائل عسى ما تشوف شر

تسلم اخي ابو زاهر

بارك الله فيك

[qathi]

2 دقائق مضت, ابو زاهر said:

الف سلامه للسائل عسى ما تشوف شر

سلمك الله من كل شر .. شكرا ابو زاهر  .. صدقت

[النجاشي]

الله يسلمكم @ابو ياسين المشولي@qathi

 

[qathi]

أستاذنا @ابو ياسين المشولي  أعتقد أني لن أتمكن من تجربة الكود حالياً .. سأتواصل معك بخصوص هذا الامر في وقت لاحق

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

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

أستاذنا @ابو ياسين المشولي  أعتقد أني لن أتمكن من تجربة الكود حالياً .. سأتواصل معك بخصوص هذا الامر في وقت لاحق

على الرحب والسعه

الكود بيكون بهذا الشكل بالنموذج

DoCmd.OpenReport "Sersh_rpt", acViewReport, , "Left(Nz([ItemName],0),50) Like '*' & [Forms]![Sersh_F]![n1] & '*'"

 

[qathi]

أستاذنا @ابو ياسين المشولي أشكرك بارك الله فيك .. الكود .. هو المطلوب  قمت بتجربتة بالحقل نص والقائمة المنسدلة أشتغل تمام

بالنسبة للتاريخ قمت بتعديل الكود حتى يصبح هكذا :

   If Not IsNull(Me.Date1) Or IsNull(Me.Date2) Then
    DoCmd.OpenReport "Sersh_rpt", acViewReport, , "Left(Nz([datemod],0),50) & "[datemod] Between date1 And date2"
   End If

 

لكن تظهر مشكلة العبارة غير صحيحة وتظهر باللون الاحمر:

فما الخطاء في الكود

 

تم تعديل أكتوبر 6, 2018 بواسطه qathi
صورة الكود

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

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

أستاذنا @ابو ياسين المشولي أشكرك بارك الله فيك .. الكود .. هو المطلوب  قمت بتجربتة بالحقل نص والقائمة المنسدلة أشتغل تمام

بالنسبة للتاريخ قمت بتعديل الكود حتى يصبح هكذا :

   If Not IsNull(Me.Date1) Or IsNull(Me.Date2) Then
    DoCmd.OpenReport "Sersh_rpt", acViewReport, , "Left(Nz([datemod],0),50) & "[datemod] Between date1 And date2"
   End If
  

لكن تظهر مشكلة العبارة غير صحيحة وتظهر باللون الاحمر:

فما الخطاء في الكود

 

اتفضل

DoCmd.OpenReport "Sersh_rpt", acViewReport, , Left(Nz([datemod], 0), 50) & "[datemod] Between date1 And date2"

[qathi]

أستاذنا @ابو ياسين المشولي  الكود لا يعمل بالنسبة للتاريخ 

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

SearchRpt.accdb

 

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

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

أستاذنا @ابو ياسين المشولي  الكود لا يعمل بالنسبة للتاريخ 

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

SearchRpt.accdb

 

الله يسامحك كان من اول كنا سوينها لكن اول كان كلامك غير والان غير

اتفضل

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

واستبدله بهذا

واخبرتني بالنتيجه

عملت لك كود ولا اروع

نفس كود البحث

او في الاحرى هو نفسه اللي في البحث

 

On Error Resume Next
Dim aboyaseen As String
 Dim varFilter As Variant
varFilter = Null
 
   If Not IsNull(Me.n1) Then
        varFilter = "[ItemName] LIKE '*" & [Forms]![Sersh_F]![n1] & "*'"
DoCmd.OpenReport "Sersh_rpt", acViewReport, , aboyaseen

   End If
   ' كود البحث بين تاريخين
   If Not IsNull(Me.Date1) Or IsNull(Me.Date2) Then
   aboyaseen = (varFilter + " AND ") & "[datemod] Between [Forms]![Sersh_F]![Date1] And [Forms]![Sersh_F]![Date2]"
DoCmd.OpenReport "Sersh_rpt", acViewReport, , aboyaseen
   End If
  
   If Not IsNull(Me.k1) Then
        varFilter = "[ItemName] LIKE '*" & [Forms]![Sersh_F]![n1] & "*'"
DoCmd.OpenReport "Sersh_rpt", acViewReport, , aboyaseen

   End If
        With Me.Items_Sub.Form
      If Not IsNull(varFilter) Then
     .DataEntry = False
     .Filter = varFilter
     .FilterOn = True
   Else
    .FilterOn = False
   End If
    .Requery
  End With

 

تم تعديل أكتوبر 6, 2018 بواسطه ابو ياسين المشولي

[qathi]

العفو منك أستاذنا @ابو ياسين المشولي أن أخطائت في توضيح طلبي أحياناً أكون منهمك في التعديل والبرمجة .. مما يجلني لأ أنتبة لما أكتب في الطلب..

أكرر أعتذاري لك 

25 دقائق مضت, ابو ياسين المشولي said:

عملت لك كود ولا اروع

فعلاً هاذ هو المطلوووووووووووووب 

شكرا لك أستاذنا الغالي 

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

وأن يرزقك ووالديك رضاه والجنة الفردوس الأعلى

بارك الله فيك .. وجزاك الله خيرا

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

امين يارب

ولك بالمثل

بارك الله فيك

نحن في الخدمه بما نستطيع

تم تعديل أكتوبر 6, 2018 بواسطه ابو ياسين المشولي

[qathi]

أسمح لي أستاذنا @ابو ياسين المشولي برفع الملف النهائي حتى يستفيد منه الأعضاء لأنه مهم جداً

واتمنى أن يتم تثبيت الموضوع

الملف عبارة عن:

فورم بحث بالأكواد عن صنف عبر ثلاثة أحتمالات أما حقلين تاريخ أو حقل نص أو قائمة منسدلة يتم عرض النتائج من خلال فورم فرعي ويمكن عرضة كتقرير بالأكواد في حالة المعاينة قبل الطباعة

الملف بالمرفقات:

SearchRpt(6).accdb