تحديد شهر معاينة الطباعة من خلية فى النموذج

[محمد احمد لطفى]

فى هذا التقرير عند معاينة الطباعة 

يكون تحديد شهر معاينة الطباعة من التقرير  عن طريق InputBox 

أريد تغييره الى خليه فى النموذج
 

Vl = InputBox("ادخل التاريخ")
Dim Rcount As Integer
Rcount = Nz(DCount("*", RecordSource, "[date1]like '*" & Vl & "*'"), 0)

RecordSource = "select * from " & RecordSource & " where " & RecordSource & ".[date1]like'*" & Vl & "*'"
If Rcount = 0 Then
DoCmd.CancelEvent
Exit Sub
End If

وجزاكم الله حيراً

test print.rar

[Barna]

55 دقائق مضت, محمد احمد لطفى said:

 

Vl = InputBox("ادخل التاريخ")

 

غير هذا .....

بهذا ....

Vl = Forms!test1!dateprint

 

[محمد احمد لطفى]

تأتى رسالة تم الغاء الاجراء

[Barna]

30 دقائق مضت, محمد احمد لطفى said:

تأتى رسالة تم الغاء الاجراء

يا اخي الكريم ابحث عن تاريخ موجود .... لكن جرب المرفق تم تعديل الرسالة ....

 

test print.rar

[محمد احمد لطفى]

أستاذى @Barna

جزاك الله خيرا 

عند تحديد اليوم مثل 5-2-2014 يعمل و لكن عند تحديد الشهر وهو المطلوب لا يعمل مثل شهر 2-2014

[Barna]

23 ساعات مضت, محمد احمد لطفى said:

أستاذى @Barna

جزاك الله خيرا 

عند تحديد اليوم مثل 5-2-2014 يعمل و لكن عند تحديد الشهر وهو المطلوب لا يعمل مثل شهر 2-2014

جرب المرفق ........ واكتب التاريخ في مربع النص كاملا .... مثلا ( 2014/03/22 )  والبرنامج يقوم بالمطلوب .

 

 

 

test print.mdb

[محمد احمد لطفى]

هو حل كويس بس بيأثر على النموذج الفرعى ياريت ميأثرش على النموذج الفرعى 

 

[محمد احمد لطفى]

أستاذى @Barna

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

[Barna]

6 دقائق مضت, محمد احمد لطفى said:

أستاذى @Barna

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

طيب جرب المرفق التالي بعد التعديل .......

 

test print.mdb

[محمد احمد لطفى]

أستاذى @Barna

جزاك الله خيراً و يمكن التحديد بالشهر مباشرةً