Foksh

هل هو شرط أن تكون الصورة بإمتداد 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

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

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

تفضلي lab.accdb

لأي حقل ؟؟

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

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

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

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