مساعدة في الاستعلام

[نبراس كاظم]

السلام عليكم

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

المشكلة عملت نموذج يفلتر الجديد او السيئ لكن المشكلة انه يرفض 

الملف مرفق 

Database1.rarFetching info...

[أبوبسمله]

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

اتفضل ان شاء الله يكون ما تريد

تم ازاله المعيار من الاستعلام ووضع الكود التالى فى حدث بعد التحديث

DoCmd.ApplyFilter , "[Expr1]= '" & Me.sss & "'"

بالتوفيق

Database1.accdbFetching info...

[نبراس كاظم]

تسلم زحمتك فعلا هذا هو المطلوب ممنون لحضرتك

بس تبقة في شغلة لما تعمل تقرير وتخلي مصدرة من الاستعلام مراح ياخذ الشرط العاملة راح يستخرج جميع البيانات 

لو عملنة فقط ع bad حيظهر الكل 

تم تعديل نوفمبر 27, 2020 بواسطه نبراس كاظم

[obaid70]

السلام عليكم

استئذنك استاذي الفلاحجي هذه محاولة اخرى حسب طريقتي

ارجو ان تفيد الاخ نبراس

Database2.accdbFetching info...

[obaid70]

اسف لم انتبه الى موضوع التقرير الذي تكلم عنه الاخ نبراس

وهذا التعديل بعد اضافة زر لفتح التقرير

Database2.accdbFetching info...

[نبراس كاظم]

الاستاذ العزيز obaid70

مشكور على الحل الجميل 

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

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

مرة اخرى مشكور 

[أبوبسمله]

  في 27‏/11‏/2020 at 11:35, obaid70 said:

السلام عليكم

استئذنك

Expand  

وعليكم السلام اتفضل فاننى اتعلم منكم اخوانى ومازلت احبو عالطريق معكم

اخى عبيد وجزاك الله خيرا على مشاركتك معنا 💐 اخى عبيد افكارك حلوه

ولفتح التقرير عالتصفيه فى حدث عند التحميل

Private Sub Report_Load()
DoCmd.ApplyFilter , "[Expr1]= '" & Forms!testtable!sss & "'"
End Sub

بالتوفيق

Database11.accdbFetching info...

[أبوبسمله]

وممكن هكذا

Private Sub sss_AfterUpdate()
DoCmd.ApplyFilter , "[Expr1]= '" & Me.sss & "'"
DoCmd.OpenReport "rep", acViewReport, , "[Expr1]= '" & Me.sss & "'"
End Sub

وهكذا افضل

Private Sub sss_AfterUpdate()
Dim x As String
x = "[Expr1]= '" & Me.sss & "'"
DoCmd.ApplyFilter , x
DoCmd.OpenReport "rep", acViewReport, , x
End Sub

 

Database11.accdbFetching info... Database12.accdbFetching info...

[نبراس كاظم]

استاذي الفلاحجي مشكور ومقصرت 

تحياتي لك 

[أبوبسمله]

العفو اخى الشكر لله ثم لاخواننا واساتذتنا جزاهم الله خيرا 💐

بالتوفيق