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

الردود الموصى بها

قام بنشر

السلام عليكم و رحمة الله و بركاته

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

تحياتي لكم :fff:

منع التلاعب في التاريخ.mdb

  • Like 4
  • Thanks 1
قام بنشر (معدل)

هذا كود جلب الوقت من الانترنت " توقيت جرينتش "

Dim UTCDateTime As String
    Dim arrDT() As String
    Dim http As Object
    Dim UTCDate As String
    Dim UTCTime As String
    Const NetTime As String = "https://www.time.gov/"
    On Error Resume Next
    Set http = CreateObject("Microsoft.XMLHTTP")
    On Error GoTo 0
    http.Open "sa", NetTime & Now(), False, "", ""
    http.Send
    UTCDateTime = http.getResponseHeader("date")
    [Text1] = UTCDateTime

 

تم تعديل بواسطه د.كاف يار
  • Like 6
  • 3 weeks later...
قام بنشر
في ٣‏/٩‏/٢٠١٩ at 08:46, د.كاف يار said:

هذا كود جلب الوقت من الانترنت " توقيت جرينتش "


Dim UTCDateTime As String
    Dim arrDT() As String
    Dim http As Object
    Dim UTCDate As String
    Dim UTCTime As String
    Const NetTime As String = "https://www.time.gov/"
    On Error Resume Next
    Set http = CreateObject("Microsoft.XMLHTTP")
    On Error GoTo 0
    http.Open "sa", NetTime & Now(), False, "", ""
    http.Send
    UTCDateTime = http.getResponseHeader("date")
    [Text1] = UTCDateTime

 

جميل جدا
بس وش لون اغير التنسيق ليصبح مثلا
تاريخ فقط YYYY/MM/DD

او اي تنسيق

قام بنشر
في ٢٠‏/٩‏/٢٠١٩ at 03:40, سلمان الشهراني said:

جميل جدا
بس وش لون اغير التنسيق ليصبح مثلا
تاريخ فقط YYYY/MM/DD

او اي تنسيق

اتغضل 

تم عمل الاتى

وضع الكود داخل موديول لسهولة استدعاءه فى زوايا البرنامج المختلفة ( نماذج - استعلامات - تقارير )
التعديل على الكود لعرض التاريخ فقط بالتنسيق الذى طلبته
ظهور الرسالة الاتية عند عدم وجود الانترنت

اقتباس

ا يوجد اتصال بشبكة الانترنت تم إحضار الوقت الحالى من الحاسوب

ويتم احضار الوقت بنفس التنسيق المطلوب من الحاسوب :wink2:

 

GetNetTime.mdb

  • Like 3
قام بنشر

استاذي الفاضل ابا جودي السلام عليكم ورحمة الله وبركاته 

عند تشغيل البرنامج تظهر لي هذه الرسالة كما في الصورة المرفقة 

هل يمكن حلها اكون ممنون منك يا طيب وجزاك الله خيرا 

Untitled.png2.jpg

قام بنشر
في ٢٠‏/٩‏/٢٠١٩ at 09:49, حربي العنزي said:

استاذي الفاضل ابا جودي السلام عليكم ورحمة الله وبركاته 

عند تشغيل البرنامج تظهر لي هذه الرسالة كما في الصورة المرفقة 

هل يمكن حلها اكون ممنون منك يا طيب وجزاك الله خيرا 

Untitled.png2.jpg

هل هناك مكتبات مفقودة . راجع محرر الاكواد 

Tools->References

 

وعلى كل جرب المرفق الاتى 

 

GetNetTime.mdb

  • Like 2
  • Thanks 1
قام بنشر

استاذي الفاضل ابا جودي الله يبارك فيك ويحفظك يارب 

الظاهر كما تفضلت هناك مكتبات مفقودة لان تخرج لي نفس الرسالة 

السؤال كيف الحصول على تلك المكتبات المفقودة وكيف يتم تسجيلها 

مع جزيل الشكر والتقدير لشخصكم الكريم استاذي الفاضل 

قام بنشر
في ٢٠‏/٩‏/٢٠١٩ at 12:38, حربي العنزي said:

استاذي الفاضل ابا جودي الله يبارك فيك ويحفظك يارب 

الظاهر كما تفضلت هناك مكتبات مفقودة لان تخرج لي نفس الرسالة 

السؤال كيف الحصول على تلك المكتبات المفقودة وكيف يتم تسجيلها 

مع جزيل الشكر والتقدير لشخصكم الكريم استاذي الفاضل 

اذهب الى محرر الاكواد
اختر القائمة   Tools  ثم  اختر  منها    References

كما بالصورة الاتية

000000.png.b9879f84ec41e3d1040cb3d6fb775219.png

لو كانت هناك مشكلة بالمكتبات ستجد كلمة   :Missing   بجوار اسم المكتبة مثل هذه الصورة على سبيل المثال


147415.jpg.6f83935c1fee9d053a28260167705fb3.jpg

  • Like 1
قام بنشر (معدل)
في ٢٠‏/٩‏/٢٠١٩ at 14:19, سلمان الشهراني said:

الله يسعدك يااستاذنا الغالي
جميل جداً وهذا المطلوب
الف شكر

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

تم تعديل بواسطه ابا جودى
  • Like 1
قام بنشر (معدل)
في ٢٠‏/٩‏/٢٠١٩ at 15:01, حربي العنزي said:

الله يبارك فيك ويحفظك استاذي الفاضل ابا جودي 

نعم هذا هو المطلوب جزاك الله خيرا اللهم ربي يمن عليك بالصحة والعافية والخير والبركات يارب 

الحمد لله انحلت المشكلة عندك :biggrin:

اللهم لك الحمد وجزاكم الله تعالى عنى كل خير نظير دعواتكم الطيبة واسأل الله تعالى ان يرزقكم مثلها واكثر اضاعفا مضاعفة يارب العالمين :fff:

تم تعديل بواسطه ابا جودى
  • Like 2

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information