حساب حقل التاريخ المنتهي والفعال

[sm44ms]

هل ممكن حسب حقل التاريخ الفعال المنهتي

مثال لدي حقل اسم المادة

وحقل تاريخ الانتهاء

وحقل عدد المواد المنتهية

وحقل عدد المواد الفعالة

اريد جمع التواريخ المنتهي في حقل المواد النتهية

وجمع التواريخ الفعاله في حقل المواد الفعال

ويكون في فورم غير مرتبط بالجدول

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

تم تعديل ديسمبر 18, 2023 بواسطه sm44ms

[Hamtoooo]

ارفق مثال عشان نقدر نساعدك

[sm44ms]

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

[Foksh]

منذ ساعه, sm44ms said:

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

ارفع الملف على ميديافاير مثلاً أو جوجل درايف.... إلخ 

[sm44ms]

تفضل

By date.accdb

[Foksh]

تفضل أخي الكريم ,,

By date.accdb

[sm44ms]

حلوه الطريقة 

 

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

طريقة عند فتح اي نموذج

وطريقة عند فتح التقرير

بكون شاكر لك الله يجزيك خير

[Foksh]

اخي الكريم ، انق الكود إلى أي حدث تريده في النموذج أو التقرير ،،

على العموم ، تفضل

By date.accdb

[sm44ms]

الف شكر

[sm44ms]

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

يمكن لان البيانات كثيرة والتواريخ او مالها دخل

تم تعديل ديسمبر 18, 2023 بواسطه sm44ms

[Foksh]

اخي الكريم ان كان الملف في المرفق يعمل دون مشاكل ، فأن المشكلة لديك في النموذج الخاص بك عند تقلك للكود ، فقد يكون بسبب تكرار أكواد لا أعلمها في ملفك الأصلي , على العموم أرسل رسالة للخطأ نفسه ( المسج ) لمعرفة اين يكون الخلل .

[sm44ms]

شوف

[sm44ms]

شو المقصود بهذا

Set rs = db.OpenRecordset(strSQL)

[Foksh]

10 دقائق مضت, sm44ms said:

Set rs = db.OpenRecordset(strSQL)

تفضل أخي هذا توضيح لكل سطر في الكود

' يتم إعداد المتغيرات
Dim strSQL As String
Dim db As DAO.Database
Dim rs As DAO.Recordset

' يتم تعيين كائن قاعدة البيانات الحالية إلى المتغير db
Set db = CurrentDb

' يُبنى استعلام SQL لاستعراض عدد السجلات حيث يكون التاريخ أقل من التاريخ الحالي
strSQL = "SELECT COUNT(*) As RecordCount FROM tab WHERE التاريخ < #" & Format(Date, "yyyy-mm-dd") & "#"

' يتم فتح سجل لاستعراض النتائج باستخدام الاستعلام الذي تم بناؤه في السطر السابق
Set rs = db.OpenRecordset(strSQL)

' يُخزن عدد السجلات المسترجعة في المتغير نص2
نص2 = rs("RecordCount")

' يُبنى استعلام SQL آخر لاستعراض عدد السجلات حيث يكون التاريخ أكبر من التاريخ الحالي
strSQL = "SELECT COUNT(*) As RecordCount FROM tab WHERE التاريخ > #" & Format(Date, "yyyy-mm-dd") & "#"

' يُغلق السجل الحالي
rs.Close

' يتم فتح سجل آخر لاستعراض النتائج باستخدام الاستعلام الجديد
Set rs = db.OpenRecordset(strSQL)

' يُخزن عدد السجلات المسترجعة في المتغير نص4
نص4 = rs("RecordCount")

' يُغلق السجل بعد الانتهاء من استخدامه
rs.Close

' يُغلق كائن قاعدة البيانات بعد الانتهاء من استخدامه
db.Close

 

[sm44ms]

شكرا اخي الفاضل

عرفت المشكلة - كانت في اسم حقل التاريخ الذي لدي 

مشكوووووووووووووووووووووووووووووووور

تم تعديل ديسمبر 19, 2023 بواسطه sm44ms

[Foksh]

6 ساعات مضت, sm44ms said:

شكرا اخي الفاضل

عرفت المشكلة - كانت في اسم حقل التاريخ الذي لدي 

مشكوووووووووووووووووووووووووووووووور

ولا يهمك أخي الكريم ..

ولا تنسي إغلاق الموضوع باختيار أفضل إجابة 😊