اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

الردود الموصى بها

قام بنشر
  في 4‏/10‏/2018 at 17:15, qathi said:

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

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

Expand  

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

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

  • Thanks 1
قام بنشر (معدل)
  في 4‏/10‏/2018 at 17:15, qathi said:

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

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

Expand  

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

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

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

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

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

تم تعديل بواسطه ابو زاهر
  • Like 2
قام بنشر
  في 4‏/10‏/2018 at 17:40, ابو زاهر said:

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

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

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

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

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

Expand  

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

بارك الله فيك

  • Like 1
قام بنشر
  في 4‏/10‏/2018 at 17:54, qathi said:

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

Expand  

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

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

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

 

  • Thanks 2
قام بنشر (معدل)

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

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

   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

 

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

01.PNG.65848d5e74cfbed0f469f9851af8f099.PNG

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

 

تم تعديل بواسطه qathi
صورة الكود
قام بنشر
  في 6‏/10‏/2018 at 15:32, 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
  

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

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

 

Expand  

اتفضل

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

  • Thanks 1
قام بنشر (معدل)
  في 6‏/10‏/2018 at 15:44, qathi said:

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

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

SearchRpt.accdbFetching info...

 

Expand  

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

اتفضل

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

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

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

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

نفس كود البحث

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

 

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

 

تم تعديل بواسطه ابو ياسين المشولي
  • Thanks 1
قام بنشر

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

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

  في 6‏/10‏/2018 at 18:07, ابو ياسين المشولي said:

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

Expand  

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

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

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

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

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

  • Like 1
قام بنشر

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

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

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

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

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

SearchRpt(6).accdbFetching info...

  • Like 2

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information