الغاء مفتاح الشفت وتفعيله

[AhmedEmam]

السادة الاعضاء 

السلام عليكم 

اريد برنامج لالغاء مفتاح الشفت بس يكون لامتداد(ACCDB)

لان اللى عندى بشترط يكون الامتداد فقط MDB

وشكرا

 

[محمد أبوعبدالله]

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

في كود استعراض وفتح قاعدة البيانات  اضف الامتداد للفلتر

strFilter = ahtAddFilterItem(strFilter, "Access files (*.accdb, *.mdb)", "*.accde;*.mde")

او يمكنك عند استعراض قاعدة البيانات كتابة *.* لعرض جميع الملفات في المجلد

تحياتي

[AhmedEmam]

محمد أبوعبدالله

ألف ألف شكر 

[abouelhassan]

في ٦‏/١‏/٢٠٢١ at 08:13, محمد أبوعبدالله said:

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

في كود استعراض وفتح قاعدة البيانات  اضف الامتداد للفلتر

strFilter = ahtAddFilterItem(strFilter, "Access files (*.accdb, *.mdb)", "*.accde;*.mde")

او يمكنك عند استعراض قاعدة البيانات كتابة *.* لعرض جميع الملفات في المجلد

تحياتي

ممكن مثال استاذنا عند فتح قاعدة البيانات يتفعل الغاء الشيفت

بارك الله فيك

[محمد أبوعبدالله]

تفضل اخي الكريم

هذا برنامج يشمل mdb و accdb

مع امكانية تعطيل الشيفت لقاعدة بيانات بها باسوورد

En-Dis.rar

تحياتي

[abouelhassan]

22 ساعات مضت, محمد أبوعبدالله said:

تفضل اخي الكريم

هذا برنامج يشمل mdb و accdb

مع امكانية تعطيل الشيفت لقاعدة بيانات بها باسوورد

En-Dis.rar 23.84 kB · 13 downloads

تحياتي

بارك الله فيك استاذى الكريم ربنا يحفظك اخى فى الله

بس انا كنت محتاج مثال لكود اضيفه فى فورم البدأ فيغلق الشيفت فى نفس البرنامج

ربنا يحفظك يارب

شكر من القلب

[محمد أبوعبدالله]

2 ساعات مضت, abouelhassan said:

بس انا كنت محتاج مثال لكود اضيفه فى فورم البدأ فيغلق الشيفت فى نفس البرنامج

ضع الكود التالي في وحدة نمطية جديدة

Function ChangeProperty(strPropName As String, varPropType As Variant, varPropValue As Variant, dbs As Object) As Integer

 Dim prp As Property
 Const conPropNotFoundError = 3270
 
     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

وفي حدث عند الفتح للنموذج ضع الكود التالي

ChangeProperty "AllowBypassKey", dbBoolean, False

تحياتي

[abouelhassan]

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

وزادك من فضله

اللهم امين يارب ان نفذت ما تفضلت وقلته ولكن الكود يتوقف

بارك الله فيك اخى الفاضل

احترامى

Lock shift.accdb

[محمد أبوعبدالله]

تفضل اخي الكريم

Function ChangeProperty(strPropName As String, varPropType As Variant, varPropValue As Variant) As Integer
    Dim dbs As Object
    Dim 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

Lock shift.rar

تحياتي

[abouelhassan]

بارك الله فيك استاذى 

محمد أبوعبدالله

تسلم ايدك اخى الحبيب ربنا يراضيك اللهم امين يارب

اشكر من قلبى اخى

احترامى

[محمد أبوعبدالله]

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

تحياتي