ابوخليل

Public Function GenerateID(TableName As String, fieldName As String) As Long Dim currentYear As Integer Dim yearPrefix As String Dim maxID As Long Dim serialPart As Long currentYear = Year(Date) yearPrefix = currentYear & "" maxID = Nz(DMax(fieldName, TableName, fieldName & " LIKE '" & yearPrefix & "*'"), yearPrefix & "00") serialPart = CLng(Mid(maxID, Len(yearPrefix) + 1)) GenerateID = CLng(yearPrefix & "000" & (serialPart + 1)) End Function هذه تعمل

جرب يا حافظ على دالتك الاصلية نقص صفر من التنسيق في هذا السطر ليصبح 3 اصفار GenerateID = CLng(yearPrefix & "000" & (serialPart + 1))

تفضلي التعديلاات كالتالي : 1- وضعت الوان في النموذج الرئيسي للاستدلال على الخطابات التي تم الاطلاع عليها .. الاخضر تم والبرتقالي لم يتم 2- في حدث العداد للنموذجين الفرعيين جعلت الوقت 5 ثواني ( كل 1000= ثانية ) يمكنك زيادة الوقت وهو الافضل مثلا 300000 = 5 دقائق بمعنى كل 5 دقائق يتم تحديث النموذج لمعرفة ان كان هناك خطابات جديدة الآن عند فتح النموذج الفرعي سيفتح بلا بيانات انتظري 5 ثواني لتري التيجة جربي ووافيني بملاحظاتك مراسلة3.rar

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

المتغير هذا والدالة تحته من اجل تحديد رقم القسم فالاقسام معرفاتها تبدأ من رقم 1 وحتى 5 في حدث تحميل النموذج المتغير strSectionID يأخذ قيمة معرف القسم .. يمكنك الاطلاع Public strSectionID As Integer ' اعلان عن متغير عام رقمي Public Function funSectionRecordCriteria() ' هذه الدالة تأخذ قيمة المتغير نستفيد من هذه الدالة كمعيار داخل الاستعلام فهي تحمل رقم القسم funSectionRecordCriteria = strSectionID End Function ليه استخدمنا الدالة كمعيار بدلا من المعيار المعتاد : forms!form1!text1 ? لأن الدالة تأخذ قيمة معرف القسم عند تحميل النموذج الخاص بالقسم فلو كان عندنا 10 نماذج وكل نموذج لقسم مختلف فالدالة تأخذ قيمة كل نموذج عند فتحه بواسطة المتغير strSectionID وهذه القيمة هي التي نستخدمها كمعيار في الاستعلام وللعلم يمكننا الاستغناء عن الدالة واستخدام معيار القسم مباشرة اذا كان كل ملف فرعي يعمل لوحده مثلا ملف او واجهة القسم القانوني نضع في الاستعلام رقم 4 كمعيار ....................... بالنسبة للاشعار فإليك الطريقة : نضيف حقل خانة نعم/لا في السجل تكون نعم افتراضيا في نموذج العرض البعيد (القسم) نضع كود في حدث الحالي للنموذج والافضل يكون في حدث العداد هذا الكود يفحص آخر سجل على الاقل اذا خانة الاختيار true تظهر رسالة بوجود رسالة او سجل جديد ويمكن ان نعمل على الا يظهر هذا السجل للمستخدم الا بعد الموافقة .. والموافقة تعني تحويل الخانة الى false وظهور السجل

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

يالله ياولاد بسرعة افطروا اوديكم المدرسة الوقت بياخذنا انا اعتقد اني قدمت افضل ما لدي وارفع يدي معتذرا عن مقاطعتكم وان اكون سببا في تأخر الحصول على المطلوب 🙋‍♂️

