اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

الردود الموصى بها

  • 2 weeks later...
قام بنشر

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

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

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

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

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

  • 6 months later...
قام بنشر (معدل)

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

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

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

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

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

 
SetProperties "AllowBypassKey", dbBoolean, 0

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

تم تعديل بواسطه أ / محمد صالح
قام بنشر

 

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

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

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

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

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

 
SetProperties "AllowBypassKey", dbBoolean, 0

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

 

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

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

قام بنشر

 

 

جزاك الله خيرا أخي .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
  • 1 month later...
  • 2 years later...
قام بنشر (معدل)
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:

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

:clapping:

 

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

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

Travel Company-shah

 

تم تعديل بواسطه kosrat_jaaf
Travel Company-shah
  • 2 years later...
زائر
هذا الموضوع مغلق.
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information