الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

تأمين السجلات وإلغاء تأمينها برمجياً

بدأه kaser906 في 9 أكتوبر 2011 · 10 رد · 3,578 مشاهدة · في قواعد بيانات Microsoft Access
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

عند فتح النموذج تكون الحقول لدي ممكن لا تم تأمينه نعم

ما هو الكود الذي يقوم بتأمين السجلات برمجيا وإلغاء تأمينها

إلهي انت رجائي في كل شدة وأنت لي في كل أمر نزل بي ثقة وعدة
كم من هم يضعف فيه الفؤاد وتقل فيه الحيلة ويشمت به العدو ويخذل فيه الصديق
انزلته بك وشكوته إليك رغبة مني إليك عما سواك فكشفته وفرجته فأنت ولي كل نعمة ومنتهى كل رغبة
يامن اسمه دواء وذكره شفاء وطاعته غنى ارحم من رأس ماله الرجاء وسلاحه البكاء
ياسابق النعم يادافع النغم يا نور المستوحشين في الظلم  يا عالماً لايعلم صل على محمد وآله وافعل بي ما انت اهله

#2

Me.AllowEdits = False 'هذا الكود لتأمين الحقول

Me.AllowEdits = True 'هذا الكود لإلغاء تأمين الحقول

Me.Txt1.Enabled = True 'هذا الكود لتمكين حقل معين

Me.Txt1.Enabled= False 'هذا الكود لإلغاء تمكين حقل معين

#3

Me.AllowEdits = False 'هذا الكود لتأمين الحقول

Me.AllowEdits = True 'هذا الكود لإلغاء تأمين الحقول

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

فثط في المرة الاولى يؤمن بعد الغاء التامين واعادة ضغط تأمين لايحدث التأمين ..

#4
lordring كتب:

Me.AllowEdits = False 'هذا الكود لتأمين الحقول

Me.AllowEdits = True 'هذا الكود لإلغاء تأمين الحقول

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

فثط في المرة الاولى يؤمن بعد الغاء التامين واعادة ضغط تأمين لايحدث التأمين ..

أين وضعت الكود؟ .. في أي حدث؟ .. هل وضعت الكودين السابقين في نفس الإجراء؟ .. أم أنك وضعت كل كود منهما في إجراء منفصل؟

#5
lordring كتب:

Me.AllowEdits = False 'هذا الكود لتأمين الحقول

Me.AllowEdits = True 'هذا الكود لإلغاء تأمين الحقول

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

فثط في المرة الاولى يؤمن بعد الغاء التامين واعادة ضغط تأمين لايحدث التأمين ..

يبدو أني لم اعرف صياغة السؤال جيدا وتوضيح المطلوب

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

لاحظ الصورة

117765510.png

وعند اختيار تأمينها مع عدم التمكين من ورقة الخصائص تعود للون العادي

الصورة

785635073.png

لاحظ كيف تعود الحقول الى اللون الطبيعي

856031547.png

ارجو ان تكون اتضحت الصورة

وبأنتظار الكود المطلوب

ملاحظة استخدم هذا الكود لعدم التمكين والتأمين

  With Me
                   .AllowEdits = False
                  .AllowAdditions = False
                 .AllowDeletions = False

                  End With

وهذا الكود لتمكين وفك التأمين

With Me
                .AllowAdditions = True
                  .AllowEdits = True
                  .AllowDeletions = True

                  End With

تم تعديل هذه المشاركة بواسطة kaser906 في 10 أكتوبر 2011 في 19:19

إلهي انت رجائي في كل شدة وأنت لي في كل أمر نزل بي ثقة وعدة
كم من هم يضعف فيه الفؤاد وتقل فيه الحيلة ويشمت به العدو ويخذل فيه الصديق
انزلته بك وشكوته إليك رغبة مني إليك عما سواك فكشفته وفرجته فأنت ولي كل نعمة ومنتهى كل رغبة
يامن اسمه دواء وذكره شفاء وطاعته غنى ارحم من رأس ماله الرجاء وسلاحه البكاء
ياسابق النعم يادافع النغم يا نور المستوحشين في الظلم  يا عالماً لايعلم صل على محمد وآله وافعل بي ما انت اهله

