ضبط وقت وتاريخ الجهاز من اكسيس عند الفتح

[محمد احمد لطفى]

أريد ضبط وقت و تاريخ الجهاز عند فتح النموذج من الجدول 

حيث أن الجدول سيكون مترابط من جهاز أخر على الشبكة وذلك لحل مشكلة البطاريه و تغيير الوقت و التاريخ كل يوم

وجزاكم الله خيراً

 

TimeDaTe.mdb

[محمد احمد لطفى]

الملف ده ممكن يساعد فى المطلوب 

بس مشكلته أن الملف يشتغل كمسئول administrator لكى يتم التنفيذ

تغيير تاريخ (2).accdb

[محمد احمد لطفى]

للرفع

[Amr Ashraf]

22 ساعات مضت, محمد احمد لطفى said:

بس مشكلته أن الملف يشتغل كمسئول administrator لكى يتم التنفيذ

السلام عليكم ,, تغيير الوقت والتاريخ بالفعل من صلاحيات المسئول وعلى حد علمى لا يوجد طريقة لا تتضمن استخدام هذه الصلاحيات .

ولكن هناك طرق اخرى مثل ربط الوقت والتاريخ بالنت وبالتالى دايما هيبقى مظبوط او طريقة متقدمة باستخدام دومين اساسى لربط اجهزة الشبكة به وفى كل مرة يتلخبط التاريخ او الوقت بمجرد اتصاله بسلك الشبكة سيتغير تلقائيا للوقت الصحيح يمكنك البحث عنها اذا كان عندك الصلاحيات انك تطبقها .

 

تم تعديل أغسطس 1, 2022 بواسطه Amr Ashraf

[محمد احمد لطفى]

شكراً أستاذى @Amr Ashraf

كان أستاذ @SEMO.Pa3x كان عاملى اداه شغاله بس مشكلتها انها بتقلب اليوم شهر و الشهر يوم و لو حاولت ابدل اليوم والشهر مبتظبطش برده 

ChangeDateTime_SEMO_Pa3x.rar

[Amr Ashraf]

5 دقائق مضت, محمد احمد لطفى said:

كان أستاذ @SEMO.Pa3x كان عاملى اداه شغاله بس مشكلتها انها بتقلب اليوم شهر و الشهر يوم و لو حاولت ابدل اليوم والشهر مبتظبطش برده 

والاداة دى كانت بتشتغل من غير صلاحيات الادمن ازاى ؟

اظن انها كانت بالفعل محددة انها دايما تشتغل كمسئول بدون تدخل منك , ممكن اذا تيسر لى الوقت ان شاء الله احاول اعملك اداة شبيهة بدون مشكلة تبديل الشهر مكان اليوم .. فى اقرب وقت بإذن الله خلال الايام القادمة اذا لم يفيدك احد الاساتذة

 

[ابو جودي]

اولا ضع الكود الاتى فى وحدة نمطية

Public Function ChnageDateFormat(Optional dtDateFormat As String = "dd/MM/yyyy")
	Shell "cmd.exe /c REG ADD ""HKEY_CURRENT_USER\Control Panel\International"" /v sShortDate /d """ & dtDateFormat & """ /F", vbHide 
End Function

ثانيا طبق الكود الاتى بعد اسنخدام الاداة فى قاعدتك التى اشرت اليها بذلك تتخطى عقبة تنسيق التاريخ 

 ChnageDateFormat()

 

---------------------------------

فى حالة اردتم تغيير التنسيق الى تنسيق أخر مثلا  yyyy/MM/dd

 ChnageDateFormat("yyyy/MM/dd")

 

ملاحظة الحرف M  الدال على تسيق الشهر لابد ان  يكون Capital Letter
اى يكتب كبير  M   
وليس صغير مثل m

[محمد احمد لطفى]

أستاذى @ابو جودي جزاك الله خيراُ
 

Me.datex = Format(Date, ChnageDateFormat("yyyy/MM/dd"))

تأتى رسالة خطأ

 

[محمد احمد لطفى]

للرفع

[اليمن غير]

((

))

[محمد احمد لطفى]

للرفع

[Amr Ashraf]

السلام عليكم ,, واضح انك ملقيتش الحل لذلك بكرة ان شاء الله اصمملك الاداة اللى تغير الوقت والتاريخ ونجرب ..

[Amr Ashraf]

@محمد احمد لطفى عملتهالك دلوقتى عشان مش ضامن وقتى بكرة 🙂

مرفق ملفك الاكسيس مع بعض التعديلات :

تم الاستغناء عن التنسيق المعين للتاريخ mm/dd/yyyy واستبدال الطريقة بحيث تعتمد الاداة على تنسيق التاريخ للجهاز نفسه وبالتالى اذا اردت تغيير التاريخ اكتبه بنفس الصيغة الخاصة بالجهاز المستخدم  وكذلك الوقت وتم الابقاء على دالة استبدال "ص" و "م" الى "AM" و "PM" تجنباً للاخطاء ولكن اعتقد اذا تخلصنا منها ايضا لن تسبب مشاكل طالما انك تستخدم صيغة الوقت والتاريخ الخاصة بالجهاز .

ومرفق الاداة المستخدمة ولن تطلب صلاحيات المدير للجهاز  وتمت التجربة وتعمل بنجاح بحمد الله .

جرب ووافنى بالنتيجة .

 

 

 

 

 

 

Amr Ashraf Date-Time Changer.zip

[محمد احمد لطفى]

جزاك الله خيرا أستاذى جهد مشكور
ما زال يحسب الشهر يو و اليوم شهر 

و عند كتابة مثلا لاتاريخ 28-8-2022 
أتت هذه الرسالة

اعدادت الجهاز

تم تعديل أغسطس 8, 2022 بواسطه محمد احمد لطفى

[Amr Ashraf]

7 ساعات مضت, محمد احمد لطفى said:

ما زال يحسب الشهر يو و اليوم شهر

كده المشكلة فى جهازك .. جرب ترجع تنسيق التاريخ فى كود الاكسيس dd-mm-yyyy 

وفيه حاجة غريبة تانية المفروض انتا تنسيقك dd-mm-yyyy فى الاعدادات ولكن الاداة لن تقبل الا  mm-dd-yy ايه السبب مش عارف بس هنجرب ان شاء الله بعد عودتى من العمل.

 

 

تم تعديل أغسطس 9, 2022 بواسطه Amr Ashraf

[Amr Ashraf]

على سبيل التجربة جرب ملف الاكسيس ده بدلاً من السابق ووافنى بالنتيجة .

datex.rar

[محمد احمد لطفى]

شكرأ أستاذى @Amr Ashraf

إشتغل تمام جزاك الله كل خير