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

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

السلام عليكم 

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

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

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

 

 

حساب العمر.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]

  في 1‏/10‏/2018 at 07:25, حربي العنزي said:

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

Expand  

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

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

 

[Hamdi Edlbi-khalf]

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

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

 

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

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

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

[Shivan Rekany]

  في 1‏/10‏/2018 at 04:54, عبد اللطيف سلوم said:

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

Expand  

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

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

  في 1‏/10‏/2018 at 16:52, Shivan Rekany said:

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

Expand  

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

mde

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

mdb 

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

 

[Shivan Rekany]

  في 13‏/11‏/2021 at 05:53, ابو عبد الله العراقي said:

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

mde

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

mdb 

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

Expand  

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

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

طيب 

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

[palesten]

  في 1‏/10‏/2018 at 15:03, Khalf said:

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

Expand  

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

[Hamdi Edlbi-khalf]

  في 16‏/1‏/2022 at 08:37, palesten said:

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

Expand  

السلام عليكم

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

[ابو جودي]

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

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

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

 

My Securty.zipFetching info...

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

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

  في 16‏/1‏/2022 at 17:04, ابو جودي said:

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

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

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

 

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

Expand  

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

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

 

[ابو جودي]

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

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

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

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

 

[الحلبي]

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

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

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

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