#6
kaser906 كتب:

يبدو أني لم اعرف صياغة السؤال جيدا وتوضيح المطلوب

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

وعند اختيار تأمينها مع عدم التمكين من ورقة الخصائص تعود للون العادي

لاحظ كيف تعود الحقول الى اللون الطبيعي

ملاحظة استخدم هذا الكود لعدم التمكين والتأمين

  With Me
           		.AllowEdits = False
                  .AllowAdditions = False
         		.AllowDeletions = False

                  End With

وهذا الكود لتمكين وفك التأمين

With Me
                .AllowAdditions = True
                  .AllowEdits = True
                  .AllowDeletions = True

                  End With

كلا يا أخي .. الأمر واضحٌ جداً وهو أنك تخلط ما بين خاصية "مؤمن" , وخاصية "ممكن"

عندما تقول: "أستخدم هذا الكود لعدم التمكين والتأمين" , فالكود الذي أوردته ليس فيه ما يدل على عدم التمكين من قريب أو بعيد, وإنما يقوم بتأمين السجلات فقط.

وعندما تقول: "وهذا الكود لتمكين وفك التأمين" , أيضاً الكود الذي ذكرته لا علاقة له بتمكين أو عدم تمكين أي عنصر تحكم, وإنما يقوم بفك تأمين السجلات فقط.

ارجع لمشاركتي الأولى في هذا الموضوع, وستجد أن الكود المسؤول عن التمكين هو Enabled. وهو المسؤول عن ظهور الكتابة في عنصر التحكم, -بل عن ظهور عنصر التحكم بأكمله- إما بلون باهت, أو بلون طبيعي كما أشرت أنت سابقاً.

فإذا كانت عناصر التحكم الغير ممكنة في النموذج كثيرة, وأردت أن تحولها إلى ممكنة, فاستخدم لذلك الكود التالي أو ما يماثله:

Dim Ctl As Control
For Each Ctl In Me.Controls
If Ctl.Enabled = False Then
Ctl.Enabled = True
End If
Next

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

#7
غرّام العقول كتب:

كلا يا أخي .. الأمر واضحٌ جداً وهو أنك تخلط ما بين خاصية "مؤمن" , وخاصية "ممكن"

عندما تقول: "أستخدم هذا الكود لعدم التمكين والتأمين" , فالكود الذي أوردته ليس فيه ما يدل على عدم التمكين من قريب أو بعيد, وإنما يقوم بتأمين السجلات فقط.

وعندما تقول: "وهذا الكود لتمكين وفك التأمين" , أيضاً الكود الذي ذكرته لا علاقة له بتمكين أو عدم تمكين أي عنصر تحكم, وإنما يقوم بفك تأمين السجلات فقط.

ارجع لمشاركتي الأولى في هذا الموضوع, وستجد أن الكود المسؤول عن التمكين هو Enabled. وهو المسؤول عن ظهور الكتابة في عنصر التحكم, -بل عن ظهور عنصر التحكم بأكمله- إما بلون باهت, أو بلون طبيعي كما أشرت أنت سابقاً.

فإذا كانت عناصر التحكم الغير ممكنة في النموذج كثيرة, وأردت أن تحولها إلى ممكنة, فاستخدم لذلك الكود التالي أو ما يماثله:

Dim Ctl As Control
For Each Ctl In Me.Controls
If Ctl.Enabled = False Then
Ctl.Enabled = True
End If
Next

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

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

هذا مثال موضح به المطلوب

EMpDataaa.rar

