نتقدم بالشكر الجزيل لشخصكم الكريم على كل ما تقدمونه من خدمات جليلة لأبناء الأمة العربية والإسلامية راجيا من الله أن يكون ما تعمليه في موازين حسناتك يارب .
برنامج إظهار وإخفاء الجداول برنامج جدا رائع ، ولكن من وجهة نظري المتواضعة لو يكون بكلمة سر يكون مفعوله أقوى ، بحيث عندما أريد أن أخفى جدول يطلب مني كلمة سر وعندما أريد أن أظهر الجدول لا يظهره الا اذا تم ادخال كلمة السر .
وشكرا جزيلا لكم
تم تعديل هذه المشاركة بواسطة abo_bader200200 في 13 مايو 2008 في 11:49
أرجو مساعدتي في طلبي بارك الله فيكم أجمعين .
abo_bader200200 كتب:أرجو مساعدتي في طلبي بارك الله فيكم أجمعين .
أخي الكريم / أبو بدر
تحية طيبة وبعد ،،،،،،،،،،
يبدو لي بأن الأخت زهرة مشغولة هذه الأيام ... ولكن لا بأس أتمنى لها الصحة والتوفيق وطبعاً بعد إذنها بالنسبة الى نموذج اخفاء الجداول وكلمة السر أقدم اليك هذه القاعدة وبها النموذج وعند فتحه سيطالبك بكلمة السر وهي هنا 1111
بالتوفيق والنجاح
[يمين]
إذا كـان تـرك الـدين يعــنــي تقــدمــاً
فـيا نفــس مـوتــي قبــل أن تتقـدمــي
[/يمين]
بارك الله فيك أخي االحبيب الأخت زهرة نزلت برنامج لإخفاء وإظهار الجداول جدا رائع ، بس من وجهة نظري المتواضعة لو يكون بكلمة سر أفضل يعني عندما أقوم بإخفاء الجداول يطلب مني كلمة سر وعندما أقوم بإظهارها يطلب مني كلمة سر أيضا .
شباب نرجو التفاعل مع الموضوع بارك الله فيكم
شباب أرجو المساعدة في عمل كلمة سر للبرنامج السابق ، وجزاكم الله خير
الأخ / ابو بدر المحترم،،
السلام عليكم ورحمة الله وبركاته ،،
بإمكانك استعارة نفس الكود الموجود في البرنامج المرفق من قبل أستاذنا العزيز / كمال النحال .. المحترم ،، لإدخال رقم سري قبل اخفاء أو اظهار الجدول.. كيف ؟!!
1- تقوم بفتح نموذج hide بوضع التصميم
2- تقوم بفتح الكود الخاص بإجراء حدث عند النقر( لزر أمر إظهار .... )
3- تقوم باضافة الكود باللون الأحمر في بداية السطر
============================
If InputBox("أدخل الكلمة السرية ", "كلمة سر مطلوبة") <> "1111" Then
MsgBox "يجب ادخال كلمة السر الصحيحة"
DoCmd.CancelEvent
Else
Set dbs = CurrentDb
For Each tdf In dbs.TableDefs
If Left(tdf.NAME, 4) <> "msys" And tdf.Attributes <> 1073741824 And tdf.Attributes = 1 Then
If tdf.NAME = [Forms]![hide]![aa2] Then tdf.Attributes = tdf.Attributes - dbHiddenObject
End If
Next tdf
Set dbs = Nothing
DoCmd.Requery "aa1"
DoCmd.Requery "aa2"
End If
End Sub
============================
4- طبعا لا تنسى تضيف end if في نهاية الكود كما هو موضح اعلاه ..
5- تقوم بنفس الخطوات السابقة لزر أمر إخفاء..
ملاحظة : هذا الكود موجود اصلا بالبرنامج
ومرفق ايضا التعديل
أخوك مشكاة
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…