abujood10

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

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

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

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

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