مساعده في حمايه نموذج

[Gamor]

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

كيف حالكم ياشباب

اخواني انا لدي نموذج واود من الخبراء مساعتي في حمايته من وصول احد الى التصميم او الجدول ( حمايته بشكل كامل من التعديل ) لضمان عدم العب في النموذج

ولايمكن لاحد الدخول على وضع التصميم الا عن طريق زر management برقم سري . 

واجبار المستخدمين على تعبئه الحقول المطلوبه ( 1.2.3.4.5 ) قبل الضغط على زر حفظ وطباعه  في حال نقص البيانات في احد الحقول زر حفظ وطباعه لن يعمل.

اود لو اتمكن من الكتابه في الشريط السفلي

مع العلم ان اصدار اكسس لدي 2016 انجليزي

صوره توضيحيه

 

النمودج في المرفق

 

مع خالص الود شاكرلكم حسن تعاونكم

 

HCT Permit To Work System - Copy.mdb

[Gamor]

هلووو وين الخبراء

[Gamor]

Up

[kha9009lid]

سلام

تم اضافة رسالة عند ترك حقول فارغة ولايمكن الحفظ او الطباعة الابعد استكمال كافة الحقول

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

بخصوص الحماية في اكسس نسبية ولكن ابحث في الموقع عن الغاء الشفت

التصميم جميل بارك الله فيك

اخيرا البرنامج يحتاج الى بعض المراجعة للاكواد  وووو لكن كل واحد ادري باحتياجة ولكل واحد طريقة عمله

تقبل تحياتي

HCT Permit To Work System - Copy.mdb

[Gamor]

شكرا على مرورك اخي العزيز

الف شكر على مدحك لتصميم

 

تم تعديل سبتمبر 24, 2019 بواسطه Gamor

[Gamor]

عزيزي kha9009lid

اود ان اشكرك مره ثانيه لمساعدتك واسلوبك الراقي

ويسرني ويشرفني مراجعتك لتصميم والاكواد وتصحيحها

بنسبه الى الغاء الشفت لقد بحثت يوجد موايع كثيره في المنتدى وخارجه لاكن من غير جدوى (( لم افهم الشرح )) ولذالك لم اطبقه

انا طالب جديد في الاكسس وجديد في صرحكم الكبير

 

انا في انتظار ملاحظاتكم اخي العزيز

 

شاكرلك جهدك . كثرالله من امثالك

[kha9009lid]

5 ساعات مضت, Gamor said:

عزيزي kha9009lid

اود ان اشكرك مره ثانيه لمساعدتك واسلوبك الراقي

ويسرني ويشرفني مراجعتك لتصميم والاكواد وتصحيحها

بنسبه الى الغاء الشفت لقد بحثت يوجد موايع كثيره في المنتدى وخارجه لاكن من غير جدوى (( لم افهم الشرح )) ولذالك لم اطبقه

انا طالب جديد في الاكسس وجديد في صرحكم الكبير

 

انا في انتظار ملاحظاتكم اخي العزيز

 

شاكرلك جهدك . كثرالله من امثالك

ابشر اخي وانا لا اقصد وجود اخطاء وانما مراجعة واضافة والغاء لعمل افضل بس احتاج بعض الوقت

بخصوص التصميم اعجبني وجماله انه تصميم بسيط ومرتب ويؤدى المطلوب بعيدا عن التكلف

[العراقي المدلل]

اخي العزيز 

من بعد اذن الادم واعضاء الكرام 

اذهب الى الوحدات النمطية وانشأ وحدة جديدة module وانسخ هذا الكود 

Function ap_DisableSift()
On Error GoTo errdisableshift ' ÊÚØíá ãÝÊÇÍ ÇáÔÝÊ
Dim DB As dao.Database
Dim prop As dao.Property
Const ConPropNotFound = 3270
Set DB = CurrentDb()
DB.Properties("AllowByPasskey") = False
Exit Function
errdisableshift:
If Err = ConPropNotFound Then
Set prop = DB.CreateProperty("AllowByPasskey", _
dbBoolean, False)
DB.Properties.Append prop
Resume Next
Else
MsgBox "ÚãáíÉ ÊÚØíá ãÝÊÇÍ ÇáÏÎæá Çáì ÇáäÙÇã áã ÊßÊãá ÈäÌÇÍ"
Exit Function
End If
End Function

