تعديل على مثال مرفق

السلام عليكم

استخدم أداة تكست ولتكن Text1 لإدخال كلمة المرور

ضع الكود التالي تحت مفتاح عمل كلمة مرور

On Error GoTo a:
Dim db As DatabaseSet
db = OpenDatabase("Access.mdb", True)
db.NewPassword "", Text1.Text
db.Close
MsgBox "Done"
Exit Sub
a:
MsgBox "تم عمل كلمة مرور من قبل"

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

من التطفل يعني حتى لا يستطيع احد فتح ملف الاكسس ارجو ان تكون الفكرة واضحة واسف لان اتعبتك معي

nash60 كتب:

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

من التطفل يعني حتى لا يستطيع احد فتح ملف الاكسس ارجو ان تكون الفكرة واضحة واسف لان اتعبتك معي

السلام عليكم

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