التحكم بمفتاح SHIFT

[بركان]

السلام عليكم

اريد أسأل كيف اقدر اتحكم بمفتاح Shift

بحيث اذا ضغطت مفتاح Shift يطلب باسوورد و اذا صحيحة يشغل مفتاح Shift

فتقدر تشوف تصميم قاعدة البيانات

اما اذا غلط يغلق البرنامج كامل

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

انه اذا شغل مفتاح Shift مرة ، خلاص على طول راح يكون شغال

و يقدر اي احد انه يشوف القاعدة من داخل

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

يعني على كل مرة تضغط Shift علشان تشوف تصميم القاعدة وكل شي فيها لازم تكتب الباسوورد

[anamo]

أخي بركان, في المثال الذي وجدته لأحد الأخوة هو كافي, فقط ضع هذا الكود التالي في حدث Load للنموذج الرئيسي .. (الذي يظهر عند تشغيل البرنامج)

ChangeProperty "AllowBypassKey", 1, False

تم تعديل يناير 7, 2008 بواسطه anamo

[anamo]

أخي بركان , لقد نسيت وضع الكود كاملاً

تفضل مرة أخرى ..

Private Sub Form_Load()
ChangeProperty "AllowBypassKey", 1, False
End Sub

Public Function ChangeProperty(strPropName As String, varPropType As Variant, varPropValue As Variant)
Dim dbs As Database, prp As Property
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
Set prp = dbs.CreateProperty(strPropName, varPropType, varPropValue)
dbs.Properties.Append prp
Resume Next
Else
ChangeProperty = False
Resume Change_Bye
End If
End Function