تمارين عمليه لمحبي الاكسيس

استطعت الوصول وتورطت عند الضغط على زر أضغط هنا .....!!!!!!!!!!!

شكرا ،،،

مشرفتنا / زهره

والطريقة رائعة وصلت الى المرحلة الاخيرة وصار الذي صار ...

الملفات المفتوحة راحت ،،، خصارة ...

الله يعطيك العافية ،،،

مع خالص التحيات ،،،

عبدالمانع

Private Sub WinExit_Click()
Call ShutDownWindows
End Sub

هذا الأمر يستدعي الوحدة النمطية التي تقوم بغلق الوندوز و هي:

Function ShutDownWindows()
   'This will quit all applications and shut down Windows.
   Dim x As Long
   x = ExitWindowsEx(0, 0)
   Application.Quit acExit
End Function

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

Private Sub Form_Current()
'ßæÏ ÇÎÝÇÁ ÔÇÔÉ ÇáÇßÓíÓ ÈæÇÓØÉ ÇáæÍÏÉ ÇáäãØíÉ
HideAccess
DoCmd.Maximize
End Sub

توصلت الى المشكلة التي تتمثل في هذا الأمر المرتنبط بزر اضعط هنا الذي يؤدي الى اغلاق الويندوز

اذا سمحت صاحبة الموضوع لكي أضع الملف بعد السيطرة عليه سوف أرفعه, و أترك الفرصة للاٍخوة للمحاولة.

يعطيكم العافية يا عباقره ولكن لازال هناك كود مخفي خاص بإلغاء عمل الشفت وعليه باسوورد حاولوا اظهاره اذا استطعتم من النموذج الاول

سؤال لكل من وصل للمرحلة الاخيره : هل عرفتم الارقام السريه ذات النجوم

هذا هو الكود

Private Sub bDisableBypassKey_Click()
On Error GoTo Err_bDisableBypassKey_Click
'ÊÃßíÏ ÇáÑÞã ÇáÓÑí ááÏÎæá Úáì ÇáÈÑäÇãÌ
Dim strInput As String
Dim strMsg As String
Beep
strMsg = "åá ÊÑíÏ Êãßíä ãÝÊÇÍ ÇáÔÝÊ ¿" & vbCrLf & vbLf & _
"ÇáÑÌÇÁ ÇÏÎÇá ÇáÑÞã ÇáÓÑí áÊãßíä ãÝÊÇÍ ÇáÔÝÊ"
strInput = InputBox(Prompt:=strMsg, title:="ÇÎÝÇÁ ãÝÊÇÍ ÇáÔÝÊ Úä ØÑíÞ ÇáÑÞã ÇáÓÑí")
If strInput = "ZaHrAh2005" Then
SetProperties "AllowBypassKey", dbBoolean, True
Beep
MsgBox "ãÝÊÇÍ ÇáÔÝÊ ÇáÇä Êã Êãßíäå ááÚãá" & vbCrLf & vbLf & _
"ÚäÏ ÏÎæáß Ýí ÇáãÑÉ ÇáÞÇÏãÉ ÓæÝ ÊÊãßä ãä ÇáÏÎæá ÈæÇÓØÉ ãÝÊÇÍ ÇáÔÝÊ", _
vbInformation, "Set Startup Properties"
Else
Beep
SetProperties "AllowBypassKey", dbBoolean, False
MsgBox "ÇáÑÞã ÇáÓÑí áãÝÊÇÍ ÇáÔÝÊ ÎÇØÆ" & vbCrLf & vbLf & _
"ÓíÊã ÇáÛÇÁ ãÝÊÇÍ ÇáÔÝÊ" & vbCrLf & vbLf & _
"Êã ÇáÛÇÁ ãÝÊÇÍ ÇáÔÝÊ áÚÏã ÕáÇÍíÉ ÇáÑÞã ÇáÓÑí", _
vbCritical, "ÇáÑÞã ÇáÓÑí ÎÇØÆ"
Exit Sub
End If
Exit_bDisableBypassKey_Click:
Exit Sub

طبعا اعتمدت على النسخ و الكتابة الخاصة بالشرح للكود تلخبطت بسبب طريقة النسخ و اللصق

و هذه الارقام السرية

1 زهره = harhaz

2 biskra = arksib

3 عبدالمانع = tripxe

4 Fahad = dahaf

خاص بإلغاء عمل الشفت

HideAccess

DoCmd.Maximize

اجابة موفقه لجميع المشاركين

الان ننتقل الى التمرين الثاني وشرح الاكواد موجوده على اجراءات الحدث في النماذج حاول الوصول الى نموذج النتيجه

بالتوفيق لكم جميعا ومن سيصل اولا سوف يضحك كثيرا ;) ;) ;)

ملاحظه : تم تعديل الملف المرفق بهذا الجديد تستطيع التحميل الان وتم حذف المشاركات التي تسأل عن الملف المعطوب

التمرين الثاني للخيراء.rar

اختكم

زهره

مشكورة ،،،

ويعطيك العافية ، مشاركة قيمة ،،، ذكرتنا بالثانوية ...

مع خالص التحيات ،،،

عبدالمانع

