sm44ms قام بنشر ديسمبر 18, 2023 قام بنشر ديسمبر 18, 2023 (معدل) هل ممكن حسب حقل التاريخ الفعال المنهتي مثال لدي حقل اسم المادة وحقل تاريخ الانتهاء وحقل عدد المواد المنتهية وحقل عدد المواد الفعالة اريد جمع التواريخ المنتهي في حقل المواد النتهية وجمع التواريخ الفعاله في حقل المواد الفعال ويكون في فورم غير مرتبط بالجدول وجزاكم الله خيرا تم تعديل ديسمبر 18, 2023 بواسطه sm44ms
sm44ms قام بنشر ديسمبر 18, 2023 الكاتب قام بنشر ديسمبر 18, 2023 حاولت ارفاقها بس حجمها كبير جدا وما رضي الموقع يرفعها
Foksh قام بنشر ديسمبر 18, 2023 قام بنشر ديسمبر 18, 2023 منذ ساعه, sm44ms said: حاولت ارفاقها بس حجمها كبير جدا وما رضي الموقع يرفعها ارفع الملف على ميديافاير مثلاً أو جوجل درايف.... إلخ
sm44ms قام بنشر ديسمبر 18, 2023 الكاتب قام بنشر ديسمبر 18, 2023 حلوه الطريقة بس مافية مباشره على طول عند فتح التقرير او النموذج طريقة عند فتح اي نموذج وطريقة عند فتح التقرير بكون شاكر لك الله يجزيك خير
Foksh قام بنشر ديسمبر 18, 2023 قام بنشر ديسمبر 18, 2023 اخي الكريم ، انق الكود إلى أي حدث تريده في النموذج أو التقرير ،، على العموم ، تفضل By date.accdb 1
sm44ms قام بنشر ديسمبر 18, 2023 الكاتب قام بنشر ديسمبر 18, 2023 (معدل) ظهرت هذا الرسالة عند وضع الكود في النموذج يمكن لان البيانات كثيرة والتواريخ او مالها دخل تم تعديل ديسمبر 18, 2023 بواسطه sm44ms
Foksh قام بنشر ديسمبر 18, 2023 قام بنشر ديسمبر 18, 2023 اخي الكريم ان كان الملف في المرفق يعمل دون مشاكل ، فأن المشكلة لديك في النموذج الخاص بك عند تقلك للكود ، فقد يكون بسبب تكرار أكواد لا أعلمها في ملفك الأصلي , على العموم أرسل رسالة للخطأ نفسه ( المسج ) لمعرفة اين يكون الخلل .
sm44ms قام بنشر ديسمبر 18, 2023 الكاتب قام بنشر ديسمبر 18, 2023 شو المقصود بهذا Set rs = db.OpenRecordset(strSQL)
Foksh قام بنشر ديسمبر 18, 2023 قام بنشر ديسمبر 18, 2023 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 1
sm44ms قام بنشر ديسمبر 19, 2023 الكاتب قام بنشر ديسمبر 19, 2023 (معدل) شكرا اخي الفاضل عرفت المشكلة - كانت في اسم حقل التاريخ الذي لدي مشكوووووووووووووووووووووووووووووووور تم تعديل ديسمبر 19, 2023 بواسطه sm44ms
Foksh قام بنشر ديسمبر 19, 2023 قام بنشر ديسمبر 19, 2023 6 ساعات مضت, sm44ms said: شكرا اخي الفاضل عرفت المشكلة - كانت في اسم حقل التاريخ الذي لدي مشكوووووووووووووووووووووووووووووووور ولا يهمك أخي الكريم .. ولا تنسي إغلاق الموضوع باختيار أفضل إجابة 😊
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.