Function ap_EnableSift()
On Error GoTo errdisableshift ' ÇÊÇÍÉ ãÝÊÇÍ ÇáÔÝÊ
Dim DB As dao.Database
Dim prop As dao.Property
Const ConPropNotFound = 3270
Set DB = CurrentDb()
DB.Properties("AllowByPasskey") = True
Exit Function
errdisableshift:
If Err = ConPropNotFound Then
Set prop = DB.CreateProperty("AllowByPasskey", _
dbBoolean, True)
DB.Properties.Append prop
Resume Next
Else
MsgBox "ÚãáíÉ ÊÚØíá ãÝÊÇÍ ÇáÏÎæá Çáì ÇáäÙÇã áã ÊßÊãá ÈäÌÇÍ"
Exit Function
End If
End Function

Private Sub Label16_Click()
ap_DisableSift
End Sub

Private Sub Label16_DblClick(Cancel As Integer)
ap_EnableSift
End Sub

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

ap_DisableSift

وعند نقر مزدوج ضع هذا الكود 

ap_EnableSift

اي عند النقر لمرة واحد على مربع النص يقفل الشفت وعند النقر المزدوج يفتح الشفت 

ارجو ان تكون وصلت الفكرة 

 

[Gamor]

10 ساعات مضت, kha9009lid said:

ابشر اخي وانا لا اقصد وجود اخطاء وانما مراجعة واضافة والغاء لعمل افضل بس احتاج بعض الوقت

بخصوص التصميم اعجبني وجماله انه تصميم بسيط ومرتب ويؤدى المطلوب بعيدا عن التكلف

صباخ الخير اخي

وان وجدت الاخطاء فنحن بشر خطائون ياصديقي

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

[Gamor]

10 ساعات مضت, العراقي المدلل said:

اخي العزيز 

من بعد اذن الادم واعضاء الكرام 

اذهب الى الوحدات النمطية وانشأ وحدة جديدة module وانسخ هذا الكود 

Function ap_DisableSift()
On Error GoTo errdisableshift ' ÊÚØíá ãÝÊÇÍ ÇáÔÝÊ
Dim DB As dao.Database
Dim prop As dao.Property
Const ConPropNotFound = 3270
Set DB = CurrentDb()
DB.Properties("AllowByPasskey") = False
Exit Function
errdisableshift:
If Err = ConPropNotFound Then
Set prop = DB.CreateProperty("AllowByPasskey", _
dbBoolean, False)
DB.Properties.Append prop
Resume Next
Else
MsgBox "ÚãáíÉ ÊÚØíá ãÝÊÇÍ ÇáÏÎæá Çáì ÇáäÙÇã áã ÊßÊãá ÈäÌÇÍ"
Exit Function
End If
End Function

Function ap_EnableSift()
On Error GoTo errdisableshift ' ÇÊÇÍÉ ãÝÊÇÍ ÇáÔÝÊ
Dim DB As dao.Database
Dim prop As dao.Property
Const ConPropNotFound = 3270
Set DB = CurrentDb()
DB.Properties("AllowByPasskey") = True
Exit Function
errdisableshift:
If Err = ConPropNotFound Then
Set prop = DB.CreateProperty("AllowByPasskey", _
dbBoolean, True)
DB.Properties.Append prop
Resume Next
Else
MsgBox "ÚãáíÉ ÊÚØíá ãÝÊÇÍ ÇáÏÎæá Çáì ÇáäÙÇã áã ÊßÊãá ÈäÌÇÍ"
Exit Function
End If
End Function

Private Sub Label16_Click()
ap_DisableSift
End Sub

Private Sub Label16_DblClick(Cancel As Integer)
ap_EnableSift
End Sub

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

ap_DisableSift

وعند نقر مزدوج ضع هذا الكود 

ap_EnableSift

اي عند النقر لمرة واحد على مربع النص يقفل الشفت وعند النقر المزدوج يفتح الشفت 

ارجو ان تكون وصلت الفكرة 

 

عزيزي العراقي المدلل

صباح الخير واهلين وسهلين بك وبكل اخونا العراقيين

نورت موضوعي ولك مني الف شكر ومتنان مني لمشاركتك الجميله ومرورك الأجمل

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

مع خالص الود

[ابو جودي]

السلام عليكم

اولا للعلم لا يوجد شئ اسمه حماية مطلقة 

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

 

كما انصحك نصيحة أخرى ان وجود الازرار فى الواجهة والتى تحمل اسم  Management  ,    Admin  وخاصة عند الضغط عليها وطلب كلمة المرور فإنها حتما سوف تثير فضول المتطفلين فى محاولات شتى انت فى غنى عنها 

ممكن بشكل أو بأخر تنفيذ ما تريد بدون ان تقدم للعابثين ما يثير فضولهم 

[ابو جودي]

بخصوص موضوع اغلاق القاعدة بعدم تفعيل الشيفت

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

 

تمكين الشفت (2020).accdb

[Gamor]

1 ساعه مضت, ابا جودى said:

السلام عليكم

اولا للعلم لا يوجد شئ اسمه حماية مطلقة 

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

 

كما انصحك نصيحة أخرى ان وجود الازرار فى الواجهة والتى تحمل اسم  Management  ,    Admin  وخاصة عند الضغط عليها وطلب كلمة المرور فإنها حتما سوف تثير فضول المتطفلين فى محاولات شتى انت فى غنى عنها 

ممكن بشكل أو بأخر تنفيذ ما تريد بدون ان تقدم للعابثين ما يثير فضولهم 

عليكم السلام اخي ابا جودي

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

بنسبه للازرار اخي كلامك صحيح 100% انا لقيت اناه وجود الازرار بهادا الشكل اسهل بنسبه لي بما اني جديد في عالم اكسس + انا الوحيد الى جالس اتعلم اكسس واحاول اعمل نمادج بسيطه

ع قدي يعني   عشان كدا ماعندي خوف من المتطفلين

 

اشكرمرورك الطيف اخي العزيز لاتحرموني من النصح والتوجيه

[Gamor]

1 ساعه مضت, ابا جودى said:

بخصوص موضوع اغلاق القاعدة بعدم تفعيل الشيفت

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

 

تمكين الشفت (2020).accdb 512 \u0643\u064a\u0644\u0648 \u0628\u0627\u064a\u062a · 1 download

شكرا عزيزي على الاداه

جربتها فكرتها جد ممتازه واريح لي من اكود وزحمه

الف شكر لك

تم تعديل سبتمبر 25, 2019 بواسطه Gamor

[ابو جودي]

في ٢٥‏/٩‏/٢٠١٩ at 07:36, Gamor said:

شكرا عزيزي على الاداه ولاكن كيف اصدرها لنمودج

وهل الاداه تمكن وتعطل الشفت ام تعطلها فقط

شكرا لك للمره الثانيه اخي

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

وتختر اما تفعيل الشيقت او ايقافه

[Gamor]

1 دقيقه مضت, ابا جودى said:

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

وتختر اما تفعيل الشيقت او ايقافه

شكرا عزيزي على الاداه

جربتها فكرتها جد ممتازه واريح لي من اكود وزحمه

الف شكر لك

ممتازه

[ابو جودي]

في ٢٥‏/٩‏/٢٠١٩ at 07:31, Gamor said:

عليكم السلام اخي ابا جودي

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

بنسبه للازرار اخي كلامك صحيح 100% انا لقيت اناه وجود الازرار بهادا الشكل اسهل بنسبه لي بما اني جديد في عالم اكسس + انا الوحيد الى جالس اتعلم اكسس واحاول اعمل نمادج بسيطه

ع قدي يعني   عشان كدا ماعندي خوف من المتطفلين

 

اشكرمرورك الطيف اخي العزيز لاتحرموني من النصح والتوجيه

انا اقل طالب علم بالمنتدى 

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

[Gamor]

2 دقائق مضت, ابا جودى said:

انا اقل طالب علم بالمنتدى 

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

حبيبي لك مني كل احترام وتقدير

[Gamor]

ايها الطالب الجديد مثلي . اخي ابا جودي عندي السؤال لك مع احترامي للجميع

الصوره ابلغ من الكلام

[ابو جودي]

في ٢٥‏/٩‏/٢٠١٩ at 08:08, Gamor said:

ايها الطالب الجديد مثلي . اخي ابا جودي عندي السؤال لك مع احترامي للجميع

الصوره ابلغ من الكلام

 

حلو كده 

HCT Permit To Work System - (2).mdb

[Gamor]

14 ساعات مضت, ابا جودى said:

حلو كده 

HCT Permit To Work System - (2).mdb 804 \u0643\u064a\u0644\u0648 \u0628\u0627\u064a\u062a · 3 downloads

اهلين وسهلين اخي اباجود صباح الخير

كدا احلا من الحلوو . هادا هو طلبي

شكرا لك عزيزي بارك الله فيك