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

اخي الفاضل ابو انس

تستطيع عمل ذلك بكل سهوله فقط اتبع الطريقه

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

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

/index.php?showtopic=59598

اختكم

زهره

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

Function FixUpRefs()
    Dim loRef As Access.Reference
    Dim intCount As Integer
    Dim intX As Integer
    Dim blnBroke As Boolean
    Dim strPath As String

    On Error Resume Next

    'Count the number of references in the database
    intCount = Access.References.Count
  
    'Loop through each reference in the database
    'and determine if the reference is broken.
    'If it is broken, remove the Reference and add it back.
    Debug.Print "----------------- References found -----------------------"
    Debug.Print " reference count = "; intCount

    For intX = intCount To 1 Step -1
      Set loRef = Access.References(intX)
      With loRef
        Debug.Print " reference = "; .FullPath
        blnBroke = .IsBroken
        If blnBroke = True Or Err <> 0 Then
          strPath = .FullPath
          Debug.Print " ***** Err = "; Err; " and Broke = "; blnBroke
          With Access.References
            .Remove loRef
            Debug.Print "path name = "; strPath
            .AddFromFile strPath
          End With
        End If
       End With
    Next
     '''Access.References.AddFromFile "C:\Program Files\Common Files\Microsoft Shared\DAO\dao360.dll"
    
  Set loRef = Nothing
  
  ' Call a hidden SysCmd to automatically compile/save all modules.
  Call SysCmd(504, 16483)
End Function


Function AddRefs()
    Dim loRef As Access.Reference
    Dim intCount As Integer
    Dim intX As Integer
    Dim blnBroke As Boolean
    Dim strPath As String

    On Error Resume Next
  
    'Loop through each reference in the database
    'Add all references
    Debug.Print "----------------- Add References -----------------------"
    
          With Access.References
            .AddFromFile "C:\Program Files\Common Files\Microsoft Shared\DAO\dao360.dll"
            .AddFromFile "C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\vbe6.dll"
            .AddFromFile "C:\Program Files\Microsoft Office\Office\msacc9.olb"
            .AddFromFile "C:\Program Files\Common Files\System\ado\msado15.dll"
            .AddFromFile "C:\Program Files\Common Files\System\ado\msado25.tlb"
            .AddFromFile "C:\Program Files\Common Files\System\ado\msadox.dll"
            .AddFromFile "C:\WINNT\System32\stdole2.tlb"
            .AddFromFile "C:\WINNT\System32\scrrun.dll"
          End With
      
  ' Call a hidden SysCmd to automatically compile/save all modules.
  Call SysCmd(504, 16483)
End Function

رائع بمعنى الكلمة اخي biskra

فتح الله عليك ورزقك من حيث لا تحتسب

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

جزاك الله خيرا عن كلامك الطيب,

الحمد لله انا كنت ابحث ايضا على جزء من ه>ا الكود