غذرا اخي المزين و لكن لاغراض تفعيل النقاش لاستخلاص اكبر قدر من المعلومات حول الموضوع:
كلمة السر للوحدة النمطية في قاعدة البيانات الاولى هي : 3J8E
و الكود الموجود بداخلها هو :
' ' Function IsLoaded(ByVal strFormName As String) As Boolean ' Returns True if the specified form is open in Form view or Datasheet view. Const conObjStateClosed = 0 Const conDesignView = 0 If SysCmd(acSysCmdGetObjectState, acForm, strFormName) <> conObjStateClosed Then If Forms(strFormName).CurrentView <> conDesignView Then IsLoaded = True End If End If End Function
يرجى من الاخوة توضيح ذلك الكود و كذلك الاشتراك في تجميع ما تم طرحه من افكار للحماية في هذا المنتدى للخروج بقدر معقول من الحماية
