لمنع التعديل فى MDE

[مهند عبادي]

بالنسبة لبرنامج أخي رضا عقيل وحمايته لم أستطع للآن فكها

والعمل مازال جارياً لذلك ويوجد لدي عدة أفكار لكسرها (بدون معرفة المعادلة) ، ولكنه يعطي رسالة خطأ مرجع مفقود .. فما هي المراجع المستخدمة في البرنامج !؟؟

أما بالنسبة لما ذهب إليه أخي أبو هادي من امكانية تعطيل الأحداث وتصفير المؤقت فهذا ممكن طبعاً .. ولكننا إذا وضعناها ضمن حدث لا يعمل البرنامج بدونه نكون قد اجتزنا هذه النقطة

[هشام علام]

لسلام عليكم

====================================

اخى الكريم = ([أبو هادى],[مهند],[رضا]) Asfrinds

=====================================

الفكرة ممتازة جدا موضوع التعديل والتاريخ ولقد جربتها ونجحت تمام ، ولكن لا تزال المشكلة قائمة بالدخول إلى التصميم وإزالة الحدث عند الفتح

والفكرة الآن ان يكون اختبار النموذج فى وضع التصميم ام لا اى بمجرد دخولك الى التصميم يتم إغلاق البرنامج

من المعروف يمكن اختبار النموذج فى وضع الفتح دالة IsLoaded

والمشكلة فى تجميع الكود الــ Design view مثل دالة اختبار الفتح ، هى نفس الفكرة التى تناقشنا فيها سابقاً يا اخ مهند

ولتبسيط الفكرة اكثر مثلا هذا الكود السبيط

DoCmd.OpenForm "form1", acDesign

يقوم بفتح النموذج فى وضع التصميم ، ولكن عند التصميم اريد أن أختبر النموذج للـ acDesign فما رائيكم فى الفكرة هل ستنجح إن شاء الله ام ؟ :)

Function HacDesing(ByVal strFormName As String) As Integer
    Const conObjStateClosed = 0
    Const conDesignView = 0
    If SysCmd(acSysCmdGetObjectState, acForm, strFormName) <> conDesignView Then
    'On Error Resume Next
        If Forms(strFormName).CurrentView <> conDesignView Then
               ' DoCmd.Quit
            HacDesing = True
        End If
    End If
End Function

مرفق ملف

Design.rar

تم تعديل أكتوبر 8, 2004 بواسطه هشام علام

[سهل احمد العريشي]

بسم الله الرحمن الرحيم

أخي رضا طبعا الرقم اللي بيظهر هو رقم الهارد

وعلشان أحاول اجيب الطريقة عملت نموذج ووضعت حقل للرقم اللي يظهر لي وحقل لرقم التسجيل والنموذج مبني على استعلام وفي حقل رقم التسجيل وضعت هذه المعادلة ( رقم تسجيل البرنامج: ([HardDiskNo]-799197)*2 )

طبعا ما توصلت للحل الصحيح بس أعتقد العملية مهي بعيده عن كذ طبعا جلست أغير في الرقم اللي مكون من سته خانات ولكن تعبت وهذا اللي صار معايا وبعدين حطيت الرقم اللي أعطيتني وطلع خطا يعني كنت بحاول على أساس خاطي ممكن الرقم الصحيح علشان أتابع والأ طريقتي خطأ

أخيك سهل احمد ( ابو نعيم )

[رضا عقيل]

أخي سهل

بما أن الرقم لديك بالسالب كالتالي ( -3959627 )

يكون رقمك هو -17892289

إخواني

أبو هادي

هشام علام

مهند عبادي

أعتقد أننا اقتربنا كثيراً

[رضا عقيل]

المثال مفكوك

الصادر والوارد.rar

[سهل احمد العريشي]

بسم الله الرحمن الرحيم

شكرا لك أخي العزيز رضا وجزاك الله كل الخير

أخيك سهل احمد ( ابو نعيم )

[هشام علام]

تجربة اخرى

Function IsInDesignView(ByVal strFormName As String) As Boolean

ارجاع القيمة إلى True إذا خصص النموذج للفتح فى وضع التصميم

    Dim oAccessObject As AccessObject

    Set oAccessObject = CurrentProject.AllForms(strFormName)
    If oAccessObject.IsLoaded Then
        If oAccessObject.CurrentView = acCurViewDesign Then
            IsInDesignView = True
        End If
    End If

End Function

الله المستعان :(