التقرير الشبح

[HUSSIN]

 

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

 

التقرير الشبح هو تقرير خفي في قاعدة البيانات يظهر في إطار VBA ويختفي في إطار قاعدة البيانات، مستنسخ من أحد التقارير الأصلية في القاعدة.

 

حاولت حذفه بكل الطرق دون جدوى !!!  

 

فهل من طريقة أو حل لحذفه .  

 

اسم التقرير :     ~TMPCLP284581 

 

 

 

 

 

 

 

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

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

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

او

انشىء قاعدة بيانات جديدة ثم استورد اليها جميع الكائنات

تحياتي

[HUSSIN]

 

لك ودي  أخي محمد أبو عبدالله🌹

للأسف تم تجربة كل ما سبق دون فائدة

الظاهر اني ابحث لي عن راقي لطرد الأرواح 🧟‍♂️ والتقارير الشريرة🧞‍♂️ عن القاعدة .. أو لعلها تصفد في الشهر القادم الكريم 😀

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

1 دقيقه مضت, HUSSIN said:

للأسف تم تجربة كل ما سبق دون فائدة

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

تحياتي

[HUSSIN]

 

أخي محمد ..  راجع الرسائل الخاصة

[jjafferr]

14 ساعات مضت, HUSSIN said:

الظاهر اني ابحث لي عن راقي لطرد الأرواح 🧟‍♂️ والتقارير الشريرة🧞‍♂️ عن القاعدة .. أو لعلها تصفد في الشهر القادم الكريم 😀

الظاهر في حد جاب طاريي 😁

 

بخبرك بالطريقة الاسهل (الطريقة الاصعب يحتاج لها بخور ، فنخليها لوقت الحاجة 🙂 )

اعمل تقرير جديد بنفس الاسم TMPCLP284581ّ~  ، وبعد ان تحفظه ، ينحذف تلقائيا ، بس قبل شهر رمضان المبارك 🙂

 

جعفر

[HUSSIN]

 

 

يا أهلا وسهلاً بالاستاذ جعفر والله نور الموضوع 👍

 

وبخصوص الشبح راح ارسل لك من أثرة على الخاص 😉

 

 

[jjafferr]

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

 

حل مثل هذه الامور :

1. ضغط واصلاح لقاعدة البيانات (مثل ما اشار اخوي ابوعبدالله) ،

2. انشىء قاعدة بيانات جديدة ثم استورد اليها جميع الكائنات (مثل ما اشار اخوي ابوعبدالله) ،

3. اعمل تقرير جديد بنفس الاسم TMPCLP284581ّ~  (واذا كانت المشكلة في نموذج ، فاعمل نموذج بنفس الاسم) ، وبعد ان تحفظه ، ينحذف تلقائيا ،

4. استعمل هذا الكود لحذف جميع انواع هذه الكائنات :

وهناك موضوع كامل عن كائنات اخرى كذلك قد تكون عالقة في البرنامج : 

How to remove 'deleted database objects' from the MSysObjects table | Access World Forums (access-programmers.co.uk)

Function Delete_TMPCLP_Objects()

    'Delete the ~TMPCLP objects
    
    Dim rst As DAO.Recordset
    Dim mySQL As String
    
    mySQL = "SELECT Name, Type FROM MSysObjects "
    mySQL = mySQL & " WHERE Name Like '~TMPCLP*'"

    
    Set rst = CurrentDb.OpenRecordset(mySQL)

    Do Until rst.EOF
        Select Case rst("Type")
            Case 1, 4, 6    'Tables
                DoCmd.DeleteObject acTable, rst("Name")
            Case 5          'Queries
                DoCmd.DeleteObject acQuery, rst("Name")
            Case -32768     'Forms
                DoCmd.DeleteObject acForm, rst("Name")
            Case -32764     'Reports
                DoCmd.DeleteObject acReport, rst("Name")
            Case -32766     'Macros
                DoCmd.DeleteObject acMacro, rst("Name")
            Case -32761     'Modules
                DoCmd.DeleteObject acModule, rst("Name")
        
            Case Else
                Debug.Print rst("Type"), rst("Name")
        End Select

        rst.MoveNext
    Loop

    rst.Close: Set rst = Nothing
    
End Function

.

جعفر

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

الحمد لله تم الحل بطريقتين

3 ساعات مضت, jjafferr said:

. انشىء قاعدة بيانات جديدة ثم استورد اليها جميع الكائنات

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

بانتظار تجربة ورد اخونا HUSSIN

 

تحياتي

[HUSSIN]

 

السلام عليكم

أسعد الله صباحكم بما يسركم

 

أخي محمد أبو عبدالله 🌺...

جزاك الله خيراً على الاهتمام والمتابعة منذ بداية طرحي للموضوع وحتى نهايتة زادك الله من علمة ونفع بك.

 

أخي الكريم المبرمج المبدع جعفر 🌺 ...

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