عرض التصميم الغاء خيار فتح النموذج في عرض التصميم

[عبد اللطيف سلوم]

السلام عليكم 

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

بمعنى اخر الغاء خاصية عرض التصميم  كما في الصورة المرفقة

مرفق قاعدة بيانات صغيرة للتطبيق عليها 

 

 

حساب العمر.accdb

[Hamdi Edlbi-khalf]

مرحباً 

في الرابط المرفق كود لمنع فتح وضع التصميم و مشكلته الوحيدة أنه يمنع عرض اي قاعدة بوضع التصميم و لا يقتصر على القاعدة الحالية 

و التوصيات في إجابة السؤال كانت تحويل القاعدة إلى accde 

On Error Resume Next
If Not GetUserInfo("ADMIN_PERMIS") = 1 Then
    Dim cb As CommandBar
    Dim cbCtl As CommandBarControl
    For Each cb In CommandBars
        If cb.type = msoBarTypePopup Then
            For Each cbCtl In cb.Controls
                If cbCtl.Caption = "&Design View" Then
                    cbCtl.enabled = True
                    cbCtl.visible = False
                Else
                    cbCtl.visible = True
                End If
            Next
        End If
    Next
    Set cb = Nothing: Set cbCtl = Nothing
End If

https://stackoverflow.com/questions/15957315/disabling-design-view-in-ms-access

[حربي العنزي]

استاذي الفاضل Khalf ربي يخليك يارب 

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

وهل يوجد كود لفك الالغاء يعني بالعكس مع وافر التحايا

[Hamdi Edlbi-khalf]

6 ساعات مضت, حربي العنزي said:

اين يوضع هذا الكود اقصد في اي حدث من البرنامج

في الواقع لم أجرب الكود .

و لكن على ما أعتقد أنه يوضع في الحدث فتح و لعله بحاجة إلى تعريف دالة أو إلى موجع - مكتبة مفقودة لكن أحببت أن أشاركه مع الأساتذة عسى أن يكون ذا نفع  .

 

[Hamdi Edlbi-khalf]

هذا كود  يخفي كامل القوائم المختصرة

Private Sub Form_Open(Cancel As Integer)
Me.ShortcutMenu = False
End Sub

 

[حربي العنزي]

استاذي الفاضل Khalf ربي يخليك يارب 

بارك الله فيك وجزاك الله خيرا 

[Shivan Rekany]

11 ساعات مضت, عبد اللطيف سلوم said:

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

قم بتحويل القاعدة الى صيغة Accde او Mde 
والسلام

[ابو عبد الله العراقي]

On 10/1/2018 at 7:52 PM, Shivan Rekany said:

قم بتحويل القاعدة الى صيغة Accde او Mde 
والسلام

طيب اذا حولت قاعدة البيانات الى صغية 

mde

وبعد ذلك اردت ان اعيدها الى صيغة 

mdb 

هل يمكن ذلك ؟؟؟؟

 

[Shivan Rekany]

3 ساعات مضت, ابو عبد الله العراقي said:

طيب اذا حولت قاعدة البيانات الى صغية 

mde

وبعد ذلك اردت ان اعيدها الى صيغة 

mdb 

هل يمكن ذلك ؟؟؟؟

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

[ابو عبد الله العراقي]

طيب 

عاشت ايدك ، شكراً جزيلاً

[palesten]

في ١‏/١٠‏/٢٠١٨ at 18:03, Khalf said:

Private Sub Form_Open(Cancel As Integer)
Me.ShortcutMenu = False
End Sub

اين يوضع هذا الكود

[Hamdi Edlbi-khalf]

7 ساعات مضت, palesten said:

اين يوضع هذا الكود

السلام عليكم

في حدث فتح النموذج.

[ابو جودي]

ومشاركة مع اساتذتى الكرام

يا استاذ @عبد اللطيف سلوم 

افتح التصميم ان استطعت واخبرنى ان نجحت

 

My Securty.zip

تم تعديل يناير 16, 2022 بواسطه ابو جودي

[عبد اللطيف سلوم]

20 ساعات مضت, ابو جودي said:

ومشاركة مع اساتذتى الكرام

يا استاذ @عبد اللطيف سلوم 

افتح التصميم ان استطعت واخبرنى ان نجحت

 

My Securty.zip 1.3 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 1 download

استاذي الكريم

هناك رقم سري من نفس الاكسس ولا يمكن تخطيه من خلال الشيفت

 

[ابو جودي]

القاعدة الامامية يتم تشغيلها من خلال قاعدة الفتح  Run My App

وتقوم من تلقاء نفسها بالارتباط بالقاعدة TablesArchivingDB ان كانت فى نفس المسار وتطلب منك تحديد المسار ان لم تجد قاعدة الجدوال فى مسارها 

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

اما قاعدة الفتح مشفر بتحويلها الى accde 

 

[الحلبي]

استاذنا ومعلمنا / @ابو جودي

عند فتح البرنامج تظهر رسالة بان الفيرجين 64 بت 

كيف يمكن تحويلها الى 32 بت 

وما هو كلمة سر فتح الجداول