عملت قاعدة بيانات وبها عدة نماذج منها نموذج ادخال البيانات الذي اريد ان احميه بادخال كلمة سر معينة شاكرا للجميع سلفا مساعدتي .
كيف اجعل نموذج يفتح بواسطة كلمة سر
مغلق
السلام عليكم ورحمه الله وبركاته ،،،
واهلا وسهلا بك في قسم الاكسيس ...
تفضل بالكود التالي عند ضغط الزر تضعه ،
كود :
With CodeContextObject
pwd:
x = InputBox("ادخل كلمة المرور")
If x = 1 Then
'هنا كلمه السر رقم (1)
MsgBox "كلمه السر صحيحه "
DoCmd.OpenForm "a"
' هنا تدخل النموذج او اي شي'
Else: MsgBox "كلمة السر غيرصحيحة "
' GoTo pwd
'الكود الذي في الاعلى من هنا هو للتكرار
End If
End Withمع تحياتي ،،،
عبدالمانع
إنما الأمم الأخلاق ما بقيت ××× فإن هم ذهبت أخلاقهم ذهبوا ...
الف شكر اخي عبدالمانع سوف اجرب الكود وان شاء الله ينجح
تحياتي لكم جميعا
استاذى عبدالمانع.. اعذرني
With CodeContextObject
اين مكان هذا الامر في الحدث
السلام عليكم ورحمة الله وبركاته ،،،
أخي / jaffjaff
هل هل تقصد اين توضع ؟
أم شي آخر !!!
مع تحياتي ،،،
عبدالمانع
إنما الأمم الأخلاق ما بقيت ××× فإن هم ذهبت أخلاقهم ذهبوا ...
ايه ايت توضع
ياليت تسوي مثال جاهز
اشكر اخي عبدالمانع ،الكود نجح عند وضعه في خاصية عند النقر في الزر الخاص بفتح النموذج لكن المشكلة اخي عبدالمانع ان هناك ماكرو موجود في هذه الخاصية وهذا الماكروعبارة عن اغلاق للنموذج الرئيسي ويفتح النموذج الاخر(نموذج ادخال البيانات ) والسؤال عموما كيف ادمج بين الكود والماكرو وأضعهما في خاصية واحدة
هذا الموضوع مغلق.