برنامج تفعيل والغاء زر الشفت

[.Azhar]

اقدم لكم برنامج من خلاله تستطيعون تفعيل او الغاء الشفت لبرامجكم .

Shift.rar

[أبو عبد لله الحلوانى]

لم أفتح البرنامج بعد ولكن هو برنامج متميز من عضو مميز شكرا على البرنامج استاذنا ازهر

[.Azhar]

شكرا لك استاذ ابو عبدالله على هذا الاطراء الرائع .

[عبدالرحمن هاشم]

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

[goodfas]

ممتاز الله يعطيك العافية

[.Azhar]

شكرا لك اخي goodfas وتقبل الله صالح دعائكم .

انا هنا لخدمتكم ان شاء الله بقدر استطاعتي .

[ابو الآء]

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

ننتظر المزيد لنتعلم 

--------------------

هل يوجد برنامج لعمل صلاحيات المستخدمين ويكون شغال على اوفيس 2007

اسعد الله اوقاتك بكل الخير

[جمال ناصر]

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

[أ / محمد صالح]

جزاك الله خيرا أخي .Azhar

ولإثراء الموضوع

لإلغاء زر الشيفت في قاعدة البيانات

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

للنموذج الذي تفتح عليه قاعدة البيانات

 

SetProperties "AllowBypassKey", dbBoolean, 0

وفقنا الله وإياكم لكل خير

تم تعديل مايو 10, 2015 بواسطه أ / محمد صالح

[ابوخليل]

 

جزاك الله خيرا أخي .Azhar

ولإثراء الموضوع

لإلغاء زر الشيفت في قاعدة البيانات

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

للنموذج الذي تفتح عليه قاعدة البيانات

 

SetProperties "AllowBypassKey", dbBoolean, 0

وفقنا الله وإياكم لكل خير

 

شكرا استاذ محمد بكذا حتى لوفتح الشفت من الخارج  كلما فتح البرنامج يرجع القفل

ولكن انت نسيت ترفق الــ SetProperties : Function   ؟ 

[yms12]

جزاك الله خيرا اخونا ازهر

[أ / محمد صالح]

 

 

جزاك الله خيرا أخي .Azhar

ولإثراء الموضوع

لإلغاء زر الشيفت في قاعدة البيانات

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

للنموذج الذي تفتح عليه قاعدة البيانات

 

SetProperties "AllowBypassKey", dbBoolean, 0

وفقنا الله وإياكم لكل خير

 

شكرا استاذ محمد بكذا حتى لوفتح الشفت من الخارج  كلما فتح البرنامج يرجع القفل

ولكن انت نسيت ترفق الــ SetProperties : Function   ؟ 

 

شكرا لمرورك أخي الكريم أبو خليل

يبدو أنني نسيت فعلا تضمين كود دالة setproperties

هذا هو

Public Function SetProperties(strPropName As String, _
varPropType As Variant, varPropValue As Variant) As Integer

    On Error GoTo Err_SetProperties

    Dim DB As DAO.Database, prp As DAO.Property

    Set DB = CurrentDb
    DB.Properties(strPropName) = varPropValue
    SetProperties = True
    Set DB = Nothing

Exit_SetProperties:
    Exit Function

Err_SetProperties:
    If Err = 3270 Then    'Property not found
        Set prp = DB.CreateProperty(strPropName, varPropType, varPropValue)
        DB.Properties.Append prp
        Resume Next
    Else
        SetProperties = False
        MsgBox "SetProperties", Err.Number, Err.Description
        Resume Exit_SetProperties
    End If
End Function

[Elsayed Bn Gemy]

هل من الافضل بالنسبة لموضوع الشفت

ان اقوم بتحزيم قاعدة البيانات ؟؟

[تعليموه]

جزاك الله خيرا أخي .Azhar

[kosrat_jaaf]

On 10/16/2014 at 8:32 AM, أبو عبد لله الحلوانى said:

لم أفتح البرنامج بعد ولكن هو برنامج متميز من عضو مميز شكرا على البرنامج استاذنا ازهر

 

1 minute ago, kosrat_jaaf said:

Travel Company-shah

On 5/9/2015 at 3:16 PM, جمال ناصر said:

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

 

On 10/17/2014 at 10:04 PM, .Azhar said:

شكرا لك استاذ ابو عبدالله على هذا الاطراء الرائع .

Travel Company-shah

 

تم تعديل أغسطس 26, 2017 بواسطه kosrat_jaaf
Travel Company-shah

[memf660]

جزاك الله ألف خير . . . .