مشكلة في التصفية بين تاريخين

[HS Designer]

السلام عليكم ورحمة الله وبركاته ...

اتقدم بالشكر الجزيل للقائمين على هذا المنتدى الرائع والمميز ...

اخوان لدي مشكلة واتمنى منكم حلها باذن الله...

لدي نموذج فيه مفتاح عند النقر عليه يتم تشغيل كود يعمل على التصفية بين تاريخين , المشكلة عن النقر تظهر رسالة مفادها ((عامل التشغيل مفقود)) .

ارجو التفضل علي بالحل ...

ملاحظة الفورم المقصود اسمه (frm_print) ...

البرنامج تم ارفاقه....☺️☺️ 

Talabat_Sulef.rar

[فارس بني هلال]

وعليكم السلام ورحمة الله وبركاته

الحل مع بعض التعديل

Talabat_Sulef.rar

[HS Designer]

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

[jjafferr]

وعليكم السلام أخوي حافظ 🙂

 

انا عملت تغيير في برنامجك 🙂

الاستعلام qry_General اصبح:

.

وهذه جملة الـ Between

Between (IIf(Len([Forms]![frm_Print]![Date_1] & '')=0,#01-Jan-1900#,[Forms]![frm_Print]![Date_1])) And (IIf(Len([Forms]![frm_Print]![Date_2] & '')=0,#01-Jan-2900#,[Forms]![frm_Print]![Date_2]))


يعني
Between 
(IIf(Len([Forms]![frm_Print]![Date_1] & '')=0,#01-Jan-1900#,[Forms]![frm_Print]![Date_1])) 
And 
(IIf(Len([Forms]![frm_Print]![Date_2] & '')=0,#01-Jan-2900#,[Forms]![frm_Print]![Date_2]))


     واذا القيمة الاولى غير موجودة في النموذج ، استعمل تاريخ قديم جدا
واذا القيمة الثانية غير موجودة في النموذج ، استعمل تاريخ في المستقبل

.

وعليه ، فلا حاجة الى كود ، وانما هي اعادة طلب البيانات مرة ثانية فقط 🙂

Private Sub Btn_Search_Click()
    
    Me.Sulef_sub_frm.Form.Requery
    
End Sub

Private Sub Cmd_All_Rec_Click()

    Call Cmd_Clear_Click

End Sub

Private Sub Cmd_Clear_Click()

    Me.Date_1 = ""
    Me.Date_2 = ""
    
    Me.Sulef_sub_frm.Form.Requery

End Sub

.

جعفر

986.Talabat_Sulef.accdb.zip

[HS Designer]

تحياتي لك سيدنا الغالي واستاذنا الكبير 

فعلا تم الامر بنجاح هذه دلالة على اني لم اركز في الورشة التدريبية ههههههههه😄

اشكر تعاونك واهتمامك وايضا اشكر الاخوة اعضاء المنتدى الكرام واتمنى لهم الموفقية والنجاح .

تحياتي

[Shivan Rekany]

3 ساعات مضت, HS Designer said:

المطلوب عمل تصفية في النموذج الفرعي والمشكلة في الكود عند التشغيل تظهر رسالة مفادها (عامل التشغيل مفقود)

اضافتا الى طريقة استاذ جعفر
اتفضل اليك هذا حسب طريقتك
 

Private Sub Btn_Search_Click()
    Me.Refresh
    If IsNull(Me.Txt1) Or IsNull(Me.txt2) Then
    MsgBox "الرجاء ادخال التاريخ المحدد", vbInformation, "Error"
    Me.Txt1.SetFocus
    Else
    Call Cmd_All_Rec_Click
    Me.frm_General.Form.Filter = "[Talab_Date] between format(Forms![frm_Print]![Txt1],""dd/mm/yyyy"")  and format(Forms![frm_Print]![txt2],""dd/mm/yyyy"") "
    Me.frm_General.Form.FilterOn = True
    End If

End Sub

 

Talabat_Sulef.rar

[HS Designer]

اشكر تعاونك واهتمامك اخي الكريم تحياتي لك