السلام عليكم ..
كيف لي أن أجعل قاعدة البيانات التي قمت بتصميمها باستخدام الآكسس 2000 الى قاعدة تنفيذية فقط .. بحيث اذا نقر أحدهم على الملف أو حاول فتحه يقوم بتشخيل الأكسس بشكل مصغر ويقوم بتنفيذ البرنامج دون امكانية فتحد الجداول أو التقارير أو ...
للأهميو مع الشكر
وعليكم السلام ورحمة الله وبركاته
اخي الكريم
لايمكن ان تحول قاعدة البيانات الى برنامج تنفيذي ولكن يمكن ان تحمي الملفات بحيث ان لا يعبث بها ويجب ان تعرف انه يمكن استيرادها الى قاعدة بيانات خرى ومعرفة الجداول والاستعلامات فقط اما الباقي فيمكن المحافظة عليها بتحويلها الى mde فقط
اذا كنت تريد حماية المعلومات في الجداول داخل قاعدة البيانات فقط فيوجد كود يلغي استخدام الشفت
ولك تحياتي
من سار على الدرب وصل
بسم الله
شكراً يا أخي على ردك واهتمامك ..
ان سبب سؤالي هو أن أحد الأصدقاء قام ببناء قاعدة بيانات وحدث جدل فيما بيننا أنه لا يمكنني تغيير الفورم والتقارير وغيرها .. وكنت أظن أنه بإمكاني ذلك ، ولكني لم استطع .. وكما ذكرت أنت فقدً استطعت استيراد الجداول والاستعلامات أما الفورم والتقارير فلم استطع !!
هل هتالك أية طريقة لتغير الفورم والتقارير ؟؟؟
الرجاء المساعد .. مع الشكر
الأخ مفرج اذا كان من الممكن كتابة الكود الخاص بالغاء الشفت تعم الفائدة على الجميع و لك جزيل الشكر
اما حماية البيانات فاعتقد انها غير ممكنه حيث انه يمكن ان يربطها من قاعدة بيانات أخرى ويعدل فيها الا اذا كانت المعلومات ثابته ولاتتغير وتكو الجداول للقراءة فقط
اما كود الغاء الشفت ويمكن تشغيله من الماكرو autoexec فهو الاتي:
Public Function Applnit()
If CurrentUser = "AAAAA" Then
changeproperty "AllowBypassKey", dbBoolean, True
Else
changeproperty "AllowBypassKey", dbBoolean, False
End If
End Function
Public Function changeproperty(strPropName As String, varPropType As Variant, varPropValue As Variant)
Dim dbs As Database, prp As Property
Const conPropNotFoundError = 3270
Set dbs = CurrentDb
On Error GoTo Change_err
dbs.Properties(strPropName) = varPropValue
changeproperty = True
Change_Bye:
Exit Function
Change_err:
If Err = conPropNotFoundError Then
Set prp = dbs.CreateProperty(strPropName, varPropType, varPropValue)
dbs.Properties.Append prp
Resume Next
Else
changeproperty = False
Resume Change_Bye
End If
End Function
من سار على الدرب وصل
بعد تحويلها لملف MDE حاليا لا .
ولك تحياتي
الأخ مفرج
ليتك توضح كيف يجعل الجداول للقراءة فقط هل كل القاعدة أم الجدول لوحدها .
ولك تحياتي
يمكن الجداول فقط عن طريق ادوات - امان ثم اذونات المستخدمين
وفي نفس القاعدة اي يمكن استيرادها وتعديل فيها في قاعدة جديد ولكن ليس في القاعدة الحالية
وبالمناسبة جربت ان اضع الجداول في قاعدة منفصلة ولها كلمت سر خاصة بحيث لاتعرف الا عن طريق البرنامج ووجدة انه من السهل ربطها عن طريق قاعدة البيانات نفسها واخيرا اقتنعت انه لايمكن حماية جداول من النسخ
ولكم تحياتي
من سار على الدرب وصل
أشكرك على توضيحك زجزاك الله خير .
ولك تحياتي
الأخ مفرج
أين أضع الكود الخاص بتعطيل عمل الشفت عند تشغيل أي قاعدة بيانات
أخفاء الجداول بالكود :
http://www.arabteam2000.com/vb/showthread....%C7%CE%DD%C7%C1
أخواني رواد وخبراء هذا المنتدى العزيز على نفسي
السلام عليكم ورحمة الله وبركاته وبعد
سؤالي هنا ابن اضع كود الغاء الشفت في اي مكان وشكرا للجميع
هذا الموضوع مغلق.
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…