AbuuAhmed

تم تنقيح الكود فقط لإزالة بعض المتغيرات والسطور غير المطلوبة حاليا. StopwatchExample_06.rar

لم أستطع أن أصل إلى الموضوع ، لو تزودني بالرابط فضلا وليس أمرا.

آخر نسخة مني إلا إذا كان هناك خللا يحتاج إلى إصلاح الآن المثال يحمل نموذجين واحد لعرض الوقت المتبقي (تنازليا) والآخر لعرض الوقت المنقضي (تصاعديا). StopwatchExample_05.rar

أكيد أسمح ، وبما أنك توسعت وهذا يخالف أسلوبي حيث أنا أحب التركيز على الفكرة الأساس 🙂 فأنا مشيت مع التيار وتوسعت أيضا بإضافة ملف الصوت. سؤالي لك : في إضافة الخط نشير إلى مسار الملف واسمه وهذا منطقيا سليم ، فلماذا عند الإزالة نشير إلى نفس المسار عند الإضافة؟!! StopwatchExample_04.rar

تمت التعديلات التالية: - الأخذ في الاعتبار تغير التاريخ عند الساعة 12 ليلا. - تبديل الخط لصندوق للعداد مع وضع عنوان مصدر الخط لمن يريد انزاله وحفظه في مجلد الخطوط للويندوز. - أخذ ملاحظة عزيزنا جعفر بإبقاء الوقت عند الإيقاف النهائي للعد واستبداله بالتعامل مع زر الإيقاف المؤقت. - بعض التحسينات في الكود. StopwatchExample_02.accdb

تمون عزيزي ، عدل كما تشاء ، هذا لاستخدامه مع زر التوقف المؤقت ، ويمكن عمله بطريقة أخرى ، الليلة نفكر في طريقة أخرى إن شاء الله. اللي يعرف نوع الخط اللي يظهر أرقام العداد كما الساعة الرقمية الحقيقية فليدلنا عليه والشكر لكم مقدما.

إذا هو سؤال لي ، فسأتأخر عليكم بالجواب ، لا تنسوا أنا مصاب بالتشتت وهذه الأمور تتعبني مع التركيز الكثير ، بس وعد مني سأرجع للموضوع. أخي أنت "مفرط في النشاط" وأنا صعب علي ملاحقتك 🙂 .

يوجد نقطة وحيدة تحتاج إلى مراجعة ، وهي عند جريان المدة بين يومين، أعتقد هناك ستحدث مشكلة. سأقوم الليلة إن شاء الله بالتجربة قبل الساعة 12 منتصف الليل. أو ربما سأضطر للعب في ساعة الجهاز. المؤقت "التايمر" عادة يبدأ العد من جديد مع بداية اليوم الجديد فتصبح قيمته أصغر من "بداية الوقت" (StartTime) وربما يكون الحل بتزويده بقيمة يوم كامل بعد المقارنة طبعا.

كما العنوان عداد تنازلي بالميلي ثانية مع خيار بالتوقف المؤقت وخيار استئناف العد من جديد. StopwatchExample_01.accdb

هل جربت؟ جوابك لا يفيد بذلك وهذا استهتار فينا غير مقبول. أقترح على المشرفين بغلق موضوعك إذا لم ترفع تطبيقك للتعديل عليه ، أنت تضيع أوقاتنا وحتى ردودك غير موفقة وغير واضحة.

جرب بدل هذا السطر: If Me!ElapsedTime = "00:00:00:00" Then بهذا السطر: If ElapsedMilliSec <= 0 Then ليصبح الكود بهذا الشكل: Private Sub Form_Timer() Dim Hours As String Dim Minutes As String Dim Seconds As String Dim MilliSec As String Dim msg As String Dim ElapsedMilliSec As Long ElapsedMilliSec = Me.Text15.Value - (GetTickCount() - StartTickCount) + TotalElapsedMilliSec Hours = Format((ElapsedMilliSec \ 3600000), "00") Minutes = Format((ElapsedMilliSec \ 60000) Mod 60, "00") Seconds = Format((ElapsedMilliSec \ 1000) Mod 60, "00") MilliSec = Format((ElapsedMilliSec Mod 1000) \ 10, "00") Me!ElapsedTime = Hours & ":" & Minutes & ":" & Seconds & ":" & MilliSec 'If Me!ElapsedTime = "00:00:00:00" Then If ElapsedMilliSec <= 0 Then Me.[test Name].BackColor = RGB(225, 0, 0) PlaySound Application.CurrentProject.Path & "\sounds\test.WAV" DoCmd.Restore TotalElapsedMilliSec = TotalElapsedMilliSec + (GetTickCount() - StartTickCount) Me.TimerInterval = 0 TotalElapsedMilliSec = 0 Me!ElapsedTime = "00:00:00:00" Me!btnStartStop.Caption = "start" Me.btnReset.Enabled = True End If End Sub

