اذهب الي المحتوي
أوفيسنا

Foksh

أوفيسنا
  • Posts

    4194
  • تاريخ الانضمام

  • تاريخ اخر زياره

  • Days Won

    180

كل منشورات العضو Foksh

  1. المهم أختي الكريمة @safaa salem5 نكون عند حسن الظن وأثني على كلام الأستاذ @عمر ضاحى 100%
  2. هذه فكرتي ، وانت عدل كما يلزمك في مشروعك ,, Database1 (1).accdb
  3. بدايةً لتلافي الخطأ في الترقيم ،، انا استخدم عادة الكود التالي ؛ وأضعه في النموذج في القيمة الإفتراضية للحقل الخاص برقم الزبون مثلاً . =Nz(DMax("[حقل_الترقيم]","اسم_الجدول"))+1 بالنسبة لثانياُ ، ارفق ملف بسيط للتعديل عليه
  4. تفضلي أختي الكريمة ،، stopwatch.accdb
  5. جزاك الله كل خير أستاذ @عبد اللطيف سلوم ، شرح كافي و وافي
  6. في الاستعلام ضع المعيار التالي فقط Not Like "*السامري"
  7. أخي الكريم لم انسى ، ولكن لانه اليوم الخميس نهاية الاسبوع يكون عندي ضغط في العمل ، لكني سأعمل على طلبك
  8. موجود في المديول
  9. استبدلي هذا السطر AudioFilePath = CurrentProject.Path & "\Audio Files\" بهذا السطر AudioFilePath = "F:\" استبدلي هذا السطر في حدث زر Start ElseIf IsNull(Text13) Then إلى هذا السطر ElseIf Text13 <= 0 Then
  10. العداد هو اللي بيقل أختي الكريمة في مثالي :) لا تظهر عندي المشكلة التي تحدثتي عنها ، مسحت الرقم 0 واعطاني مسج بأنه ( الرجاء ادخال الوقت بالدقائق ) تم تلافيها وهو فعلاً كدة ( انتهى العد التنازلي للتحليل ؛ وبسطر جديد يكتب اسم التحليل ) : مرفق فيديو توضيحي تم ادراجه وتعديل الكود باضافة مديول خاص للأستاذ @ابو جودي مشكور ، وإختصاراً للوقت Stopwatch.zip 20231130_133527.zip
  11. مشكور أخي العزيز على هذه المساهمة الطيبة ، جزاك الله كل خير وهل لك أن توضح لنا عن مبدأ عمل البرنامج وتشرح لنا فكرته
  12. بالنسبة للصوت والتنبيه ، جربي اذا كان سيعمل بشكل صحيح ( مع استبدال مسار الملف الصوتي ويكون بصيغة wav ) وبالنسبة لتلوين حقل اسم التحليل باللون الاحمر وجدت انه لون الخلفية احمر ولون الخط احمر ستكون غير مناسبة وغير صحيحة ، هذا المرفق واعطيني النتيجة stopwatch.accdb
  13. ممكن توضح لنا المطلوب تفصيلاً 😊
  14. تفضلي محاولتي البسيطة stopwatch.accdb قمت بجعل قيمة مربع النص للدقائق بقيمة افتراضية = 0 فقط
  15. ممكن توضح أكثر
  16. ضعي هذا الكود في حدث عند النقر للزر If Normal = "sex" Then DoCmd.OpenForm "normals_frm" Else MsgBox "قم بادخال قيمه صحيحه", , "" End If
  17. بعد تجارب كثيرة ، خرجت بهذه النتيجة ؛ ولكن يبدو أنك سبقتني بفكرة وهذه فكرتي last datex.accdb
  18. لم ألحظ خطأ في الكود الخاص بك ، ولكن جرب هذا التعديل إن أحببت بعد التجربة ، لا أعتقد أنه يمكن تعديل الخصائص ( التنسيق ) لحقل في الجدول ، ويمكن استخدام جدول منشأ مسبقاً ( أفضل طريق ) والمرفق بعد تحربته بشكل أوسع لن يحقق طلبك ، وأعتذر last datex.mdb ولكن تابع هذا الموضوع
  19. بعد تجربة المرفق فإنه يقوم بانشاء جدول جديد وجلب أحدث تاريخ ووضعه في الجدول الجديد main1116 وبصيغة تاريخ ، ونوع الحقل datex هو تاريخ ووقت وبالتنسيق yyyy/mm/dd أم انا الذي لم أستوعب الفكرة !!! 🤔
  20. هذه محاولتي Delete Tbl.accdb
  21. بعد إذن استاذنا ، هذه تجربة بسيطة أخي @abofayez1 جرب هذا المرفق ، وضعت لك حلين ؛ انتقِ أحدهما Delete Tbl.accdb
  22. =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") أتمنى أن يكون هذا طلبك
×
×
  • اضف...

Important Information