هام في الأكسس

أخي الكريم حتى لا يزعل مشرفنا أرجو البحث في الأرشيف أو عن طريق إمكانية البحث الموجود بالموقع

إبحث عن طلبك وستجد الجواب الشافي و السريع وعلى العموم هذا رابط لما طلبت أرجو لك التوفيق و الشكر أولا لله ثم للأعضاء الناشطين بالموقع

والرابط

http://arabteam.nicmatic.com/vb/showthread...E1%E3%C9+%D3%D1

ضع زر أمر على النموذج .. ثم ضع هذا الكود في حدث ( عند النقر ) للزر

==================

On Error Resume Next

If InputBox("أدخل الكلمة السرية : لفتح النموذج ", "كلمة سر مطلوبة") <> "123" Then

DoCmd.CancelEvent

Else

DoCmd.OpenForm "اسم النموذج المراد فتحه بهذا الزر"

End If

=====================

كلمة السر هنا هي "123"

بإمكانك تغييرها إلى حروف أو أي شيئ

وتقبل تحياتي(f) (f)

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

أخ سعودي نشكرك علي المثال

و اوصي بالغاء السطر الاول

لأن معناه تجاهل أي اخطاء قد تحدث اثناء تنفيذ الكود

و اوصي ايضاباضافة رسالة فى حالة كلمة السر الخطأ

If InputBox("أدخل الكلمة السرية : لفتح النموذج ", "كلمة سر مطلوبة") <> "123" Then
DoCmd.CancelEvent
Else
MsgBox "كلمة سر غي رصحيحة", 64, "كلمة سر خاطئة"
DoCmd.OpenForm "FORM2"
End If

أما فى حالة الرغبة فى تتبع الاخطاء

فنستبدل

On Error Resume Next

ب

On Error GO TO ERRSUB

و نضع فى آخر الكود علامة

ERRSUB:

ليذهب اليها تتابع التنفيذ عند و جود خطأ

حتي لا يقف البرنامج

ثم نظهر رسالة بنوع الخطأ

On Error GoTo errsub

If InputBox("أدخل الكلمة السرية : لفتح النموذج ", "كلمة سر مطلوبة") <> "123" Then
DoCmd.CancelEvent
Else
MsgBox "كلمة سر غي رصحيحة", 64, "كلمة سر خاطئة"
DoCmd.OpenForm "FORM2"
End If

errsub:
 MsgBox Str(Err.Number) + Err.Description
    Resume Next