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

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

قام بنشر

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

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

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

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

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

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

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

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

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

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

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

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

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

ثانيا 

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

 

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

 

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

 

 

 

قام بنشر

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

شكرا على الرد 

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

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

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

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

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

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

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

  • Like 3
  • 3 years later...
قام بنشر

تفضل أخي

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

انشئ حساب جديد او قم بتسجيل دخولك لتتمكن من اضافه تعليق جديد

يجب ان تكون عضوا لدينا لتتمكن من التعليق

انشئ حساب جديد

سجل حسابك الجديد لدينا في الموقع بمنتهي السهوله .

سجل حساب جديد

تسجيل دخول

هل تمتلك حساب بالفعل ؟ سجل دخولك من هنا.

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

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

Important Information