محمد عبد الله ٢ قام بنشر سبتمبر 2, 2019 مشاركة قام بنشر سبتمبر 2, 2019 السلام عليكم و رحمة الله و بركاته الملف المرفق عبارة عن حماية من التلاعب بتاريخ البرنامج و ذلك عن طريق مراقبة التاريخ و الوقت الموجود في الحاسوب .. دمتم بخير تحياتي لكم منع التلاعب في التاريخ.mdb 4 1 رابط هذا التعليق شارك More sharing options...
صالح حمادي قام بنشر سبتمبر 2, 2019 مشاركة قام بنشر سبتمبر 2, 2019 شكرا 1 رابط هذا التعليق شارك More sharing options...
محمد عبد الله ٢ قام بنشر سبتمبر 2, 2019 الكاتب مشاركة قام بنشر سبتمبر 2, 2019 لا شكر على واجب استاذي الكريم @صالح حمادي 1 رابط هذا التعليق شارك More sharing options...
الحلبي قام بنشر سبتمبر 2, 2019 مشاركة قام بنشر سبتمبر 2, 2019 ممكن شرح فكرة البرنامج رابط هذا التعليق شارك More sharing options...
د.كاف يار قام بنشر سبتمبر 3, 2019 مشاركة قام بنشر سبتمبر 3, 2019 (معدل) هذا كود جلب الوقت من الانترنت " توقيت جرينتش " 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 تم تعديل سبتمبر 3, 2019 بواسطه د.كاف يار 6 رابط هذا التعليق شارك More sharing options...
Ali Mohamed Ali قام بنشر سبتمبر 3, 2019 مشاركة قام بنشر سبتمبر 3, 2019 بارك الله فيكم جميعا وزادكم الله من فضله 3 رابط هذا التعليق شارك More sharing options...
محمد عبد الله ٢ قام بنشر سبتمبر 3, 2019 الكاتب مشاركة قام بنشر سبتمبر 3, 2019 @د.كاف يار كل الاحترام و التقدير لحضرتك استاذي العزيز اسعدتني بالمشاركة في هذا الموضوع رابط هذا التعليق شارك More sharing options...
سلمان الشهراني قام بنشر سبتمبر 20, 2019 مشاركة قام بنشر سبتمبر 20, 2019 في ٣/٩/٢٠١٩ 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 او اي تنسيق رابط هذا التعليق شارك More sharing options...
ابو جودي قام بنشر سبتمبر 20, 2019 مشاركة قام بنشر سبتمبر 20, 2019 في ٢٠/٩/٢٠١٩ at 03:40, سلمان الشهراني said: جميل جدا بس وش لون اغير التنسيق ليصبح مثلا تاريخ فقط YYYY/MM/DD او اي تنسيق اتغضل تم عمل الاتى وضع الكود داخل موديول لسهولة استدعاءه فى زوايا البرنامج المختلفة ( نماذج - استعلامات - تقارير ) التعديل على الكود لعرض التاريخ فقط بالتنسيق الذى طلبته ظهور الرسالة الاتية عند عدم وجود الانترنت اقتباس ا يوجد اتصال بشبكة الانترنت تم إحضار الوقت الحالى من الحاسوب ويتم احضار الوقت بنفس التنسيق المطلوب من الحاسوب GetNetTime.mdb 3 رابط هذا التعليق شارك More sharing options...
حربي العنزي قام بنشر سبتمبر 20, 2019 مشاركة قام بنشر سبتمبر 20, 2019 استاذي الفاضل ابا جودي السلام عليكم ورحمة الله وبركاته عند تشغيل البرنامج تظهر لي هذه الرسالة كما في الصورة المرفقة هل يمكن حلها اكون ممنون منك يا طيب وجزاك الله خيرا رابط هذا التعليق شارك More sharing options...
ابو جودي قام بنشر سبتمبر 20, 2019 مشاركة قام بنشر سبتمبر 20, 2019 في ٢٠/٩/٢٠١٩ at 09:49, حربي العنزي said: استاذي الفاضل ابا جودي السلام عليكم ورحمة الله وبركاته عند تشغيل البرنامج تظهر لي هذه الرسالة كما في الصورة المرفقة هل يمكن حلها اكون ممنون منك يا طيب وجزاك الله خيرا هل هناك مكتبات مفقودة . راجع محرر الاكواد Tools->References وعلى كل جرب المرفق الاتى GetNetTime.mdb 2 1 رابط هذا التعليق شارك More sharing options...
حربي العنزي قام بنشر سبتمبر 20, 2019 مشاركة قام بنشر سبتمبر 20, 2019 استاذي الفاضل ابا جودي الله يبارك فيك ويحفظك يارب الظاهر كما تفضلت هناك مكتبات مفقودة لان تخرج لي نفس الرسالة السؤال : كيف الحصول على تلك المكتبات المفقودة وكيف يتم تسجيلها مع جزيل الشكر والتقدير لشخصكم الكريم استاذي الفاضل رابط هذا التعليق شارك More sharing options...
ابو جودي قام بنشر سبتمبر 20, 2019 مشاركة قام بنشر سبتمبر 20, 2019 في ٢٠/٩/٢٠١٩ at 12:38, حربي العنزي said: استاذي الفاضل ابا جودي الله يبارك فيك ويحفظك يارب الظاهر كما تفضلت هناك مكتبات مفقودة لان تخرج لي نفس الرسالة السؤال : كيف الحصول على تلك المكتبات المفقودة وكيف يتم تسجيلها مع جزيل الشكر والتقدير لشخصكم الكريم استاذي الفاضل اذهب الى محرر الاكواد اختر القائمة Tools ثم اختر منها References كما بالصورة الاتية لو كانت هناك مشكلة بالمكتبات ستجد كلمة :Missing بجوار اسم المكتبة مثل هذه الصورة على سبيل المثال 1 رابط هذا التعليق شارك More sharing options...
سلمان الشهراني قام بنشر سبتمبر 20, 2019 مشاركة قام بنشر سبتمبر 20, 2019 الله يسعدك يااستاذنا الغالي جميل جداً وهذا المطلوب الف شكر 1 1 رابط هذا التعليق شارك More sharing options...
ابو جودي قام بنشر سبتمبر 20, 2019 مشاركة قام بنشر سبتمبر 20, 2019 (معدل) في ٢٠/٩/٢٠١٩ at 14:19, سلمان الشهراني said: الله يسعدك يااستاذنا الغالي جميل جداً وهذا المطلوب الف شكر سبحانك لا علم لنا الا ما علمتنا الحمد لله تعالى الذى تتم بنعمته الصالحات الحمد لله تعالى الذى هدانا وما كنا لنهتدى لاولا ان هدانا الله عزوجل جزاكم الله خيرا على دعواتكم الطيبة وانا اقل طالب اهى الحبيب ويسعج قلبى كلما احسست ان الله تعالى جعلنى سبب فى سعادة غيرى اللهم لك الحمد تم تعديل سبتمبر 20, 2019 بواسطه ابا جودى 1 رابط هذا التعليق شارك More sharing options...
حربي العنزي قام بنشر سبتمبر 20, 2019 مشاركة قام بنشر سبتمبر 20, 2019 الله يبارك فيك ويحفظك استاذي الفاضل ابا جودي نعم هذا هو المطلوب جزاك الله خيرا اللهم ربي يمن عليك بالصحة والعافية والخير والبركات يارب 1 رابط هذا التعليق شارك More sharing options...
ابو جودي قام بنشر سبتمبر 20, 2019 مشاركة قام بنشر سبتمبر 20, 2019 (معدل) في ٢٠/٩/٢٠١٩ at 15:01, حربي العنزي said: الله يبارك فيك ويحفظك استاذي الفاضل ابا جودي نعم هذا هو المطلوب جزاك الله خيرا اللهم ربي يمن عليك بالصحة والعافية والخير والبركات يارب الحمد لله انحلت المشكلة عندك اللهم لك الحمد وجزاكم الله تعالى عنى كل خير نظير دعواتكم الطيبة واسأل الله تعالى ان يرزقكم مثلها واكثر اضاعفا مضاعفة يارب العالمين تم تعديل سبتمبر 20, 2019 بواسطه ابا جودى 2 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان