اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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

قام بنشر

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

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

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

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

  • 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...
قام بنشر
  في 3‏/9‏/2019 at 05: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

 

Expand  

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

او اي تنسيق

قام بنشر
  في 20‏/9‏/2019 at 01:40, سلمان الشهراني said:

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

او اي تنسيق

Expand  

اتغضل 

تم عمل الاتى

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

  اقتباس

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

Expand  

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

 

GetNetTime.mdbFetching info...

  • Like 3
قام بنشر

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

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

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

Untitled.png2.jpg

قام بنشر
  في 20‏/9‏/2019 at 07:49, حربي العنزي said:

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

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

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

Untitled.png2.jpg

Expand  

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

Tools->References

 

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

 

GetNetTime.mdbFetching info...

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

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

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

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

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

قام بنشر
  في 20‏/9‏/2019 at 10:38, حربي العنزي said:

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

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

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

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

Expand  

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

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

000000.png.b9879f84ec41e3d1040cb3d6fb775219.png

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


147415.jpg.6f83935c1fee9d053a28260167705fb3.jpg

  • Like 1
قام بنشر (معدل)
  في 20‏/9‏/2019 at 12:19, سلمان الشهراني said:

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

Expand  

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

تم تعديل بواسطه ابا جودى
  • Like 1
قام بنشر (معدل)
  في 20‏/9‏/2019 at 13:01, حربي العنزي said:

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

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

Expand  

الحمد لله انحلت المشكلة عندك :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