قاعدة البيانات للتمرين الثاني فارقه !!!!!!!!!!

اخي الكريم pino

هذا السؤال تردد في المره السابقه

اقتباس

قاعدة البيانات للتمرين الثاني فارقه

لم افهم معناها هل تقصد ان قاعدة البيانات فـــــــــارغـــــــــــه من البيانات ام تقصد شيء اخر .

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

يقصد فارغة

العفو فارغه ..

القاعده تعمل بشكل سليم لما افتح القاعده يظهر تفضل بالدخول ... و بالضغط علي الشفت لمعاينة قاعدة البيانات اجدها فارغه

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

السلام عليكم ورحمة الله وبركاته ...

لقد وصلت إلى المطلوب ،،،

كلمة السر هي : ZaHrAh2005

اقتباس

بالتوفيق لكم جميعا ومن سيصل اولا سوف يضحك كثيرا

أضحك الله سنك أخت زهرة

اقتباس

القاعده تعمل بشكل سليم لما افتح القاعده يظهر تفضل بالدخول ... و بالضغط علي الشفت لمعاينة قاعدة البيانات اجدها فارغه

أخي العزيز :: pino :: قاعدة البيانات ليست فارغة حاول البحث عن محتوياتها ، وإذا استطعت الوصول إليها سوف تجد جدولاً واحدًا باسم QUIZE وثلاثة نماذج : First و QZ و RS

وأتمنى لكم التوفيق ...

التمرين الثاني للخبراء

( وانا لست من الخبراء )

اول ما افتح قاعدة البيانات تظهر رسالة تقول ( مشروع visual Basic للتطبيقات في قاعدة البيانات معطوب)

وعند استعمال الشفت تظهر الرسالة

واخر شئ لا يوجد ( جداول ولا نماذج )

للرفع اعترفا بفضل الاخت زهرة على المنتدى لحين معرفة اخبارها

alfdany كتب:

التمرين الثاني للخبراء

( وانا لست من الخبراء )

اول ما افتح قاعدة البيانات تظهر رسالة تقول ( مشروع visual Basic للتطبيقات في قاعدة البيانات معطوب)

وعند استعمال الشفت تظهر الرسالة

واخر شئ لا يوجد ( جداول ولا نماذج )

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

ZaHrAh2005

لفتح قاعدة البيانات وهناك حكاية ظريفة . :blink:

مبروووووووك عليكم شهر رمضان المبارك أعاده الله علينا وعليكم ان شاء الله

بصراحه استاذتنا زهرة الموضوع في غايه الجمال و الروعه ويبث روح الحماس للإجابه قبل الجميع ههههه

موضوع غني بالفوائد المعلوماتية ......

بصراحه مواضيكِ كلها مفيدة وإن شاء الله يستفيد منها الأعضاء.

وتستاهلين عليه اكثر من (شكر)

بالنسبه التمرين الثاني بصرااااااحه حلووووووووووو هههههههههههههههههههههههههههههههههه

ههههههههههههههه

...

نترقب التمرين الثالث باحر من الجمر...

...

عندي اقتراح يا أم عهود

ليش قسم الأكسس ما يسوي مسابقة بوضع مشرووووع ...؟؟؟

يعني تشكلون لجنه و اطلبوا من الأعضاء وضع مشروع معين تطلبه اللجنه مثلا ( مشروع لمكتب أجار سيارات أو مشروع لشؤون الموظفين )

تحطون شروط معينه ... مده معيه للإنتهاء من هذا المشروع

وبعد الإنتهاء من المشاريع تقوم اللجنه بوضع تقييمات للمشاريع..

اخي الفاضل مجهول

السلام عليكم ورحمة الله وبركاته

وكل عام وانتم بخير

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

بالتوفيق

وعليكم السلام ورحمه الله وبركاته

ممممممم

بكون موضوع مميز لو سوينا هذه المسابقة ........

==========

غريبه ما سويتي لنا تمرين .... وانا كل حين ادخل ابغي اشوف التمرين اليديد ههه

===

تسلمين يا استاذتنا وبتوفيق ان شاء الله

mjhoool كتب:

غريبه ما سويتي لنا تمرين .... وانا كل حين ادخل ابغي اشوف التمرين اليديد ههه

هذا الموضوع قديم اي منذ حوالي 3 سنوات May 4 2005, 05:45 PM ولكن احد الأعضاء في المنتدى قام برفع الموضوع

ولكن لا يوجد اي مانع في وضع تمارين واختبارات على ملفات برنامج الأكسيس لغرض الفائدة والتعلم .

اشكرك استاذه زهراء على التمارين ...... ونريد تمارين جديده بها فكره سحريه لم يسمع بها احد حتى نستفيد اقصى الاستفاده ...

وكلما زاده صعوبه التمارين كلما البروسوسور الي في المخ راح يحمى ويشتغل اسرع ... :blink: :D (هههه)

اشكرك جزيل الشكر ... ... ومنكم نستفيد

الاخوة الاعضاء السلام عليكم ورحمة الله وبركاته

وكل عام وانتم بخير

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

حى تعم الفائدة للجميع

ولكم جزيل الشكر