مساعدة لتجميع سجلات مختارة لنموذج سجلات متصلة

[abdhamid]

السلام عليكم

مرفق لسيادتكم ملف قاعدة بيانات تجريبى يحتوى على نموذج رئيسى خاص بالغرف واخر فرعى خاص بالموظفين بتلك الغرف : وسؤالى على النموذج الفرعى

المطلوب عمل :1- ملء حقل SER  بالارقام 1 و 2 و 3 وهكذا

                    2- فى تذييل النموذج يوجد نص محسوب لتجميغ قيمة حقل SUM  ولكنى اريد تجميع بعض من السجلات محددة يقوم المستخدم بتحديدها قد تكون متتابعة او غير متتابعة

                    3-  عمل تحديد لقيم حقل SUM  لا يتم نحديدها على مستوى العمود ولكن يتم تحديدها على مستوى السجل الواحد فقط (خلية واحدة فقط) والمطلوب اتاحة تحديد اكثر من خلية على مستوى العمود\

ولكم جزيل الشكر

 

 

db_samples.accdb

[Eng.Qassim]

النقطة 3 لم افهمها.. ممكن توضيح اكثر

db_samples.accdb

[abdhamid]

استاذى العزيز م. قاسم السلام عليكم ورحمة الله

لقد قمت بتنزيل المرفق وعندما قمت بتشغيله اظهر لى هذا الخطا 

وانا اعرف سبب ظهورة لان هناك مرجع Doa 3.6  غير مفعل واذا اردت تنزيله يصدر لى رسالة خطا وذلك لانى استخدم اوفيس اصدار حديث 2016 ، وقد بحثت فى حل تلك المشكله باستخدام التعبير Dim rs As ADODB.Recordset  اظهر لى خطا عند rs.edit  فقمت بتعطيلها ، فاظهر خطا اخر type mishmash وذلك لان الحقل رقمى وليس نصى فقمت بتعديل الكود ليتوافق مع النوع الرقمى للحقل كما يلى :  Dim rs As ADODB.Recordset
    Dim sql As String
    Dim tmpNumber As String
    
    sql = "SELECT Employee.SER FROM Employee;"
    Set rs = CurrentDb.OpenRecordset(sql)
    
    If rs.RecordCount > 0 Then
        tmpNumber = Nz(rs!SER, 0)
    End If
    
    Set rs = Nothing
    'logic to increment number
    If tmpNumber = "" Then
        GetNewCustomerNumber = "1"
     Else
        tmpNumber = (tmpNumber) + 1
        
             End If

فاظهر لى رسالى ان اسم الجدول customer  غير موجود اصلحته الى اسم الجدول الصحيح employee  فاظهر نفس الخطا 

اى ان الكود لايعمل بكفاءة ، اما عن توضيح النقطة الثالثة الاساسية فانا اريد تحديد قيم متتابعة فى عمود sum  فيظهر فى مربع النص اسفل النموذج محموع تلك القيم المحددة - كما فى الاكسيل اذا قمنا بتظليل عدة خلايا على مستوى العمود يظهر فى شريط المعلومات مجموع تلك القيم؟

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

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

[ابوبسمله]

السلام عليكم ورحمه الله وبركاته

مشاركه مع مهندسنا العزيز قاسم جزاه الله خيرا 💐

اخى الفاضل عبدالحميد

1 ساعه مضت, abdhamid said:

لقد قمت بتنزيل المرفق وعندما قمت بتشغيله اظهر لى هذا الخطا 

عدل السطر المشار اليه الى

Dim rs As DAO.Recordset

وان شاء الله مهندسنا العزيز يكمل معك باقى الاجوبه

بالتوفيق

[Eng.Qassim]

اعتذر كثرا ..لقد ارسلت الملف الخطأ

في البداية اردت الاشتغال على حقل نصي ..انما الذي تريده رقم

db1.rar

21 ساعات مضت, abdhamid said:

لقد قمت بتنزيل المرفق وعندما قمت بتشغيله اظهر لى هذا الخطا 

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

[متقاعد]

22 دقائق مضت, Eng.Qassim said:

في البداية اردت الاشتغال على حقل نصي ..انما الذي تريده رقم

الحقيقة انا امس ايضا عملت على الملف بناء على فهمي للامر لرقم واحد انه يرغب بالترقيم للموظفين بناء على الغرفة واستخدمت دالة dmax بشرط رقم الغرفة مثلا غرفة 1001 يكون الترقيم من 1 الى نهاية سجلات النموذج الفرعي وغرفة 1002 ايضا من 1 الى ..

وبالنسبة لرقم 2 اضفت في الجدول حقل من نوع نعم لا واستخدمت if و dsum بشرطين رقم الغرفة وحالة الحقل الجديد فاذا كانت القيمة لا لكل سجلات الفرعي للغرفة يكون المبلغ الاجمالي للسجلات واذا كانت هناك حقول نعم يجمع هذه الحقول فقط

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

تحياتي

[Eng.Qassim]

منذ ساعه, مبرمج سابق said:

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

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

في مشاركتي الاولى التي لم اكملها ورفعتها بالخطأ

في حالة اردت اضافة ترقيم نصي لسجلات موجودة ..اليك الملف

 

db2.rar