Marwanco

اشكرك ياخوي على ذوقك واتمنى وضع الكود في مثال وفي حدث عند التحميل او اي حدث في نموذج ارجو الرد اصدار الاكسس 2016 ارجو الافادة عن اسم الجدول ياخوان لقيت الجواب في هذي الصفحة ارجوا المساعدة في تشغيل الكود https://social.msdn.microsoft.com/Forums/en-US/3915e6d4-c44a-463f-9500-6af2a5ed1925/sharepoint-link-disconnection-issue?forum=accessdev

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

اشكرك ياخوي هذا المطلوب جزاك الله الف خير

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

السلام عليكم ورحمة الله وبركاته اخواني الاعزاء امل مساعدتي في عمل كود يعرض حالة الانترنت في مربع نص بحثت بالانترنت ولم اجد سوى هذا الشرح بسم الله الرحمن الرحيم السلام عليكم ورحمه الله وبركاته كود فيجوال بيسك لتشغبل البرنامج لو الاتصال بالانترنت يعمل فقط كود فيجوال بيسك للتاكد من الاتصال بالانترنت كود بسيط بالفيجوال بيسك يسمح للبرنامج ان يعمل اذا كان الانترنت يعمل اما ان كان الانترنت لا يعمل فان البرننامج لن يعمل قم بانشاء موديل فى برنامجك من قائمه PROJECT اختار PROJECT PROPERTIES ومنها اجعل STARTUP الى SUB MAIN قم بنسخ هذا الكود فى الموديل Option Explicit Private Const FLAG_ICC_FORCE_CONNECTION As Long = &H1 Private Declare Function InternetCheckConnection Lib "wininet.dll" Alias "InternetCheckConnectionA" (ByVal lpszUrl As String, ByVal dwFlags As Long, ByVal dwReserved As Long) As Long Sub Main() If InternetCheckConnection("http://www.google.com/", FLAG_ICC_FORCE_CONNECTION, 0&) = 0 Then MsgBox "You need Internet connection to run this program!" Else Form1.Show End If End Sub ايضا وجدت كود ثاني وهو المطلوب لانه يعرض حالة الانترنت في مربع نص If My.Computer.Network.IsAvailable Then MsgBox("Computer is connected.") Else MsgBox("Computer is not connected.") End If ولكن للاسف لم استطيع تشغيله في قاعدة بيانات اكسس 2010 ارجوا مساعدتي وجزاكم الله خيرا

اشكرك ياخوي ولك دعوة بظهر الغيب اسعدتني الله يسعدك يارب تم تقيميك

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

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

اشكرك ياخوي ولكن لا تزال نفس المشكله شجرة الحسابات لا تظهر وتعطي نفس الخطأ

اتفضل ياخوي Accounts 2008.rar

السلام عليكم ورحمة الله وبركاته ارجوا منكم التكرم يا اخوان مساعدتي في تحويل قاعدة البيانات المرفقة الى تنسيق accdb حيث انني قمت بحفظها باسم ولكن تخرب علي اكواد الفجوال وماني عارف السبب بعد تحويلها تخرب شجرة الحسابات وبالتحديد عند هذا الكود Set rst = dbs.OpenRecordset("Accounts", dbOpenDynaset) ارجوكم يا اعزائي ساعدوني Accounts 2008.rar

والله انك ملك الله يجعلك من اهل الجنه ويجعل والديك فالجنه يامعلم يا ابن الرجال لك مني ان ادعوا لك في الحرم المكي الشريف في ظهر الغيب والله انك ملك الله يجعلك من اهل الجنه ويجعل والديك فالجنه يامعلم يا ابن الرجال لك مني ان ادعوا لك في الحرم المكي الشريف في ظهر الغيب

استاذ كرار المثال فيه نفس المشكله حيث انه عند الساعه ٩ مساء يظهر الخصم وعند الساعه ٥ فجرا يظهر الخصم للاسف لايفرق بين المساء والصباح

استاذ بحار يبدو انك لم تفهمني اريد ان يظهر مبلغ 30 في مربع نص الخصم عندما تكون الساعة من 9 صباحا وحتى 12 ظهرا ومن 5 عصرا وحتى الساعة 10 ليلا المثال اللي ارسلته لا يظهر شي

هذا المثال بارك الله فيكم الكود عند عداد الوقت المثال.rar