الغاء مفتاح الshift

السلام عليكم أخى العزيز,

مرفق شرح لكيفية تعطيل مفتاح الشيفت عند البداية, وهذا للأمانة منقول من منتدى أجنبي. والوصلة التالية للوصول للصفحة الأساسية منه:

وصلة الصفحة الأصلية

1- قم بعمل module جديد والصق به الكود التالي:

'---------------------------------------------------------------------'
' Module: DisableShiftKey											 '
' Date: July 18, 2003												 '
'																	 '
' Purpose: To stop the user from holding the shift key on startup to  '
'		  access the database window.								'
'---------------------------------------------------------------------'

Option Compare Database
Option Explicit
'----------------------------------------------------------------------

Function ChangeProperty(strPropName As String, varPropType As Variant, varPropValue As Variant) As Integer
   Dim dbs As Object, prp As Variant
   Const conPropNotFoundError = 3270

   Set dbs = CurrentDb
   On Error GoTo Change_Err
   dbs.Properties(strPropName) = varPropValue
   ChangeProperty = True

Change_Bye:
   Exit Function

Change_Err:
   If Err = conPropNotFoundError Then	' Property not found.
	   Set prp = dbs.CreateProperty(strPropName, _
		   varPropType, varPropValue)
	   dbs.Properties.Append prp
	   Resume Next
   Else
	   ' Unknown error.
	   ChangeProperty = False
	   Resume Change_Bye
   End If
End Function
'----------------------------------------------------------------------

Function BypassKey(onoff As Boolean)
   Const DB_Boolean As Long = 1
   ChangeProperty "AllowBypassKey", DB_Boolean, onoff
End Function
'-----------------------------------------------------------------------

2- قم بحفظ ال module باى اسم تريده.

3- قم بعمل macro جديد على أن يكون له :

الاسم : ByPassKeyOff

الفعل: Runcode

الوظيفة : BypassKey(False)

4- قم بعمل macro أخر على أن يكون له :

الاسم : ByPassKeyOn

الفعل: Runcode

الوظيفة : BypassKey(True)

5- قم بعمل مستطيل مثلا فى نموذج بداية التشغيل, على أن يكون له نفس لون النموذج (حتى يكون مختفى عند بداية التشغيل) وقم بإختيار ByPassKeyOn من حدث OnClick للمستطيل (عن طريق السهم المنزلق بجانبه).

6- قم بتشغيل الماكرو ByPassKeyOff .

7- قم بحفظ قاعدة البيانات, واغلق قاعدة البيانات.

8- عند بداية التشغيل لن يستطيع أحد فتح قاعدة البيانات بإستخدام مفتاح الشيفت.

9- لإرجاع مفتاح الشيفت للعمل مرة أخرى قم بالنقر بالماوس على المكان الذى قمت بوضع المستطيل فيه.

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

جزاك الله خيرا يا اخ ميدو

انا كنت خلاص فقدت الامل في الرد

مشكووور

السلام عليكم أخى العزيز,

فى خدمتك.

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

شكرا على هذا الكود ، ولكني لا أحبذ استخدامه ،

فمهما تكن محترفا في البرمجة ، ضع في بالك بأن هناك من هو أكثر منك أحترافا وخبرة،

دائما اعطي الفرصة لغيرك لتطوير برنامجك ، فقد تتغير أو تتجدد إحتياجات المستخدم ،

وعند قفلك للبرنامج فأن برنامجك معرض للزوال واستبداله ببرنامج آخر أكثر تلبية لإحتياجات المستخدم

ولكن لو تركته مفتوحا ، يمكن المستخدم أن يستخدم برنامجك لأطول مدة ممكنة وقد تتجاوز العشر سنوات

والفضل كله عائد لك عندما أعطيت الفرصة للمستخدم بإدخال التطويرات على برنامجك

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

حتى ولو كان التطوير من الناحية الشكلية فقط ، فبرنامجك يبقى .

شكراً

الف شكر لك