ارتباط تحديث

[ابو عبد الله العراقي]

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

الأستاذة الافاضل الاخوة الأعزاء في منتدى اوفيسنا ،

يرجى الإفادة اذا كان عندي قاعدة بيانات مرتبطة مع SQL SERVER  بعدة جداول فأذا قمت بتعديل او إضافة حقل في الجدول الأصلي في SQL SERVER  يمكنني تحديث الجدول المرتبط في الاكسس عند طريقة كلك يمين على الجدول واختار ( ارتباط التحديث ) سوف يقوم بتحديث الجدول مباشرة .

السؤال هو كيف اعمل او احول ( ارتباط التحديث ) إلى كود في الاكسس اذا كان الجدول على شكل نموذج بحيث ان المستخدم فقط يقوم بالضغط على Button  فيه كود ( ارتباط التحديث )  لان المستخدم طبعاً لا يمكنه الدخول إلى وضع التصميم لقاعدة البيانات ، كذلك تحديث الجدول يتم عن طريق منشئ قاعدة البيانات في sql server  .

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

[Foksh]

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

من فكرة مقتبسة من موضوع آخر ، جرب هذه الفكرة . بحيث من خلال الزر Btn_RefreshLinks على سبيل المثال ، يقوم بمهمة تحديث الجداول بشكل تلقائي SQL Server .

Private Sub Btn_RefreshLinks_Click()
    Dim db As Database
    Dim tdf As TableDef
    Set db = CurrentDb
    For Each tdf In db.TableDefs
        If tdf.Connect <> "" Then
            On Error Resume Next
            ' محاولة تحديث الجدول المرتبط
            tdf.RefreshLink
            If Err.Number <> 0 Then
                MsgBox "حدث خطأ في تحديث الجدول : " & tdf.Name, vbExclamation
                Err.Clear
            End If
            On Error GoTo 0
        End If
    Next tdf
    MsgBox "تم تحديث جميع الجداول المرتبطة بنجاح", vbInformation
End Sub

لم أقم بتجربة الكود ، ولكن أخبرني بالنتيجة لعدم توافر قاعدة SQL Server لدي 🤗 .

[ابو عبد الله العراقي]

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

عاشت ايدك اخي الكريم ،ممتاز الكود شغال 

100%

حيث قمت بوضعه في حدث عند تحميل الفورم الرئيسي لقاعدة البيانات لكي يقوم بتحديث كافة الجداول اذا كان هناك تغيير من جداول 

sql server 

شكراً جزيلا على تواصلك وتعاونك معي 

 

تم تعديل فبراير 15 بواسطه ابو عبد الله العراقي

[Foksh]

7 ساعات مضت, ابو عبد الله العراقي said:

100%

 

هذا يسعدنا ، والحمد لله أولا وآخراً ,,

في حال انتهت المشكلة كما أخبرتنا ، لا تنسى ان تقوم بإغلاق الموضوع باختيار    .