المفروض انك تبني تصميمك على مثال يخص عملك لا فرق بين ما تفكر به وما اقترحه عليك سوى التنظيم المسألة يسيرة والفكرة لن تأخذ وقتا طويلا واطلق لخيالك العنان .. يجب ان يكون العمل قابلا لأي توسع وتطوير اترك المثال الحالي بعيدا عنك .. واعمل مثالا يخص عملك على النحو التالي : العمل سيكون مختصرا باقل كمية من البيانات الخطوة الأولى : 1- جدول مجموعات : رقم معرف / المجموعة (مدراء / معلمين / موظفين ...الخ) 2- جدول مفاتيح : معرف المفتاح / رقم فرعي للمجموعة 3- جدول الاسئلة واجاباتها : رقم السؤال /رقم فرعي للمفتاح / السؤال / اجابة1/اجابة2/اجابة3/ الاجابة الصحيحة اربط علاقة رأس باطراف على التوالي : المجموعات بالمفاتيح ..... والمفاتيح بالاسئلة من خلال اجدول المجموعات يمكنك النقر على علامة الزائد وتسجيل اكثر من مفتاح للمجموعة الواحدة .. مثلا اربعة مفاتيح وايضا من خلال الزائد في جدول المفاتيح يمكنك وضع اكثر من سؤال في المفتاح الواحد لنقل 2 أو 3 اسئلة او اعمل نماذج لادخال هذه البيانات .. انا افضل الأولى واترك النماذج اخيرا بعد عمل البرنامج على الوجه المطلوب هنا يصبح لدينا كل مجموعة لديها اربعة مفاتيح تخصها نجري عليها الاختيار العشوائي حسب المجموعة المختارة ( للعلم جدول المفاتيح يشتمل على حقلين فقط رقميين .. رقم المجموعة وينزل آليا عند ادراج رقم المفتاح) الخطوة الثانية : اجراءات وخطوات تقديم الاختبار

المجموعات التي اتحدث عنها تخص هيكل الاسئلة المطروحة دعنا نسميها مفاتيح .. كل مفتاح تحته اسئلة مدروسة متكاملة سواء 10 او 15 او اقل او اكثر .. وخذ بالاعتبار تمكين التبديل بين هذه المفاتيح بحيث يمكن نقل سؤال من مفتاح الى آخر والعكس والمجموعات التي انت تتكلم عنها هي للتخصيص .. لذا يمكن تخصيص المفاتيح على طريقتك التي تريدها احتمال يخرج للمتسابق 10 اسئلة كلها في التاريخ .. هذا مثال اما على طريقتي فسيخرج له اسئلة تم فحصها والتأكد من شمولها لا مشكلة ان يتكرر سؤال او اثنين في جميع المفاتيح .. اقصد يكون عاما تجده في كل مفتاح ..................... في معرفي انظر اهتماماتي .. اي مشروع يبدأ بــــــــ : 1- فكرة ....... ( غالبا تبدأ من مالك المشروع) 2- تحليل البيانات 3- بناء الهيكل او القواعد الاساسية ( الجداول ) 4- تسليم العمل للمنفذ (المبرمج/ المبرمجين ) للتنفيذ قد تجتمع كل هذه بشخص واحد .. و ايضا يمكن توزيع هذه الفقرات على عدة اشخاص وتكليفهم بالمهمة

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

تفضل واحدة .. مثل هذه الفكرة اعمل دوما على التعامل مع المعرفات وليس الحقول النصية مراسلة1.rar

اي بصمات ؟؟ هؤلاء هم الذين يجب ان تبين لهم انكم افضل منهم ومن اقسامهم على الاقل يتم ادخال الرقم القومي وكلمة التأكيد يكون مثلا رقم الهاتف .. ومن المؤكد ان ارقام هواتفهم موجده لديكم في السجلات فقط انا اريدك ان تلغي مسألة ... هل هذا اسمك وبياناتك ؟

لم افهم !! الاعداد يتم حصرها من جدول2 .. اي اضافة الى جدول2 ستظهر النتيجة

السلام عليكم ما دام من اهتماماتك البرمجة فالحل يسير جدا الظاهر ان واجهات قاعدة البيانات مشتركة بين عدة اقسام العمل كالتالي : 1- مجلد المرفقات يجب ان يكون بجانب قاعدة الجداول الخلفية 2- يجب ان يكون عرض البيانات عبر استعلام (من اجل الاعتماد على معيار القسم) 3- الواجهات المتعددة .. يجب ان تحمل معرف القسم عند الفتح ( مثلا في فورم اليوزر عند الدخول .. فيكون اليوزر مربوط بالقسم ) حتى لو كان موظف المحاسبة يفتح البرنامج من قسم الادارة لن يظهر له الا ما يخص قسم المحاسبة .. الى هنا كل شيء مفهوم وبالسليم نرجع الى فقرة2 مسؤول النظام يمكنه تخصيص عرض بعض السجلات لقسم دون قسم من خلال عمل معيار في الاستعلام يتيح لذاك القسم الاطلاع واستعراض بيانات السجل هذه افضل وابسط طريقة ارى انها تؤدي الغرض

انظر النتيجة عند نقل الدالة الى محرر النموذج dcount2.rar