إلهي انت رجائي في كل شدة وأنت لي في كل أمر نزل بي ثقة وعدة
كم من هم يضعف فيه الفؤاد وتقل فيه الحيلة ويشمت به العدو ويخذل فيه الصديق
انزلته بك وشكوته إليك رغبة مني إليك عما سواك فكشفته وفرجته فأنت ولي كل نعمة ومنتهى كل رغبة
يامن اسمه دواء وذكره شفاء وطاعته غنى ارحم من رأس ماله الرجاء وسلاحه البكاء
ياسابق النعم يادافع النغم يا نور المستوحشين في الظلم  يا عالماً لايعلم صل على محمد وآله وافعل بي ما انت اهله

#8

لم أستطع التعديل على ملفك بسبب وجود الكود Dirty

لذلك قمت بعمل مثال صغير لتطبيق الكود السابق من خلال زر أمر يقوم بوظيفتين:

انقر المرة الأولى للتمكين, وانقر نفس الزر نقرة أخرى لعدم التمكين

بالتوفيق

XorEnable.rar

#9
غرّام العقول كتب:

لم أستطع التعديل على ملفك بسبب وجود الكود Dirty

لذلك قمت بعمل مثال صغير لتطبيق الكود السابق من خلال زر أمر يقوم بوظيفتين:

انقر المرة الأولى للتمكين, وانقر نفس الزر نقرة أخرى لعدم التمكين

بالتوفيق

الله يعطيك العافية اخي

هذا ليس المطلوب

المطلوب عند عدم التمكين ان لايتحول لون الحقول الى اللون الباهت

اريدها ان تبقى بنفس لون الحقول الممكنه

إلهي انت رجائي في كل شدة وأنت لي في كل أمر نزل بي ثقة وعدة
كم من هم يضعف فيه الفؤاد وتقل فيه الحيلة ويشمت به العدو ويخذل فيه الصديق
انزلته بك وشكوته إليك رغبة مني إليك عما سواك فكشفته وفرجته فأنت ولي كل نعمة ومنتهى كل رغبة
يامن اسمه دواء وذكره شفاء وطاعته غنى ارحم من رأس ماله الرجاء وسلاحه البكاء
ياسابق النعم يادافع النغم يا نور المستوحشين في الظلم  يا عالماً لايعلم صل على محمد وآله وافعل بي ما انت اهله

#10
kaser906 كتب:

الله يعطيك العافية اخي

هذا ليس المطلوب

المطلوب عند عدم التمكين ان لايتحول لون الحقول الى اللون الباهت

اريدها ان تبقى بنفس لون الحقول الممكنه

الله يعافيك يا أخي

المثال السابق يوضح الخاصية "تمكين" أو خاصية "ممكّن".

وهذا مثال يوضح خاصية تأمين السجلات أو خاصية "مؤمن"

يمكنك استخدام هذه الطريقة الأخيرة إذا أردت تأمين السجلات من عبث المستخدم دون أن يكون هناك أي لون باهت لأي حقل. smile.gif

XorLocked.rar

تم تعديل هذه المشاركة بواسطة غرّام العقول في 11 أكتوبر 2011 في 19:27

#11

مشكور وما قصرت بارك الله فيك

إلهي انت رجائي في كل شدة وأنت لي في كل أمر نزل بي ثقة وعدة
كم من هم يضعف فيه الفؤاد وتقل فيه الحيلة ويشمت به العدو ويخذل فيه الصديق
انزلته بك وشكوته إليك رغبة مني إليك عما سواك فكشفته وفرجته فأنت ولي كل نعمة ومنتهى كل رغبة
يامن اسمه دواء وذكره شفاء وطاعته غنى ارحم من رأس ماله الرجاء وسلاحه البكاء
ياسابق النعم يادافع النغم يا نور المستوحشين في الظلم  يا عالماً لايعلم صل على محمد وآله وافعل بي ما انت اهله

مواضيع مشابهة