AbuuAhmed

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

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

يوجد نقطة وحيدة تحتاج إلى مراجعة ، وهي عند جريان المدة بين يومين، أعتقد هناك ستحدث مشكلة. سأقوم الليلة إن شاء الله بالتجربة قبل الساعة 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

وهذا كود لفتح التقرير على صفحة معينة: Private Sub Report_Open(Cancel As Integer) PageNo = 5 'required page If PageNo > 1 Then String_ = "{PGDN " & PageNo - 1 & "}" mySendKeys String_, True End If End If End Sub

إذا أردته في حقل نوعه تاريخ فلابد من إضافة اليوم ، فقط عليك جعل اليوم 1 أو أعتقد في حالة أضافة التاريخ بتنسيق سنة وشهر Format([Date],"yyyy/mm") فالأكسس سوف يجعل اليوم 1 بشكل ذاتي ، أما طريقتك فيناسبها حقل من نوع نصي.

رحم الله والديك .. أزلت عنا مشكلة عاشت معنا عشرات السنين. لو تفتح موضوع خاص بهذا الحل ليكون سهل الوصول له. تفاديا لتكرار هذه السطور يفضل تحويلها إلى إجراء يستدعى كما الإجراء الأصل كالتالي: Sub mySendKeys(String_ As String, Optional Wait As Boolean = False) Dim WshShell As Object Set WshShell = CreateObject("WScript.Shell") WshShell.SendKeys String_, Wait Set WshShell = Nothing End Sub وتستدعى كالتالي: mySendKeys "{End}", True

جيد ، وهذه ملاحظاتي: - لم يتم تحويل الكسر إلى "فلوس" - يجب للمبرمج فهم الفرق بين الـ Fix و الـ Int للـ vba فلكل منهما وظيفة تختلف عن الأخرى.

وجرب هذا أيضا: Database31_01.accdb