عندما يعطي برنامج الاكسس اخطاء - النسخة رقم 2

[jjafferr]

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

 

عندما يكون برنامج الاكسس يعمل ، وفجأة بدأ بإعطاء رسائل خطأ وبدون اي تعديل في البرنامج ،

او عند عمل تعديل على البرنامج يُغلق الاكسس:

.

 

طريقة العمل:

سيفتح البرنامج ، ويجب عليك غلقه ، الى ان لا يفتح تلقائيا مرة اخرى.

 

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

 

اقدم لكم شرح بسيط عن الموضوع:

في الكثير من الاوقات ، لما نعمل الكود ، نقوم بتعديل وتغيير وتضبيط الكود عدة مرات ، ولكن الاكسس في بعض الاحيان يبقى محتفظ بالكود القديم في ذاكرته !!

لذلك :

1. اثناء البرمجة ، وبشكل يومي اقوم بتشغيل هذا الملف المرفق ،

2. وقبل تسليم البرنامج الى الزبون ، اقوم بتشغيل الملف للمرة الاخيرة ، واجهز البرنامج لتسليمه الى الزبون

 

وهذا هو الكود المعدل عن النسخة السابقة:

Private Sub cmd_Decompile_Click()

    Dim MSAccPath As String
    Dim RegKey  As String
    Dim WSHShell 'As Object
    Dim waitOnReturn As Boolean: waitOnReturn = True
    
    
    ' Get MSACCESS.exe directory from the Registry
    RegKey = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\" & _
             "CurrentVersion\App Paths\MSACCESS.EXE\Path"
    Set WSHShell = CreateObject("WScript.Shell")

    ' Get parent directory
    MSAccPath = WSHShell.RegRead(RegKey)

    ' Decompile
    WSHShell.Run Chr(34) & MSAccPath & "MSACCESS.EXE" & Chr(34) & " " & Chr(34) & Me.str_File_Single & Chr(34) & " /decompile", , waitOnReturn
    
    ' compact
    WSHShell.Run Chr(34) & MSAccPath & "MSACCESS.EXE" & Chr(34) & " " & Chr(34) & Me.str_File_Single & Chr(34) & " /compact", , waitOnReturn
    
    ' cmd compile
    WSHShell.Run Chr(34) & MSAccPath & "MSACCESS.EXE" & Chr(34) & " " & Chr(34) & Me.str_File_Single & Chr(34) & " /cmd compile", , waitOnReturn
    
    ' compact
    WSHShell.Run Chr(34) & MSAccPath & "MSACCESS.EXE" & Chr(34) & " " & Chr(34) & Me.str_File_Single & Chr(34) & " /compact", , waitOnReturn
    
    ' Clear shell var
    Set WSHShell = Nothing

End Sub

 

جعفر

Decompile_2.zip

[kaser906]

الله يعطيك العافية استاذ جعفر 

استخدمت النسخه الأولى وفادتني كثير في اصلاح العديد من الاخطاء

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

غدا سأجرب هذه النسخه 

[kaser906]

تمت التجربة ويعمل بشكل ممتاز

[jjafferr]

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

 

حياك الله 🙂

 

جعفر

[أواب]

السلام عليكم

أستاذنا الكبير جعفر

فعلا هذه المشكلة كثيرة الحدوث معي

ويضيع مني شغل كبير قمت به بسبب هذه الرسالة

حاولت استخدام المرفق تبعك

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

كيف استخدم المرفق ؟

[jjafferr]

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

 

عادة ما يحتاج تمسك مفتاح الشفت لتشغيل برنامجي ،

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

 

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

 

جعفر

[RAGABFAROUK]

اخي الفاضل ا. جعفر .. اشكر لك اهتمامك الكريم وجهدك الطيب 
ولكن تساؤلي .. تسلم العميل نسخته مغلقة ومحولة ACCDE
هل من حل توصلت اليه للوصول الي فتح البرنامج والوصول الي جداول البرنامج فقط 
ومرفق لك نسخة من البرنامج علك تحاول ويصادفك الناح ان شاء الله في فتحها للوصول الي الجداول 
https://top4top.io/downloadf-14757j4701-rar.html
وهذا ربابط لبرنامج حقيقي مضغوط ومساحته 4 ميجا 
تقبل احترامي

[أبو عبدالله الحلوانى]

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

وكذلك الاحتفاظ بالنسخة الأصل قبل الحفظ بصيغة الــ   ACCDE

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

وفي النهاية أسأل الله أن يجيرك في مصابك ويخلف عليك خيرا منه 

وأرجو أن يكون المرفق به شئ مما ترجو الحصول عليه 

فهذا كل ما استطعت انقاظه لك

 

DR_ELLABBAD_fixed.rar

تم تعديل يناير 16, 2020 بواسطه أبو عبدالله الحلوانى

[jjafferr]

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

 

النسخة الثالثة من البرنامج 🙂

 

 

 

جعفر