طلب تعديل كود للسماح للتعديل على تحرير النموذج

[abujood10]

Option Compare Database

Public Function SetProperties(PropName As String, PropType As Variant, PropValue As Variant) As Integer
On Error GoTo Err_SetProperties
   Dim db As Database, prop As Property
   Set db = CurrentDb
   db.Properties(PropName) = PropValue
   SetProperties = True
   Set db = Nothing
Exit_SetProperties:
Exit Function
Err_SetProperties:
   If Err = 3270 Then
       Set prop = db.CreateProperty(PropName, PropType, PropValue)
       db.Properties.Append prop
       Resume Next
   Else
       SetProperties = False
       MsgBox "Runtime Error # " & Err.Number & vbCrLf & vbLf & Err.Description
       Resume Exit_SetProperties
   End If
End Function

Public Function DisableProperties()
On Error GoTo TheError
DoCmd.ShowToolbar "Ribbon", acToolbarNo
 
SetProperties "StartUpShowDBWindow", dbBoolean, False
SetProperties "StartUpShowStatusBar", dbBoolean, False
SetProperties "AllowFullMenus", dbBoolean, False
SetProperties "AllowSpecialKeys", dbBoolean, False
SetProperties "AllowBypassKey", dbBoolean, False
SetProperties "AllowShortcutMenus", dbBoolean, False
SetProperties "AllowToolbarChanges", dbBoolean, False
SetProperties "AllowBreakIntoCode", dbBoolean, False
Exit Function
TheError:
MsgBox Err.Description
Exit Function
End Function

[Eng.Qassim]

اذا لم يكن لديك دالة تمكين الخواص ..فحسب اعتقادي لن تستطيع عمل شيء..فالخواص الرئيسية لديك غير ممكنة

وخاصة هذا السطر SetProperties "AllowBypassKey", dbBoolean, False المسؤول عن زر الشفت

Public Function EnableProperties()
On Error GoTo ErrorHandler:
DoCmd.ShowToolbar "Ribbon", acToolbarYes

SetProperties "StartUpShowDBWindow", dbBoolean, True
SetProperties "StartUpShowStatusBar", dbBoolean, True
SetProperties "AllowFullMenus", dbBoolean, True
SetProperties "AllowSpecialKeys", dbBoolean, True
SetProperties "AllowBypassKey", dbBoolean, True
SetProperties "AllowShortcutMenus", dbBoolean, True
SetProperties "AllowToolbarChanges", dbBoolean, True
SetProperties "AllowBreakIntoCode", dbBoolean, True
Exit Function
ErrorHandler:
MsgBox Err.Description
Exit Function
End Function

 

[abujood10]

شكرا جزيلا أخي على سرعة الرد 

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

قاعدة بيانات.rar

[Eng.Qassim]

ماذا تقصد بالتعديل؟ القاعدة مفتوحة

وضعت لك دالة التمكين

DBalWakyl.rar

[abujood10]

دالة التمكين لزر shift صح ؟ ومن ثم لفتح تصميم النموذج 

لكن بدالة التمكين مافتح الشفت ولا يمكن التعديل 

كيف أتعامل معها الحين ؟

اسمح لي لكثرة الاستفسارات ولكن للاستفادة من علمكم جزاكم الله خيرا 

[Eng.Qassim]

اضغط على زر تمكين ..ثم اغلق النموذج وافتحه مرة ثانية

[abujood10]

عملت هذا الشي ولكن تطلع لي تمكين مرة ثانية ولا يمكن التعديل ولما أغلق التمكين يطلعني من القاعدة 

[Eng.Qassim]

عزيزي ابو جود..صدقني لم افهمك ..

حينما تضغط تمكين اغلق القاعدة وافتحها ثانية ثم كلك يمين على النموذج ليأخ الى وضع لتصميم لاني عملت Modal=yes

واذا تريد ان لايغلق البرنامج عند غلق النموذج فأوقف سطرdocmd.Quit

[abujood10]

ألف شكر فهمت عليك الحين

جعله الله في ميزان أعمالك 🌹