Foksh

بارك الله فيك أخي الكريم على هذا الطرح ، ولكن يبدو أنك لم تجعل لأصحاب النسخة 64 بت نصيب من تفحص البرنامج

اخي الكريم المفروض الذي تفرضه غير مذكور في طلبك ، وما لم تقم بتوضيحه أيضاً هو مكونات الرقم السري الذي ترغب بإنشاءه ، لأن الرقم السري الذي انشأته لك في جدولك هو الرقم المكون من ( رقم المجموعة وبداية رقم الجلوس وبداية الرقم السري من معلوماتك المدرجة في النموذج ) فأرجو منك توضيح مطلبك بشكل واضح وتفصيلي لكل النقاط التي ذكرتها حتى نستوضح طريقة انشاء الرقم السري الذي تريده

أخي الكريم هناك مشكلة في البيانات التي في الجدول Data ، فمثلاً عندك الصف الأول تكرر ٧٥ مرة ، مع العلم أنه في الجدول tb_sry لديك مجموعتين من كل صف ولم يتم تحديد المجموعة في الجدول data . على العموم ، قمت بإضافة حقل جديد في الجدل data برقم المجموعة ، وهذه تجربتي البسيطة ، فقط قم باختيار الصف في النموذج وسيتم انشاء الرقم السري حسب البيانات . الرقم السري.accdb

اتمنى أن يكون هذا طلبك ، جرب مع أو بدون تفعيل الحقل تدقيق وغير التاريخ وأخبرني بالنتيجة 😊 تقويم-1.accdb

يكفي إنها عجبتك أختي الكريمة ، وبعدين أنا ولا الأخ @jo_2010 أو أي حد من الأساتذة ، هنا كلنا وااااحد 😊

مساهمة بسيطة calc.accdb

يبدو أنني أيضاً لم استوعب طلبك بشكل واضح ، ارسل مرفق بسبط للنموذج الذي به الحقول لتفقدها وحل المشكلة 😊

هل هو شرط أن تكون الصورة بإمتداد BMP حصراً ؟؟ وإن أمكن إرسال مرفق بسبط للنموذج الذي به عنصر الـ OLE

أخي الكريم شكرا لك ولكن بدايةً اختيار أفضل إجابة تكون للحل وانتهاء المشكلة . ثم بالنسبة لسؤال لم أقم بتجربة الفكرة ، ولكن إن كان هناك حل فأكيد سيتم طرحه في الردود 😊

بسيطة ، لها أكثر من حل إن شاء الله ، ولكن خليها في البال ليوم غد إن كان هناك في العمر بقية

الحقل ( Student_ID ) جعلته من نوع رقم ، وجعلت القيمة الإفتراضية له في النموذج :- =Nz(DMax("[Student_id]","tblStudentDetails"))+1 * بمعنى آخر ؛ يقوم بالبحث عن آخر قيمة ثم يضيف لها 1 عند الحفظ , وهو الفرق بينه وبين الترقيم التلقائي . وفي زر الحفظ جعلته يقوم بالبحث في الجدول عن القيمة التي في الحقل ( IDD ) وهو افتراضي يمثل رقم الهوية مثلاُ باستخدام الدالة ( DLookup ) ، وبالكود التالي :- If Not IsNull(DLookup("[IDD]", "tblStudentDetails", "[IDD] = " & Me.IDD)) Then If MsgBox(" " _ & vbCrLf & "، الرقم الوطني موجود مسبقاً " _ & vbCrLf & "هل ترغب بالتعديل ؟" _ , 590132, "") = 6 Then IDD.SetFocus End If Else Undo DoCmd.CancelEvent End If ففي حالة وجود الرقم مسجل مسبقاً يعطيك رسالة نعم أو لا ؛ واذا اخترت نعم يقوم بالذهاب الى الحقل IDD ( رقم الهوية ) للتعديل عليه ، وإذا لا فإنه لا يحفظ - ولك حرية تعديل الشروط حسب رغبتك . مرفق الملف مضغوط Database1 (1).zip

المهم أختي الكريمة @safaa salem5 نكون عند حسن الظن وأثني على كلام الأستاذ @عمر ضاحى 100%

هذه فكرتي ، وانت عدل كما يلزمك في مشروعك ,, Database1 (1).accdb

بدايةً لتلافي الخطأ في الترقيم ،، انا استخدم عادة الكود التالي ؛ وأضعه في النموذج في القيمة الإفتراضية للحقل الخاص برقم الزبون مثلاً . =Nz(DMax("[حقل_الترقيم]","اسم_الجدول"))+1 بالنسبة لثانياُ ، ارفق ملف بسيط للتعديل عليه

تفضلي أختي الكريمة ،، stopwatch.accdb

ما الفكرة اخي الكريم

جزاك الله كل خير أستاذ @عبد اللطيف سلوم ، شرح كافي و وافي

في الاستعلام ضع المعيار التالي فقط Not Like "*السامري"

أخي الكريم لم انسى ، ولكن لانه اليوم الخميس نهاية الاسبوع يكون عندي ضغط في العمل ، لكني سأعمل على طلبك

موجود في المديول

استبدلي هذا السطر AudioFilePath = CurrentProject.Path & "\Audio Files\" بهذا السطر AudioFilePath = "F:\" استبدلي هذا السطر في حدث زر Start ElseIf IsNull(Text13) Then إلى هذا السطر ElseIf Text13 <= 0 Then

العداد هو اللي بيقل أختي الكريمة في مثالي :) لا تظهر عندي المشكلة التي تحدثتي عنها ، مسحت الرقم 0 واعطاني مسج بأنه ( الرجاء ادخال الوقت بالدقائق ) تم تلافيها وهو فعلاً كدة ( انتهى العد التنازلي للتحليل ؛ وبسطر جديد يكتب اسم التحليل ) : مرفق فيديو توضيحي تم ادراجه وتعديل الكود باضافة مديول خاص للأستاذ @ابو جودي مشكور ، وإختصاراً للوقت Stopwatch.zip 20231130_133527.zip

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

بالنسبة للصوت والتنبيه ، جربي اذا كان سيعمل بشكل صحيح ( مع استبدال مسار الملف الصوتي ويكون بصيغة wav ) وبالنسبة لتلوين حقل اسم التحليل باللون الاحمر وجدت انه لون الخلفية احمر ولون الخط احمر ستكون غير مناسبة وغير صحيحة ، هذا المرفق واعطيني النتيجة stopwatch.accdb

ممكن توضح لنا المطلوب تفصيلاً 😊