Foksh

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

في الاستعلام ضع المعيار التالي فقط 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

=DCount("[jop_coode]";"[data]";"([jop_coode] IN (21, 22, 26, 27, 29)) AND [jop_hala_coode]=1 AND [Insurance_coode]=1 AND DateDiff('d', [date_jop], Date()) >= 90") أتمنى أن يكون هذا طلبك

جرب هذا التعديل أخي الكريم ، =DCount("[jop_coode]";"[data]";"([jop_coode] IN (21, 22, 26, 27, 29)) AND [jop_hala_coode]=1 AND [Insurance_coode]=1")

قم بتشغيله في متصفح الانترنت لديك إن كان الويندوز عندك أقل من Win10 . لأن الملف المرفق للأستاذ @kkhalifa1960 ملف صورة متحركة بصيغة Gif

اجعل في الاستعلام الشرط عند حقل القيمة التي تريدها أصغر من 0

تفقد هذه المشاركة أخي الكريم ، وهذا رابط الموضوع الأساس .

أخي الكريم ، يسعدني أن أشاركك ملف للأستاذ @Moosak فيه تستطيع استيراد وتصدير ملفات المكتبات لأي مشروع Reference Management.accdb