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

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

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

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

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

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

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

بالتوفيق

شكرا على الرد

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

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

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

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

اخي الفاضل

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

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

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

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

بالتوفيق

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

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

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

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

Option Compare Database
Option Explicit

Enum 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 = &H80000006
End Enum

Enum RegType
    REG_SZ = 1
    REG_BINARY = 3
    REG_DWORD = 4
End Enum

Public Const ERROR_SUCCESS = 0&
Public Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Public Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Public Declare Function RegDeleteKey Lib "advapi32.dll" Alias "RegDeleteKeyA" (ByVal hKey As Long, ByVal lpSubKey As String) As Long
Public Declare Function RegDeleteValue Lib "advapi32.dll" Alias "RegDeleteValueA" (ByVal hKey As Long, ByVal lpValueName As String) As Long
Public Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Public 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 Long
Public 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 Long
Public 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 Long

Public Function CreateRegKey(hKey As RegHive, strPath As String)
Dim hCurKey As Long
Dim lRegResult As Long
    lRegResult = RegCreateKey(hKey, strPath, hCurKey)
        If lRegResult <> ERROR_SUCCESS Then
            'there is a problem
        End If
    lRegResult = RegCloseKey(hCurKey)
End Function

Public Function SaveRegLong(ByVal hKey As RegHive, ByVal strPath As String, ByVal strValue As String, ByVal lData As Long)
Dim hCurKey As Long
Dim 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" Then
strValueM = 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" Then
strValueM = 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" Then
strValueM = 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" Then
strValueM = 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" Then
strValueU = SaveRegLong(HKEY_CURRENT_USER, "Software\Microsoft\Office\12.0\Access\Security", "VBAWarnings", 1)
End If

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

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

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

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

بالتوفيق

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

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

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

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