شخابيط وافكار : ( تأمينات السجلات من تعديل او حذف البيانات بالخطأ )

[ابو جودي]

السلام عليكم ورحمة الله تعالى وبركاته

وردنى السؤال الآتى 

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

هل ممكن تأمين جميع الحقول بحيث لا يمكن التعديل او حذف او اضافة بيانات بالخطأ

الاجابة

نعم ممكن ذلك بكل سهولة من خلال الفكرة الاتية بترتيب الخطوات

• إنشاء زر امر ونسمى زر الامر  cmdEdit
• نقوم بتسمية زر الامر بـ  Edit

• نضع الكود الاتى فى حدث الحالى للنموذج

If Me.NewRecord Then
    With Me
        .cmdEdit.Caption = "Edit"
        .cmdEdit.ForeColor = 0
        .cmdEdit.FontBold = False
        .AllowEdits = True
        .cmdEdit.Enabled = False
    End With
Else
    With Me
        .AllowEdits = False
        .cmdEdit.Caption = "Edit"
        .cmdEdit.ForeColor = 0
        .cmdEdit.FontBold = False
        .cmdEdit.Enabled = True
    End With
End If

 

• نضع الكود الاتى فى حدث عند النقر لزر الامر 

Select Case Me.cmdEdit.Caption
     Case "Edit"
         With Me
          .AllowEdits = True
          .cmdEdit.Caption = "Lock"
          .cmdEdit.ForeColor = 255
          .cmdEdit.FontBold = True
          .Refresh
         End With
    Case "Lock"
        With Me
          .AllowEdits = False
          .cmdEdit.Caption = "Edit"
          .cmdEdit.ForeColor = 0
          .cmdEdit.FontBold = False
          .Refresh
        End With
End Select

 المرفق

Securing records.accdb

تم تعديل فبراير 14, 2022 بواسطه ابو جودي
رفع المرفق

[abouelhassan]

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

احترام من اخيك

 

 

[Moosak]

فكرة رائعة باش مهندس .. بارك الله فيك 🌹😊

فقط لاحظت أن زر الحذف يعمل في حال الحماية .. ربما من الأفضل منع الحذف أيضا 🙂 

[ابو جودي]

9 ساعات مضت, Moosak said:

فكرة رائعة باش مهندس .. بارك الله فيك 🌹😊

فقط لاحظت أن زر الحذف يعمل في حال الحماية .. ربما من الأفضل منع الحذف أيضا 🙂 

طيب هو الكلام كان واضح من العنوان تأمين السجلات من تعديل او حذف البيانات بالخطأ

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

ولكن على كل حال زيادة فى الخير ومن اجل عيون صاحب السؤال الحل كالاتى

.AllowDeletions =

عند التأمين = False فلا يتم حذف السجل

وعند الغاء التامين وفى وضع التعديل تكون = True

Securing records(2).accdb

[Amr Ashraf]

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

[ابو جودي]

1 دقيقه مضت, Amr Ashraf said:

ممكن طريقة منع حذف القاعدة من الهارد

ممكن ذلك من خلال عمل مجلد خاص وبالتعديل على اعدادات الامان لهذا المجلد فيكون للقراء والتعديل فقط لما يحويه المجلد

[Amr Ashraf]

20 دقائق مضت, ابو جودي said:

ممكن ذلك من خلال عمل مجلد خاص وبالتعديل على اعدادات الامان لهذا المجلد فيكون للقراء والتعديل فقط لما يحويه المجلد

بهزر معاك يابو جودى

[ابو جودي]

بس فعلا انا فى العمل قاعدة البيانات تم حذفها بالخطا ذات مرة 

وبقليل من البحث توصلت لتعديل اعدادت امان المجلد ليصبح قابل للقراءة والتعديل فقط دون الحذف

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

وبعدين يا سيدى هزر براحتك  على قلبى زى العسل

ولو عاوز تعمل مجلد لا يتم حذف ما بداخلة ابدا بكل سهولة 

اذهب لموجه اوامر الدوس

اكتب لامر الاتى 

cacls D:\Moh3ssam /P everyone:n

مع تعديل D:\Moh3ssam بمسار المجلد وان كان اسم المجلد يتكون من اكثر من مقطع تعامل معه مثل ما تتعامل مع الاسماؤ فى محرر الاكواد

يعمى لو عندنا مجلد على القطاع D  باسم Amr Ashraf

يكتب الامر فى موجه اوامر الدوس بهذا الشكل 

cacls D:\ Amr_Ashraf /P everyone:n

ثم اضغط من لوحة المقاتيح على زر الـ Enter

تأتى لك رسالة تخبرك ان اردت الاستمرار اضغط على حرف الـ y من لوحة المفاتيح وان اردت عدم الاستمرار اظغط على حرف الـ N

وبمجرد الضغط على حرف الـ  Y   يتم تعديل اعداد الامان للمجلد لن تستطيع حذف او اضافة اى شئ اليه

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

cacls D:\ Amr_Ashraf /P everyone:f

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

[Amr Ashraf]

3 دقائق مضت, ابو جودي said:

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

بس فكرة جيدة فعلا مطبقتهاش قبل كده بس سؤال لولبى لو المجلد ده اصبح Read Only لو بداخله قاعدة الجداول BE والواجهة مربوطة بيه مش هيشتغل على ما اتذكر لازم المجلد اللى فيه الجداول يبقى RW

[ابو جودي]

3 دقائق مضت, Amr Ashraf said:

بس فكرة جيدة فعلا مطبقتهاش قبل كده بس سؤال لولبى لو المجلد ده اصبح Read Only لو بداخله قاعدة الجداول BE والواجهة مربوطة بيه مش هيشتغل على ما اتذكر لازم المجلد اللى فيه الجداول يبقى RW

لا طبعا علشان تعمل ده بقه لازم من خلال الاعدادت تخلى المجلد للقراء والتعديل فقط

وقتها تقدر تضيف  ملفات وتعدل ملفات وتشتغل بقاعدة بيانات خلفية لكن تحذف اى شئ لا

لو عاوز اعمل لك شرح مصور ماشى بس هتدفع حق الشرح  اومااااااااااااااااال

[أبوبسمله]

34 دقائق مضت, ابو جودي said:

لو عاوز اعمل لك شرح مصور ماشى بس هتدفع حق الشرح  اومااااااااااااااااال

ياريت يا ابوجودى وخلى الدفع عليا المرادى استاذ @Amr Ashraf 😀 وجزاك الله خيرا

[ابو جودي]

منذ ساعه, أبوبسمله said:

ياريت يا ابوجودى وخلى الدفع عليا المرادى استاذ @Amr Ashraf 😀 وجزاك الله خيرا

من عيونى 

الشرح هنا فى موضوع مستقل