Foksh

الحقل ( 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

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

تفضلي محاولتي البسيطة stopwatch.accdb قمت بجعل قيمة مربع النص للدقائق بقيمة افتراضية = 0 فقط

تفضلي lab.accdb

لأي حقل ؟؟

ممكن توضح أكثر

ضعي هذا الكود في حدث عند النقر للزر If Normal = "sex" Then DoCmd.OpenForm "normals_frm" Else MsgBox "قم بادخال قيمه صحيحه", , "" End If

بعد تجارب كثيرة ، خرجت بهذه النتيجة ؛ ولكن يبدو أنك سبقتني بفكرة وهذه فكرتي last datex.accdb

لم ألحظ خطأ في الكود الخاص بك ، ولكن جرب هذا التعديل إن أحببت بعد التجربة ، لا أعتقد أنه يمكن تعديل الخصائص ( التنسيق ) لحقل في الجدول ، ويمكن استخدام جدول منشأ مسبقاً ( أفضل طريق ) والمرفق بعد تحربته بشكل أوسع لن يحقق طلبك ، وأعتذر last datex.mdb ولكن تابع هذا الموضوع

بعد تجربة المرفق فإنه يقوم بانشاء جدول جديد وجلب أحدث تاريخ ووضعه في الجدول الجديد main1116 وبصيغة تاريخ ، ونوع الحقل datex هو تاريخ ووقت وبالتنسيق yyyy/mm/dd أم انا الذي لم أستوعب الفكرة !!! 🤔

هذه محاولتي Delete Tbl.accdb

بعد إذن استاذنا ، هذه تجربة بسيطة أخي @abofayez1 جرب هذا المرفق ، وضعت لك حلين ؛ انتقِ أحدهما Delete Tbl.accdb