أبو عبدالله الحلوانى

لو كان ممكنا ان تضع مرفق بالمشكلة هنا حتي يستطيع الأساتذة المساعدة فربما هنالك خطأ ما بكتابة الكود لم تلحظها احيلك علي هذا المرفق لأستاذنا @jjafferr جزاه الله خيرا وان شاء الله ستنتهي مشكلتك بعد استعمال المرفق بشكل صحيح وان لم تنتهي المشكلة فعد لاقتراحي الأوول بان ترفق مرفقا بالمشكلة.

السلام عليكم وانا ايضا يظهر عندي مرفق استاذنا @مبرمج متقاعد بدون مشكلة ولكن ربما الاصدار الاحدث من 2010 الذي يستخدمه استاذنا ابو اشرف هو المشكلة فقد طورت ميكروسوفت عمل الرسوم البيانية في الاصدارات الاحدث. ولكن هنالك خاصية بالاصدار 2010 هي في نظري اقوي من الاصدارات الاحدث وهي ضبط خاصية العرض الافتراضي للفورم علي piovatechart واعتقد اني قد تعرضت لها هنا بهذا الرابط ارجو ان يفيدك هذا الأمر بشىء تمنياتي بالتوفيق

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

اولا - اعتذر عن التأخير، وقد اخبرت حضرتك سابقا اني لا اتابع المنتدي بشكل منتظم هذه الفترة، فأرجو المعذرة ثانيا- لا اخفيك سرا فانا - ضربت حيص بيص يعني كدا - - ولكني لن استسلم الآن ودعني استفسر عن شىء ما فهمته وارجو ان يكون هذا صحيحا - انك تريد الاستعلام عن كل السنوات ولكن الرصيد يتم اعتباره لبداية الفترة ثم يتم تجميعه بشكل تراكمي بعد عن كل سنة علي حدا اليس كذلك؟ يعني: لو كانت بداية الفترة هي 2019/9/1 مثلا ولا يوجد تعاملات قبل هذه الفترة يكون الرصيد = صفر ثم يتم تجميع كل المعاملات كرصيد سابق لكل سنة علي حدا يعني: لو اخر الفترة هي 2022/10/1 يكون الرصيد في 30-6-2020 هو كل الماملات التي تمت خلال الفترة من 9-2019 حتي 6-2020 وليكن 100 مثلا ثم في 30-6-2021 يكون الرصيد هو كل المعاملات التي تمت في 2020 بالاضافة الي الرصيد ولنفترض ان المعاملات كانت 100 أخري + الرصيد في 2019 = 200 يعني في نهاية فترة الاستعلام هيكون الرصيد هو 300 مثلا اليس كذلك؟ ولكن السؤال الآن دالة الرصيد ما هي بهذه الكيفية حيث ان بالمرفق فان الرصيد لديك يساوي (الدائن - المدين + الرصيد) فمن اين نأتي بالرصيد بهذه الكيفية اذا؟ هل هنالك حقل خاص بالرصيد مثلا بقاعدة البيانات لدي حضرتك سيتم التجميع علي اساسه

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

السلام عليكم ورحمة الله وبركاته ارجو ان يوافق هذا التعديل مرادك جرب ووافنا بالنتائج مع تمنياتي بالتوفيق وكامل اسفي علي تأخري بالرد T3Q - Copy.rar

السلام عليكم ورحمة الله وبركاته اذا كنت تريد ان يعرض لك الاستعلام البيانات بدون تكرار القيم فمن شاشة تصميم الاستعلام - ومن خصائص الاستعلام حدد الخاصية قيم فريدة الي نعم (uniqe value = yes) كما هو واضح بالصور الثالية: ودمتم تمنياتي بالتوفيق

السلام عليكم ورحمة الله وبركاته أولا- اعتذر لتأخري بالرد لعدم انتظامي بالموقع بالوقت الحاضر ثانيا- هذه محاولة للمساعدة لعلها توافق مرادك لم اجري العديد من التجارب ولكن التجربة الأولية أعطتني نتائج لا ادري ما دقتها - هذا ما انتظره من حضرتك بعد الاطلاع علي المرفق. ثالثا- أجريت بعض التغيرات علي دالة التجميع بالمرفق السابق بالمشاكة الأخيرة لي- فلعل احد البرمترات سبق الآخر - واضفت برامتر جديد ارجو ملاحظة هذا عند نقل الدالة الي برنامجك الأصلي. وأخيرا - أكرر اعتذراي ومروري السريع وان كانت النتائج غير صحيحة فأرجو ان تسامحني لعدم المتابعة حيث أني مرهق الآن - وسأتابع غدا ان شاء الله. T3Q - Copy.rar

السلام عليكم المرفق به شرح من أحد موضوعات الاستاذ صالح حمادي افحصه وان وجدت وقتا كافيا سأرفق لك مثالا ان شاء الله يقوم بالمطلوب وفقا لشرح استاذنا صالح جزاه الله خيرا وان بحثت عن الموضوع ستجد من الافادة الكثير ان شاء الله prowser.docx

