حجم البرنامج كبير جدا

[husseinharby]

السلام عليكم

عندي مشكلة عند مشاركة البرنامج على الشبكة المحلية عن طريق تقسيم قاعدة البيانات 

تحدث مشكلة ان البرنامج مساحته تزيد بشكل كبير لتصل الي 2 جيجا واكثر 

ويحدث تلف للبرنامج 

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

[محمد أبوعبدالله]

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

هل جربت عمل ضغط واصلاح لقاعدة البيانات

تحياتي

[husseinharby]

الضغط والاصلاح يحل المشكلة بالفعل لكن المشكلة ترجع مرة اخري 

المشكلة في الاستعلامات 

 

[د.كاف يار]

ضع ازرار لضغط و اصلاح قاعدة البيانات

و ضع فيه الكود التالي

    Dim vbscrPath As String
    vbscrPath = CurrentProject.Path & "\CRHelper.vbs"
    If Dir(CurrentProject.Path & "\CRHelper.vbs") <> "" Then
        Kill CurrentProject.Path & "\CRHelper.vbs"
    End If
    Dim vbStr As String
    vbStr = "dbName = """ & CurrentProject.FullName & """" & vbCrLf & _
    "resumeFunction = ""ResumeBatch""" & vbCrLf & _
    "Set app = CreateObject(""Access.Application"")" & vbCrLf & _
    "Set dbe = app.DBEngine" & vbCrLf & _
    "Set objFSO = CreateObject(""Scripting.FileSystemObject"")" & vbCrLf & _
    "On Error Resume Next" & vbCrLf & _
    "Do" & vbCrLf & _
    "If Err.Number <> 0 Then Err.Clear" & vbCrLf & _
    "WScript.Sleep 500" & vbCrLf & _
    "dbe.CompactDatabase dbName, dbName & ""_1""" & vbCrLf & _
    "errCount = errCount + 1" & vbCrLf & _
    "Loop While err.Number <> 0 And errCount < 100" & vbCrLf & _
    "If errCount < 100 Then" & vbCrLf & _
    "objFSO.DeleteFile dbName" & vbCrLf & _
    "objFSO.MoveFile dbName & ""_1"", dbName" & vbCrLf & _
    "app.OpenCurrentDatabase dbName" & vbCrLf & _
    "app.UserControl = True" & vbCrLf & _
    "app.Run resumeFunction" & vbCrLf & _
    "End If" & vbCrLf & _
    "objFSO.DeleteFile Wscript.ScriptFullName" & vbCrLf
    Dim fileHandle As Long
    fileHandle = FreeFile
    Open vbscrPath For Output As #fileHandle
    Print #fileHandle, vbStr
    Close #fileHandle
    Dim wsh As Object
    Set wsh = CreateObject("WScript.Shell")
    wsh.Run """" & vbscrPath & """"
    Set wsh = Nothing
    Application.Quit

 

[jjafferr]

في ٢٩‏/١٠‏/٢٠٢١ at 21:08, husseinharby said:

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

السلام عليكم 🙂

هذه المعلومة غير صحيحة ، ولا دخل لها بزيادة حجم البرنامج !!

 

رجاء اعطاءنا معلومات اكثر عن بيئة العمل:

في ٢٩‏/١٠‏/٢٠٢١ at 21:08, husseinharby said:

عند مشاركة البرنامج على الشبكة المحلية عن طريق تقسيم قاعدة البيانات

1. هل المشكلة في الواجهة او في الجداول ؟

2. هل الواجهة موجودة على كمبيوترات المستخدمين ؟

3. هل لديك جداول مؤقته ؟

 

وحسب ملاحظتك بأن الاستعلامات هي السبب ، هل هناك استعلام بالذات ؟

 

جعفر

[husseinharby]

السلام عليكم استاذ جعفر

ليس لدي جداول مؤقتة

لكنى لاحظت ظهور هذه المشكلة عند مشاركة البرنامج بين جهازين

[jjafferr]

طيب والاجابة عن السؤال الاول والثاني ؟

[husseinharby]

عذرا استاذ جعفر ماذا تقصد بالواجهة

 

[jjafferr]

اذا وضعت البرنامج على الشبكة حتى يستخدمه اكثر من مستخدم ، فيجب تفكيك البرنامج الى:

1. اعمل نسختين من البرنامج:

• نسخة تضعها في مجلد المشاركة ، وستكون للجداول ،
• نسخة على كمبيوتر كل مستخدم ، وستكون للواجهة.

 

2. الجداول: افتح البرنامج ، واحذف جميع الكائنات ، ماعدا الجداول ، احفظ البرنامج ، ثم ضغط واصلاح ،

3. الواجهة: ولا تكون في مجلد المشاركة ، وانما على كمبيوتر كل مستخدم ،

والواجهة عبارة عن جميع كائنات الاكسس ماعدا الجداول ،

وتربط الجداول بالواجهة ، ثم تجعل نسخة منها على كمبيوتر كل مستخدم ، احفظ البرنامج ، ثم ضغط واصلاح.

 

جعفر

 

تم تعديل نوفمبر 1, 2021 بواسطه jjafferr
تم اضافة: احفظ البرنامج ، ثم ضغط واصلاح ، في آخر سطر

[ahmed_2040]

كلام جميل كلام معقول مش فاهم حاجه منه 

ممكن مثال فعلي ان امكن صديقنا جعفر

[jjafferr]

انا اعطيتك التفاصيل ، خطوة بخطوة ،

جربها على نسخة من برنامجك ، واذا صادفتك مشكلة ، اخبرنا عنخا ، وان شاء الله تجد الجواب في المنتدى 🙂

 

جعفر