عطل في اوامر تكوين اي شىء في شاشة قاعدة البيانات

[كاروان 8]

السلام عليكم

بعد ما نفذت امر تخفيض حماية الاكسيس اوتومامتيكيا

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

كما في الصورة المرفقة

 

[zahrah 4,313]

اخي الفاضل : كاروان

 

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

 

موضوع تخفيض أمان الأكسيس ليس له اي علاقة لا من قريب ولا من بعيد بهذا الموضوع

 

لأن تخفيض امان الأكسيس لا يتدخل في كائنات قاعدة البيانات بل وظيفته هي الذهاب الى موقع برنامج الأكسيس في الرجستري الخاص بنظام الويندوز ويقوم بتغيير رقمين فقط من 1 الى صفر

 

اما موضوعك هذا الذي تتحدث عنه فقد يكون انك قمت بعملية تخفيض امان الأكسيس ثم قمت بفتح قاعدة البيانات اكسيس 2003 على اصدارة احدث مثل 2007 او 2010 او 2013

 

او قد يكون هناك سبب ما لم تذكره في شرحك ومشاركتك ولهذا نريد مزيد من الشرح عن الخطوات التي قمت بها حتى نستطيع مساعدتك

 

 

بالتوفيق

[كاروان 8]

شكرا على الرد

لايوجد لدي اكسيس الا 2003 و قد كونت قاعدة جديدة و عملت عليها وظهر عندي نفس المشكلة

و لا ادري ماذا عملت غير ذلك

الا بعض المرات احمل امثلة من الانترنيت و افتحها على حاسبتي

 

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

[zahrah 4,313]

اخي الفاضل

 

قبل البدء بأي عمل اتبع الخطوات التالية واخبرنا بالنتيجة

 

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

 

 

 

 

 

 

 

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

 

وقم بإنشاء قاعدة جديده واستخدم معالجات الجداول والنماذج والتقارير والاستعلامات

 

 

بالتوفيق

[كاروان 8]

لم ينجح الامر معي

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

البارحة قد استعلمت الكود ادنا لتخفيض حماية الاكسيس

يمكن ان يكون منه لانه هنالك العديد من تغير الريجستريى و لا اعرف كلها

Option Compare DatabaseOption ExplicitEnum RegHive    HKEY_CLASSES_ROOT = &H80000000    HK_CR = &H80000000    HKEY_CURRENT_USER = &H80000001    HK_CU = &H80000001    HKEY_LOCAL_MACHINE = &H80000002    HK_LM = &H80000002    HKEY_USERS = &H80000003    HK_US = &H80000003    HKEY_CURRENT_CONFIG = &H80000005    HK_CC = &H80000005    HKEY_DYN_DATA = &H80000006    HK_DD = &H80000006End EnumEnum RegType    REG_SZ = 1    REG_BINARY = 3    REG_DWORD = 4End EnumPublic Const ERROR_SUCCESS = 0&Public Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As LongPublic Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As LongPublic Declare Function RegDeleteKey Lib "advapi32.dll" Alias "RegDeleteKeyA" (ByVal hKey As Long, ByVal lpSubKey As String) As LongPublic Declare Function RegDeleteValue Lib "advapi32.dll" Alias "RegDeleteValueA" (ByVal hKey As Long, ByVal lpValueName As String) As LongPublic Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As LongPublic Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As LongPublic Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As LongPublic Declare Function RegEnumKey Lib "advapi32.dll" Alias "RegEnumKeyA" (ByVal hKey As Long, ByVal dwIndex As Long, ByVal lpName As String, ByVal cbName As Long) As LongPublic Function CreateRegKey(hKey As RegHive, strPath As String)Dim hCurKey As LongDim lRegResult As Long    lRegResult = RegCreateKey(hKey, strPath, hCurKey)        If lRegResult <> ERROR_SUCCESS Then            'there is a problem        End If    lRegResult = RegCloseKey(hCurKey)End FunctionPublic Function SaveRegLong(ByVal hKey As RegHive, ByVal strPath As String, ByVal strValue As String, ByVal lData As Long)Dim hCurKey As LongDim lRegResult As Long    lRegResult = RegCreateKey(hKey, strPath, hCurKey)    lRegResult = RegSetValueEx(hCurKey, strValue, 0&, REG_DWORD, lData, 4)    If lRegResult <> ERROR_SUCCESS Then    End If    lRegResult = RegCloseKey(hCurKey)End Function

If Version = "8.0" ThenstrValueM = SaveRegLong(HKEY_LOCAL_MACHINE, "Software\Microsoft\Office\8.0\Access\Security", "Level", 1)strValueU = SaveRegLong(HKEY_CURRENT_USER, "Software\Microsoft\Office\8.0\Access\Security", "Level", 1)ElseIf Version = "9.0" ThenstrValueM = SaveRegLong(HKEY_LOCAL_MACHINE, "Software\Microsoft\Office\9.0\Access\Security", "Level", 1)strValueU = SaveRegLong(HKEY_CURRENT_USER, "Software\Microsoft\Office\9.0\Access\Security", "Level", 1)ElseIf Version = "10.0" ThenstrValueM = SaveRegLong(HKEY_LOCAL_MACHINE, "Software\Microsoft\Office\10.0\Access\Security", "Level", 1)strValueU = SaveRegLong(HKEY_CURRENT_USER, "Software\Microsoft\Office\10.0\Access\Security", "Level", 1)ElseIf Version = "11.0" ThenstrValueM = SaveRegLong(HKEY_LOCAL_MACHINE, "Software\Microsoft\Office\11.0\Access\Security", "Level", 1)strValueU = SaveRegLong(HKEY_CURRENT_USER, "Software\Microsoft\Office\11.0\Access\Security", "Level", 1)ElseIf Version = "12.0" ThenstrValueU = SaveRegLong(HKEY_CURRENT_USER, "Software\Microsoft\Office\12.0\Access\Security", "VBAWarnings", 1)End If

وللعلم عندي ويندوس 8

تم تعديل 22 Feb 2014 بواسطه كاروان

[zahrah 4,313]

اخي الفاضل : كاروان

 

حاول القيام بعمل استعادة النظام الى نقطه ترى فيها ان الجهاز كان يعمل معك بشكل صحيح فبل حدوث المشكله

 

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

 

 

بالتوفيق

[كاروان 8]

اشكرك اختي الفاضلة

بعد ما جربت كل شىء و الريستور بوينت لم يشتغل عندي

لذلك نصبت الويندوس من جديد

 

و اشكرك على المجوابة