مصطلحك غامض 🙂 عموما أعتقد من الصعوبة أن تلقى من يساعدك بدون مثال، ضع مثالك وجربه قبل أن ترفعه لتتأكد أنك أرفقت كل الدوال والإجراءات المطلوبة. على كل حال سأحاول آخذ نظرة ثانية على الكود الليلة إن شاء الله وربنا يسهل الأمور.

https://support.microsoft.com/ar-sa/office/الدالتان-int-وfix-5446da0c-fbdc-425f-a818-7e3153984ff8

تأكد أن المجلد الذي يحتوي تطبيق/برنامج أكسس يحتوي على مجلد فرعي باسم sounds تأكد أن ملف الصوت "test.wav" موجود داخل مجلد sounds إذا لم يعمل استخدم المديول الموجود في المثال المرفق وتخلص من موديول الصوت الذي في تطبيقك. مشاركتي بناءً على فهمي أن "لا يصفر" بمعنى أنه لا يصدر صوت الصفير 🙂 PlaySoundApp.rar

تم تبديل المرفق في مشاركتي السابقة بعد التعديل في حدث زر/مفتاح الخروج.

حياك الله أخينا @Alsalim1 النصوص الطويلة تتوهني، هل أفهم من ردك أنك وجدت الحل؟

جرب الآن مثال دخول وخروج_05.accdb

جرب ، كما طلبت مثال دخول وخروج_03.accdb

جرب هذا المثال وإذا أقنعتك صممت لك استعلام وتقرير حسب التفصيلات التي تريدها. مثال دخول وخروج_02.accdb

العملية سهلة أخي ولكن لي ملاحظات قبل التعديل: يكفي أخي عمل جدول واحد يحتوي على 3 حقول رئيسية فقط وهي: 1- حقل رقم الموظف بدون الاسم. 2- حقل "تاريخ ووقت" بدون فصل وهو للدخول والخروج معا "بدون فصل" أيضا. 3- حقل نوع الوقت نوع Yes/No للتحديد نوع حقل "تاريخ ووقت" هل هو دخول أو خروج. شاور نفسك ورد علينا ، والحرية المطلقة لك ، ولكن من واجبنا تقديم النصيحة والمعلومة الأمثل. ويمكنك لاحقا ، مرحلة ثانية .. عمل بطاقات تحتوي على باركود تحصل منها على رقم الموظف بمجرد تمريرها على القارئ.

لي اقتراحين "غير ملزمين" ، هو أن يكون ترتيب المدخلات كما الأصل وكذلك قيمة Wait الافتراضية أيضا كما الأصل.

هذا ما يسمى بـ "الهدوء الذي يسبق العاصفة" ، جهودكم مشكروة

ما شاء الله ، توسعت كثيرا ، عساك ع القوة أخي العزيز. لم أجرب المثال الأخير ، بس كان في اعتقادي أنه لا بد للمعامل/المعطى/المدخل الأول يكون مطلوبا/إجباريا، ربما خلطت مع لغة أخرى. ولا أنسى أن أهنئكم بالعيد الوطني لبلادكم ، وكل عام وأنتم بخير وبلادكم إلى المزيد من التقدم والرقي.

تم بحمد الله ايجاد حل لمشكلة إجراء SendKeys ومشكلته المعضلة مع تعطيل مفتاح NUMLOCK للوحة المفاتيح. وذلك بفضل شيخ المنتدى جعفر @jjafferr مشكورا حيث استطاع إيجاد شفرة بديلة للدالة الأصل للـ vba. رجوت من زميلي فتح موضوع باسمه لهذا الموضوع المهم جدا برأيي ولكنه تأخر في الاستجابة وربما لم يرى فيه قدر الأهمية التي أراها أنا. على كل فليسمح لي على نشره تحت اسمي. الموضوع على الوصلة الآتية: فتح اخر صفحة في التقرير

عملت لك استعلام بدون استخدام دالة DLoockup ولي ملاحظات: - لا تستخدم حقل مذكرة إلا للنصوص أطول من 255 حرف. حقل رقم التسجيل إما تجعله رقمي نوع Long أو نصي مع تحديد طوله، يعني إذا طول رقم التسجيل 10 فليكون طول الحقل 10 فقط. موفق. test 003_02.mdb