بسم الله الرحمن الرحيم
جرب هذا الكود اخي
وخبرني بالنتائج
للعلم امر0 يعني تعمل زر بهذا الاسم عند نقر هذا الزر سوف يخفي شريط المعلومات
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
Private Sub أمر0_Click()
ChangeProperty "AllowFullMenus", DB_BOOLEAN, True
End Sub
والله الموفق
شكرا اخي على ردك وجزاك الله خيرا -ولكن تضهر لي هذة العبارة run-time eroor 13 وعند ما اضغط debug يضهر هذا السطر باللون الاصفر
Set prp = dbs.CreateProperty(strPropName, varPropType, varPropValue):(
هذا الموضوع مغلق.