اقتراحي مشابه لاقتراح أخي الباشمهندس قاسم @Eng.Qassim وفقا لما فهمت من رد حضرتك ان تحديد الفئة العمرية سيكون قاصر علي التحديد اليدوي بالنسبة للمستخدم فاقتراحي ان يكون جدول التحليلات به 4 عمود بعد اسم التحليل وباقي البيانات طبعا 1-2 - القيم الطبيعية لفئة بالغ (ذكر - أنثي) 3-4 - القيم الطبيعية لفئة غير بالغ (ذكر - أنثي) وفي هذه الحالة لن نحتاج الي جدول الفئات العمرية لكونه سيتم تحديده من قبل المستخدم وهكذا يمكن استخراج النتائج الطبيعية بناءا علي تحديد النوع واسم التحليل وبالغ او غير بالغ وفي النهاية هي مجرد اقتراحات لن يحدد جدواها سوي طبيعة ما تريدون القيام به بعد هذه الخطوة.

السلام عليكم مبدأيا نريد ان نعرف هل هناك قاعدة ما بناءا عليها يتم تحديد ان هذه الفئة العمرية بالغ ام لا - ام ان هذا متروك لتحديد يدوي من المستخدم ثانيا - ما المقصود ان التحليل يعتبر ان فئة الـ 10 سنوات هو بالغ هل من الناحية التشريحية (ولست خبيرا بالمسائل الطبية)

بل تفضل انت علينا بوضع مثال لمشكلتك جدول صغير به بعض البيانات وقم بتوضيح المطلوب حتي يسهل علي من اراد المساعدة مد يد العون تمنياتي بالتوفيق

السلام عليكم ورحمة الله وبركاته حقيقة كنت مار من هاهنا 👉 👈 فسمعت صوت احدهم ينادي علي الصعايدة فلبيت فكان النداء لصعيدي (مش من بلدنا ) عموما لا بأس فالصعايدة كلهم أخوة وبعد اعتقد ان أختنا تريد شيئا كهذه الفكرة - ان كان فهمي لما تعني صحيحا فهي ايضا صعيدية - لان الصعايدة يفهمون بعض PassRepName.accdb

السلام عليكم ورحمة الله وبركاته الفكرة: وضع سؤال بشكل عشوائي - وكذلك اعادة ترتيب الاجابات بشكل عشوائي حتي لا يحفظ المستخدم اماكن الاجابات الأكواد المستخدمة: Function GetRandNo() Randomize (28) GetRandNo = Int((28 * Rnd) + 1) End Function هذه الدالة تقوم باعطائي رقم عشوائي بين 1 - الي 28 المشكلة: انها تكرر الأرقام مما يخفي بعض الاجابات والتي تكون احيانا الاجابة الصحيحة علي السؤال العشوائي المحاولات التي قمت بها: قمت بوضع متغير مصفوفة لتخزين قيمة الرقم العشوائي لاعادة البحث عنه وتغيره في حالة وجوده بالقائمة ولكن وجاهتني مشكلة في تخزين القيمة بشكل متسلسل بالقائمة Function GetRandNo() Dim n As Integer Recall: Randomize (28) GetRandNo = Int((28 * Rnd) + 1) For n = 0 To UBound(RndNo) - 1 If GetRandNo = RndNo(n) Then GoTo Recall Exit For Else GoTo contnue End If Next Exit Function contnue: For n = 0 To UBound(RndNo) - 1 If RndNo(n) = 0 Then RndNo(n) = GetRandNo ' Debug.Print "Inex: " & n ' Debug.Print "Element index:" & RndNo(n) Exit For End If 'Debug.Print RndNo(n) Next End Function وهذا الكود بعد تنفيذ الفكرة ولكن لم يتم تخزين القيمة بالمصفوفة بشكل صحح وجزاكم الله خيرا

ومن عيوبها ايضا تشابه ارقام الهارد دسك التي تحمل نفس المواصفات في بعض الأحيان وعلي كل وجدت لك هذا المرفق بمكتبتي وهو لأستاذنا @ابو جودي جزاه الله خيرا - لا اذكر اسم الموضوع للحصول علي الرقم التعريفي للجهاز UUID وهذا رقم فريد لكل جهاز من خلاله يتم التميز بين الأجهزة علي الشبكة - ولا يحتاج الي الاتصال بالانترنت لا تقلق ولا يتشابه به جهازين استعمله بكود الحماية الخاص بك Get UUID.mdb

