طلب كود اعادة اتصال بكافة جداول شير بوينت

[Marwanco]

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

 

اخواني الاعزاء لدي قاعدة بيانات متصلة بجداول في قوائم الشيربوينت

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

 

المطلوب

 

كود في زر او في اي حدث يعمل على اعادة ربط كافة الجداول مع حفظ التغيرات او افلات التغيرات

 

امل مساعدتي ولكم جزيل الشكر والتقدير

 

سوف ادفع لمن يساعدني عن طريق باي بال وشكرا

 

 

 

 

 

[AlwaZeeR]

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

بداية المساعدة هنا مجانية لوجه الله تعالى

الا اذا كان احد يريد ثمن ماديا فهذا شأنه

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

وان شاء الله يكون بداية الوصول لما تصبو إليه

هذا هو الكود

Function RefreshSharePointLinks()
Dim dbs As Database
Set dbs = CurrentDb()
For Each tbl In dbs.TableDefs
If (Mid(tbl.Name, 1, 1) <> "~") And ((tbl.Attributes And dbAttachedTable) = dbAttachedTable) Then
'اسم جدول معلومات المستخدم يتغير حسب اصدار الاكسس المستخدم في عملية الشيربوينت
If tbl.Name <> "UserInfo" Then
DoCmd.SelectObject acTable, tbl.Name, True
DoCmd.OpenTable tbl.Name
DoCmd.Close acTable, tbl.Name
End If
End If
Next
End Function

 

[Marwanco]

  في 27‏/1‏/2018 at 11:54, alwazeer said:

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

بداية المساعدة هنا مجانية لوجه الله تعالى

الا اذا كان احد يريد ثمن ماديا فهذا شأنه

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

وان شاء الله يكون بداية الوصول لما تصبو إليه

هذا هو الكود

Function RefreshSharePointLinks()
Dim dbs As Database
Set dbs = CurrentDb()
For Each tbl In dbs.TableDefs
If (Mid(tbl.Name, 1, 1) <> "~") And ((tbl.Attributes And dbAttachedTable) = dbAttachedTable) Then
'اسم جدول معلومات المستخدم يتغير حسب اصدار الاكسس المستخدم في عملية الشيربوينت
If tbl.Name <> "UserInfo" Then
DoCmd.SelectObject acTable, tbl.Name, True
DoCmd.OpenTable tbl.Name
DoCmd.Close acTable, tbl.Name
End If
End If
Next
End Function

 

Expand  

اشكرك ياخوي على ذوقك واتمنى وضع الكود في مثال وفي حدث عند التحميل او اي حدث في نموذج

 

ارجو الرد

اصدار الاكسس 2016 ارجو الافادة عن اسم الجدول

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

https://social.msdn.microsoft.com/Forums/en-US/3915e6d4-c44a-463f-9500-6af2a5ed1925/sharepoint-link-disconnection-issue?forum=accessdev