كيف يتم معاينة تقرير inputbox و docmd

[عذاب الزمان]

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

رمضان كريم ومبارك على الامة الاسلامية جمعاء ...

الاخوة الاساتذه المحترمين ...

عندي برنامج بسيط  ... 

اردت اجراء معاينة تقرير باستخدام  inputbox   و  docmd  على اساس ادخال تاريخين واظهار القيود المحصورة بين هذين التاريخيبن فقط ، ولكنها لم تنجح 

ارجو اكمال الكود لتعم الفائدة لي وللاخرين 

مع الشكر والتحية مقدما ...

الملف مرفق ادناه .

برنامج.rar

[محمد طاهر عرفه]

تم النقل لقسم الاكسيس مرة اخري

حبث كان هاك مشكلة فى ظهور الموضع نتيجة لكتابة الاوامر فى العنوان  

[mennad sofiane]

ملاحظة هامة لمدير المنتدى :اود التحدث الى المهندس محمد الطاهر حول ضعف حماية منتدى اوفيسينا اي بواسطة تفكيك الرموز HTML بواسطة ديريكتوري وللاسف لم اتمكن من الوصول الى ارسالها اليك شخصيا وتحتم علي الامر ان انشرها ولكم كل فائق احتراماتي لكم.  وشكرا 

[محمد طاهر عرفه]

السلام عليكم

يرجي مراسلتي علي admin@officena.net

مع الشكر و التقدير

 

[jjafferr]

في 6/9/2017 at 19:44, عذاب الزمان said:

اردت اجراء معاينة تقرير باستخدام  inputbox   و  docmd  على اساس ادخال تاريخين واظهار القيود المحصورة بين هذين التاريخيبن فقط ، ولكنها لم تنجح 

ارجو اكمال الكود لتعم الفائدة لي وللاخرين 

 

وعليكم السلام

 

ولتعم الفائدة ، رجاء اقرأ الرابط هذا ، حتى يعمل لك الاكسس الكود المطلوب

.

والآن الى طلبك:

1.

.

2. بالفأرة اليمين ، على حقل التاريخ

.

3.

.

4. نتيجة التصفية ، ثم تختار التقرير Report لرؤية اعداداته

.

5. وهنا نرى الكود جاهزا

.

6. نأخذ الكود اعلاه ونضعه في كود فتح التقرير ، مع مراعة استخدام Date1 و Date2:

Private Sub أمر39_Click()
Dim Date1 As Date
Dim Date2 As Date

Date1 = InputBox("Enter the first date")
Date2 = InputBox("Enter the second date")
DoCmd.OpenReport "Rep-sadder", acViewPreview, , "([TBLSadder].[Date-sad] Between #" & Date1 & "# And #" & Date2 & "#)"

'DoCmd.OpenReport "Rep-sadder", acViewPreview, , Date1 & Date2, acWindowNormal
'كيف اجعل التقرير يظهر ضمن التاريخ المحدد ب inputbox

End Sub

 

جعفر

[عذاب الزمان]

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

كم انت رائع استاذ جعفر 

وانا اقرا واطبع خطوات الشرح لايسعني الا ان اصفق لروعتك 

دعائي لك بزيادة العلم في الدنيا ورفع الدرجات في الاخرة

تحياتي لك اخي الغالي

[jjafferr]

حياك الله