Matin_Murad قام بنشر فبراير 15, 2021 مشاركة قام بنشر فبراير 15, 2021 السلام علیکم اريد تعديل هذا الساعة عدم وصول ساعة الى 13:00 ساعة رقمية الى حد 12:59 ساعة ثم الى ساعة 1:00 بدون استخدام ( ص , م , صباح , مساء , pm , AM ) ساعة رقمية 12.accdb رابط هذا التعليق شارك More sharing options...
biskra قام بنشر فبراير 16, 2021 مشاركة قام بنشر فبراير 16, 2021 في كود حدث On Load و كود حدث On timer احذف AM/PM من الكود Me.xxx = Format(Time, "HH:NN:SS") عوض Me.xxx = Format(Time, "HH:NN:SS AM/PM") 1 رابط هذا التعليق شارك More sharing options...
Matin_Murad قام بنشر فبراير 16, 2021 الكاتب مشاركة قام بنشر فبراير 16, 2021 نفس المشكلة بعد حذف AM/PM في كود حدث On Load و كود حدث On timer احذف AM/PM تصل ساعة الى 15:32:28 مطلوب ساعة ساعة رقمية الى حد 12:59 ساعة ثم الى ساعة 1:00 بدون استخدام ( ص , م , صباح , مساء , pm , AM ) رابط هذا التعليق شارك More sharing options...
biskra قام بنشر فبراير 16, 2021 مشاركة قام بنشر فبراير 16, 2021 جرب الكود التالي Me.xxx = Format(Time, "HH:MM:SS ampm") 'yields 02:12 PM رابط هذا التعليق شارك More sharing options...
Matin_Murad قام بنشر فبراير 16, 2021 الكاتب مشاركة قام بنشر فبراير 16, 2021 رابط هذا التعليق شارك More sharing options...
أفضل إجابة ابوبسمله قام بنشر فبراير 17, 2021 أفضل إجابة مشاركة قام بنشر فبراير 17, 2021 السلام عليكم مشاركه مع اخى واستاذى العزيز @biskra جزاه الله خيرا 💐 اتفضل اخى @Matin_Murad هل هذا ما تريد Private Sub Form_Load() Call strTime End Sub Private Sub Form_Timer() Call strTime End Sub Sub strTime() x = CDbl(Now) - CDbl(TimeValue("12:00:00")) Me.xxx = Format(TimeValue(CDate(x)), "HH:NN:SS") End Sub بالتوفيق ساعة رقمية 12.accdb 1 1 رابط هذا التعليق شارك More sharing options...
biskra قام بنشر فبراير 17, 2021 مشاركة قام بنشر فبراير 17, 2021 هناك مشكلة كلما أجرب المثال بجميع الأكواد المقترحة يشتغل عادي، لكن عند غلق الملف و الخروج من الأكسس و إعادة تشغيل الملف تأتي رسالة خطأ و يتوقف البرنامج عن العمل رابط هذا التعليق شارك More sharing options...
Matin_Murad قام بنشر فبراير 17, 2021 الكاتب مشاركة قام بنشر فبراير 17, 2021 شكرااستاذ ( biskra ,,,,,, احمد الفلاحجي ) على الرد . رابط هذا التعليق شارك More sharing options...
ابوبسمله قام بنشر فبراير 18, 2021 مشاركة قام بنشر فبراير 18, 2021 11 ساعات مضت, biskra said: هناك مشكلة كلما أجرب المثال بجميع الأكواد المقترحة يشتغل عادي، لكن عند غلق الملف و الخروج من الأكسس و إعادة تشغيل الملف تأتي رسالة خطأ و يتوقف البرنامج عن العمل اخي بيسكرا الملف يعمل عندي حتى بعد الضغط والاصلاح ربما لوجود كتابه باللغه العربيه طب جرب عمل مثال نفسه ع جهازك ثم قم بنقل الكود وان شاء الله سوف اقوم بمراجعته مره اخرى عند عودتي من العمل بإذن الله الشكر لله ثم لإخواننا واساتذتنا جزاهم الله خيرا بالتوفيق رابط هذا التعليق شارك More sharing options...
عبدالقدوس48 قام بنشر فبراير 18, 2021 مشاركة قام بنشر فبراير 18, 2021 السلام عليكم أنا تعمل عندي رابط هذا التعليق شارك More sharing options...
Matin_Murad قام بنشر فبراير 18, 2021 الكاتب مشاركة قام بنشر فبراير 18, 2021 (معدل) ()Sub strTime '''''''''''''''''''''''' ()dim x as date x = CDbl(Now) - CDbl(TimeValue("12:00:00")) Me.xxx = Format(TimeValue(CDate(x)), "HH:NN:SS") End Sub تم تعديل فبراير 18, 2021 بواسطه Matin_Murad رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.