سؤال فى وضع كلمة السر

بسم الله الرحمن الرحيم

الاخ الكريم / مازن مصطفى

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

ثم من قائمة ادوات اختار الامان ـــــــــــــــــــ ثم تعيين كلمة مرور قاعدة بيانات

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

تم الان تعيين كلمة مرور للقاعدة ككل

اما الاستعلامات فلا يتم وضع كلمة سر لفتحها ولكن ممكن بناء النماذج على Sql وبهذا لا تحتاج لعمل استعلامات

اما بالنسبة للنماذج فممكن وضع كلمة سر عليها بالطريقة التالية

من خصائصض النموذج اختار فى الاحداث عند الفتح واكتب هذا الكود

Private Sub Form_Open(Cancel As Integer)
Dim strInput As String
Dim strMsg As String
		Beep
		strMsg = "åá ÊÑíÏ ÝÊÍ ÇáäãæÐÌ ¿" & vbCrLf & vbLf & "ÃÏÎá ßáãÉ ÇáÓÑ"
		strInput = InputBox(Prompt:=strMsg, Title:="ÊßáãÉ ÇáãÑæÑ")
	If strInput = "1010" Then
		DoCmd.OpenForm "dd"

	Else
		DoCmd.Close
Exit Sub
End If
End Sub

dd.rar

بسم الله الرحمن الرحيم

أخى الكريم أبو عبدالله

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

ودعواتى لك بالتوفيق الدائم إن شاء الله

وجارى العمل بهذا الكود

بسم الله الرحمن الرحيم

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

كما أثقل عليك أيضاً حيث أننى أرغب فى عمل كود على زر حذف بمعنى توضيحى أكثر 000

لدى نموذج يوجد به نموذج فاتوة رئيسى وأخرى فرعى وزر أستعلام عن الفواتير الفرعية من خلال نموذج فرعى للأستعلام وأرغب بعدم السماح للمستخدم بحذف أى سجل من نموذج الأستعلام ولكنه يستطيع الحذف من داخل النموذج الرئييسى والموجود به النموذج الفرعى حيث يصبح الحذف من نموذج الأستعلام بكلمة سر 000 أو بمعنى آخر عندما نحذف فاتورة مرتجعة مثلاً لا يتم الحذف سوى برقم سرى .

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