مساعدة في عمل باسورد للاكسس

[ازهر عبد العزيز]

السلام عليكم

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

[ابو جودي]

نعم يوجد 😉

[ابو جودي]

اتفضل يا سيدى الفانك ده يحقق كل رغباتك

اولا تستدعى القانك بأسمة من اى مكان وفى اى حدث على حسب هواك بالسطر التالى 

Call MkDbByPassword

وتغير فى الفانك بس على التوالى 

المسار  , اسم القاعدة الجديدة التى تريد انشاءها . كلمة المرور التى تريدها فى المتغيرات

    strDbPath                >>>---->>     المسار
    strNewDbName      >>>---->>     اسم قاعدة البيانات الجديدة ولا تنسى الامتداد
    strPassNewDb        >>>---->>      كلمة المرور التى تريد تشفير القاعدة بها

 

Public Function MkDbByPassword()
    Dim wrkDefault      As Workspace
    Dim dbsNew          As DAO.Database
    Dim strDbPath       As String
    Dim strNewDbName    As String
    Dim strPassNewDb    As String
    
    strDbPath = CurrentProject.Path & "\"
    strNewDbName = "NewDB.mdb"
    strPassNewDb = "00"
    
    Set wrkDefault = DBEngine.Workspaces(0)

    If Dir(strDbPath & strNewDbName) <> "" Then Kill strDbPath & strNewDbName
    Set dbsNew = wrkDefault.CreateDatabase(strDbPath & strNewDbName, dbLangGeneral & ";PWD=" & strPassNewDb)
End Function

 

[ابو جودي]

اهاهاهاهاهاهاها

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

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

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

[ازهر عبد العزيز]

الاستاذ @ابو جودي شكرا جزبلا للمرورك

وشكرا على هذا الكود الابداعي

 

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

[ابو جودي]

في 10‏/3‏/2022 at 14:02, ازهر عبد العزيز said:

الاستاذ @ابو جودي شكرا جزبلا للمرورك

وشكرا على هذا الكود الابداعي

 

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

ممكن توضيح اكثر انا مش فاهم 

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

[Moosak]

أتوقع أن الحل الذي تريده أخي أزهر موجود هنا :

https://www.engram9.info/access-2007-vba/using-ado-to-set-the-database-password.html

[ازهر عبد العزيز]

3 ساعات مضت, ابو جودي said:

ممكن توضيح اكثر انا مش فاهم 

في القاعدة البيانات في المرفقات في النموذج frmpassworddb يوجد زر  احتاج عند الضغط علة هذا الزر يتم انشاء باسورد لقاعدة البيانات الحالية يمعنى يعد ضغط الزر و عند اغلاق النموذج frmpassworddb واغلاق قاعدة البيانات وبعد فتحها مرة اخرى يتم المطالبة بالباسورد 

passworddb.accdb

تم تعديل مارس 13, 2022 بواسطه ازهر عبد العزيز