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

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

السلام عليكم ورحمة الله وبركاته ارجو ان يوافق هذا التعديل مرادك جرب ووافنا بالنتائج مع تمنياتي بالتوفيق وكامل اسفي علي تأخري بالرد 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 جزاه الله خيرا وجدت لك هذا الموضوع لعله يقارب لما تريد

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

السلام عليكم ورحمة الله وبركاته اولا حضرتك لم تنتبه علي رد م/ @Eng.Qassim فان لم يكن قد تم ايجاد حل لمشكلتك فازل علمة الاجابة لانها توحي بان مشكلتك قد انتهت ثانيا - لم اجد النموذج اللي حضرتك ذكرته بالمشاركة الأخيرة ولم اجد بالمرفق سوي الجداول والاستعلامات

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

ممكن شرح مفصل للمطلوب لو تسمح فقد قمت بتنزيل المرفق ولم افهم شىء

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