كيفية عرض تقرير بين تاريخين؟

[عبدالعزيز محمد]

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

بارك الله في الجميع ونشكر أعضاء المنتدى الغالي

لدي نموذج اسمة Form1 وبه زر أمر ومربعين نصين DATE1-DATE2 لكتابة تاريخ البداية وتاريخ نهاية الفترة المراد البحث فيها وأيضا جدول TAB1 به كائنات منها مربع نص DATE_0 وتقرير للعرض اسمه REP_1

المطلوب كالتالي : عند كتابة تاريخ بداية البحث وتاريخ نهاية البحث ثم نقر الزر يعرض التقرير ما بين التاريخين

لقد حاولت كثيرا ولم افلح أريد كود يوضع في النموذج وليس في استعلام يقوم بذلك وجزاكم الله خيرا

[Amr Ashraf]

2 ساعات مضت, عبدالعزيز محمد-عاشق البرمجة said:

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

بارك الله في الجميع ونشكر أعضاء المنتدى الغالي

لدي نموذج اسمة Form1 وبه زر أمر ومربعين نصين DATE1-DATE2 لكتابة تاريخ البداية وتاريخ نهاية الفترة المراد البحث فيها وأيضا جدول TAB1 به كائنات منها مربع نص DATE_0 وتقرير للعرض اسمه REP_1

المطلوب كالتالي : عند كتابة تاريخ بداية البحث وتاريخ نهاية البحث ثم نقر الزر يعرض التقرير ما بين التاريخين

لقد حاولت كثيرا ولم افلح أريد كود يوضع في النموذج وليس في استعلام يقوم بذلك وجزاكم الله خيرا

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

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

ثانيا 

بالنسبة لطلبك يجب الاول عمل استعلام مصدره الجدول المطلوب وفى حقل التاريخ تحته المعيار هتستخدم Between

 

ثم جعل التقرير مصدره هذا الاستعلام وبالتالى عند فتح التقرير هيفتح على الفترة المحددة فى النموذج 

 

ارفق قاعدة نطبقلك عليها فى حالة صعوبة الامر عليك بالتوفيق

 

 

 

[REDA.M.A]

الاخ العزيز

مرفق مثال للاستاذ قاهر الاكسيس .

تحياتى

استعلام بين تاريخين.rar

[عبدالعزيز محمد]

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

شكرا على الرد 

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

في كان لدي هذا الكود ولكنني بحث عنه ولم اجده أريده أن يكون عن طريق زر في نموذج وليس عن طريق استعلام ويمكن أن يكون المرفق السابق كمثال 

وأخيرا شكرا على الرد

[عبدالعزيز محمد]

نسأل الله أن يوفق أحد أعضاء المنتدى لحل استفساري 

[Shivan Rekany]

10 ساعات مضت, عبدالعزيز محمد-عاشق البرمجة said:

نسأل الله أن يوفق أحد أعضاء المنتدى لحل استفساري 

اتفضل
غيرت حقل التاريخ من تيكست الى تاريخ
وتم استخدام هذا الكود للفتح التقرير
 

استعلام بين تاريخين.rar

[أبو أنس80]

حبيت

[عبدالقدوس48]

تفضل أخي

Private Sub Form_Current()
Me.معاينة_التقرير.Enabled = False
Me.معاينة_التقرير.Caption = "أدخل بداية التاريخ"
Me.معاينة_التقرير.FontBold = 1
End Sub

Private Sub z_AfterUpdate()
If [z] < [zz] Then
Else: Me.معاينة_التقرير.Caption = "بداية التاريخ صحيح"
End If
End Sub

Private Sub zz_AfterUpdate()
If [zz] >= [z] Then
Me.معاينة_التقرير.Caption = "نهاية التاريخ صحيحه"
Me.معاينة_التقرير.Enabled = True
Me.معاينة_التقرير.ForeColor = vbRed
Me.معاينة_التقرير.FontBold = 1
Else: Me.معاينة_التقرير.Caption = "نهاية التاريخ غير صحيحه": Me.معاينة_التقرير.Enabled = False
End If
End Sub

Private Sub أمر9_Click()
DoCmd.Close
DoCmd.OpenForm "ترقيات", acNormal
End Sub

Private Sub معاينة_التقرير_Click()
On Error Resume Next
    DoCmd.OpenReport "ترقية التوقيت كامل", acViewPreview, , "[من تاريخ] between [forms]![form2]![z] And [forms]![form2]![zz]"
End Sub

[عبدالقدوس48]

أليك هذا المثال

مثال.accdb