حقيقة انا دخلت الموضوع لاتعجب من هذا واستفسر - ما هو السبب الذي يحملنا علي ان نفتح 41 جدول في نفس الوقت لا ادي حدود الأكسس وامكانياته هل تكفي لهذا ام لا - ولكن ان كان هذا متاحا فهو كفيل بأن يجعل المستخدم يسجل كلمة كل 5 اشهر بالبرنامج - ان لم يصب بجلطه من بطىء البرنامج قبل هذا ان كنا قد تعلمنا من اساتذتنا الكرام عند العمل مع دووال الاسكيول لفتح الجدول والاضافة والتعديل او الحذف ان لا ننسا اغلاق الجدول بعد هذا حتي لا يتسبب بمشكلة البطأ للبرنامج والثقل في الاستعلامات فيما بعد - رغم ان كل هذا يتم عن طريق الكود!! اسف علي الاطالة ولكن لازال هذا السؤال يحيريني ماهو السبب الوجيه الذي يحملنا علي ان نفتح 41 جدول في نفس الوقت

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

قمت بالفعل بجعل الاخطاء تظهر بعمود مستقل وجعلت للخطأ كود مستقل وهو 5 وما ظننت ان هذا الأمر مازال مطروحا حتي الآن - قمت ببعض التعديلات الطفيفة علي الكود بمرفقي السابق واظن ان هذا هو مطلبك نصيحة صغيرة - والتناصح حق بين المسلمين - وارجو ان لا يزعجك هذا - حاول اخي ان تعبث بالكود الذي يقدم اليك بحل موضوعاتك وتنظر ان حذفنا هذه الجملة ماذا سيحدث او غيرنا هنا بهذه الكلمة ماذا سيحدث وقم بالبحث عن الكلمة التي تظن انك لا تعرفها - او اطرح سؤالا عنها هنا مثلا - هكذا تعلمت عن نفسي بعض الأشياء - علي قلة ما لدي بتحليل الكود ومحاولة تقسيمه وفهم جزئياته سيفتح عليك الكثير من المعرفة والاستنتاجات وفهم منطقية عمل الكود الكثير والكثير بإذن الله وأخيرا - اعتذر علي الاطالة وارجو ان لا يزعجك كلامي وحتي لا يكون ردي مجرد كلام فقط اليك هذا المرفق ارجو ان يوافي طلبك جلب البيانات من الرقم القمي ابو جودي.rar

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

مشاركة معي استاذنا @د.كاف يار جزاه الله خيرا استخدم هذا الكود فقط بدون مكتبات TablName= MyAccessTbleName 'ضع بدل هذا المتغير اسم الجدول الموجود بالأكسس ExlFilPath= MyExelFileFullName 'ضع بدل هذا المتغير مسار ملف الاكسل بالكامل مثل: D:\Exel1.xlsx "A1:F2000" ' هذا المدي الموجود به البيانات بشيت الاكسل غيره حسب ما هو موجود عندك Docmd.TransferSpreadsheet(acImport,acSpreadsheetTypeExcel12,TablName,ExlFilPath,true,"A1:F2000") هذا والله أعلم

علي حسب فهمي لهذه الجزئية ارجو ان يكون هذا هو المطلوب رغم اني قمت بهذا العمل حسب رغبتك الا انه يوجد طريقة اسهل من هذا للوصول للمطلوب كأن تجعل مصدر بيانات التقرير استعلام يتم تصفية بياناته بناءا علي الاختيارات المطلوبة - ولا داعي لوجود جدول وسيط يأخذ من الفورم ثم يرسل الي التقرير ولا اكود ولا شىء من هذا القبيل. كذلك لي ملاحظة علي حجم قاعدة البيانات حيث انك ضمنت الصور الموجودة علي الازرار لهذا تضخم حجم قاعدة البيانات لذي انصحك ان تجعل الصور بفولدر مستقل بجوار قاعدة البيانات وتجعل الصور علي الأزرار مرتبطة به وليست مضمنة تمنياتي بالتوفيق لجنة الزكاة.rar

حقيقة آثار فضولي ان اري مرفق اخي وأستاذي @ابو جودي بعد ان اطلعت علي الكود بمشاركته الأولي ومن باب الفضول ايضا قمت بوضع رقمي القومي لأنظر هل سيصل الكود الي الصعيد ام لا ولا ادري لماذا اتجهت عيني مباشرة الي العمر ولن ما ادهشني ان عمري قد اصبح 12 عاما فقط حقيقة قد شككت في حساباتي انا ولم اشك بكود استاذنا ابو جودي - واخذت ادعو له بظهر الغيب ان نبهني ان العمر لم يمضي وشمرت عن ساعد الجد لادرك ماظننت انه قد فات في عمر الشباب - ولات حين ادراك 😔 - ولكن قد قمت بالعبث بكود استاذنا وقام بحساب العمر صحيحا علي ما اعتقد وعدلت بعزل نوع الخطأ بعمود مستقل حسب ما فهمت من كلام الاستاذ محمد صاحب الموضوع وهذا المرفق بعد كل هذه الثرثرة قاعدة بيانات موظفين - (3).accdb ملاحظة قمت بحذف بياناتي الشخصية حتي لا يطلع احد علي العمر الحقيقي

جرب ان ترفع المرفق علي google drive مثلا وضع رابط التحميل هنا

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

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