Gamor قام بنشر سبتمبر 17, 2019 قام بنشر سبتمبر 17, 2019 السلام عليكم ورحمة الله وبركاته كيف حالكم ياشباب اخواني انا لدي نموذج واود من الخبراء مساعتي في حمايته من وصول احد الى التصميم او الجدول ( حمايته بشكل كامل من التعديل ) لضمان عدم العب في النموذج ولايمكن لاحد الدخول على وضع التصميم الا عن طريق زر management برقم سري . واجبار المستخدمين على تعبئه الحقول المطلوبه ( 1.2.3.4.5 ) قبل الضغط على زر حفظ وطباعه في حال نقص البيانات في احد الحقول زر حفظ وطباعه لن يعمل. اود لو اتمكن من الكتابه في الشريط السفلي مع العلم ان اصدار اكسس لدي 2016 انجليزي صوره توضيحيه النمودج في المرفق مع خالص الود شاكرلكم حسن تعاونكم HCT Permit To Work System - Copy.mdb
kha9009lid قام بنشر سبتمبر 24, 2019 قام بنشر سبتمبر 24, 2019 سلام تم اضافة رسالة عند ترك حقول فارغة ولايمكن الحفظ او الطباعة الابعد استكمال كافة الحقول تم وضع كلمة مرور على عرض التصميم نفس كلمة المرور السابقة ولايمكن فتح التصميم الا في حالة عدم وجود سجل مفتوح في النموذج بخصوص الحماية في اكسس نسبية ولكن ابحث في الموقع عن الغاء الشفت التصميم جميل بارك الله فيك اخيرا البرنامج يحتاج الى بعض المراجعة للاكواد وووو لكن كل واحد ادري باحتياجة ولكل واحد طريقة عمله تقبل تحياتي HCT Permit To Work System - Copy.mdb 1
Gamor قام بنشر سبتمبر 24, 2019 الكاتب قام بنشر سبتمبر 24, 2019 (معدل) شكرا على مرورك اخي العزيز الف شكر على مدحك لتصميم تم تعديل سبتمبر 24, 2019 بواسطه Gamor
Gamor قام بنشر سبتمبر 24, 2019 الكاتب قام بنشر سبتمبر 24, 2019 عزيزي kha9009lid اود ان اشكرك مره ثانيه لمساعدتك واسلوبك الراقي ويسرني ويشرفني مراجعتك لتصميم والاكواد وتصحيحها بنسبه الى الغاء الشفت لقد بحثت يوجد موايع كثيره في المنتدى وخارجه لاكن من غير جدوى (( لم افهم الشرح )) ولذالك لم اطبقه انا طالب جديد في الاكسس وجديد في صرحكم الكبير انا في انتظار ملاحظاتكم اخي العزيز شاكرلك جهدك . كثرالله من امثالك
kha9009lid قام بنشر سبتمبر 24, 2019 قام بنشر سبتمبر 24, 2019 5 ساعات مضت, Gamor said: عزيزي kha9009lid اود ان اشكرك مره ثانيه لمساعدتك واسلوبك الراقي ويسرني ويشرفني مراجعتك لتصميم والاكواد وتصحيحها بنسبه الى الغاء الشفت لقد بحثت يوجد موايع كثيره في المنتدى وخارجه لاكن من غير جدوى (( لم افهم الشرح )) ولذالك لم اطبقه انا طالب جديد في الاكسس وجديد في صرحكم الكبير انا في انتظار ملاحظاتكم اخي العزيز شاكرلك جهدك . كثرالله من امثالك ابشر اخي وانا لا اقصد وجود اخطاء وانما مراجعة واضافة والغاء لعمل افضل بس احتاج بعض الوقت بخصوص التصميم اعجبني وجماله انه تصميم بسيط ومرتب ويؤدى المطلوب بعيدا عن التكلف 2
العراقي المدلل قام بنشر سبتمبر 24, 2019 قام بنشر سبتمبر 24, 2019 اخي العزيز من بعد اذن الادم واعضاء الكرام اذهب الى الوحدات النمطية وانشأ وحدة جديدة 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 اي عند النقر لمرة واحد على مربع النص يقفل الشفت وعند النقر المزدوج يفتح الشفت ارجو ان تكون وصلت الفكرة 1
Gamor قام بنشر سبتمبر 25, 2019 الكاتب قام بنشر سبتمبر 25, 2019 10 ساعات مضت, kha9009lid said: ابشر اخي وانا لا اقصد وجود اخطاء وانما مراجعة واضافة والغاء لعمل افضل بس احتاج بعض الوقت بخصوص التصميم اعجبني وجماله انه تصميم بسيط ومرتب ويؤدى المطلوب بعيدا عن التكلف صباخ الخير اخي وان وجدت الاخطاء فنحن بشر خطائون ياصديقي خد وقتك اخي وانا في الانتضار الف شكر لك ولجميع الاعضاء في هادا الصرح الكبير
Gamor قام بنشر سبتمبر 25, 2019 الكاتب قام بنشر سبتمبر 25, 2019 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 اي عند النقر لمرة واحد على مربع النص يقفل الشفت وعند النقر المزدوج يفتح الشفت ارجو ان تكون وصلت الفكرة عزيزي العراقي المدلل صباح الخير واهلين وسهلين بك وبكل اخونا العراقيين نورت موضوعي ولك مني الف شكر ومتنان مني لمشاركتك الجميله ومرورك الأجمل اليوم بذن الله سوف اطبق شرح ولي عوده ان شاء الله كي اخبرك تجربتي مع خالص الود
ابو جودي قام بنشر سبتمبر 25, 2019 قام بنشر سبتمبر 25, 2019 السلام عليكم اولا للعلم لا يوجد شئ اسمه حماية مطلقة فدائما الحماية هى مسئلة نسبية ومسأله وقت لذلك نصيحتى ولوجه الله لا تشغل بالك كثيرا بهذا الموضوع كما انصحك نصيحة أخرى ان وجود الازرار فى الواجهة والتى تحمل اسم Management , Admin وخاصة عند الضغط عليها وطلب كلمة المرور فإنها حتما سوف تثير فضول المتطفلين فى محاولات شتى انت فى غنى عنها ممكن بشكل أو بأخر تنفيذ ما تريد بدون ان تقدم للعابثين ما يثير فضولهم 2
ابو جودي قام بنشر سبتمبر 25, 2019 قام بنشر سبتمبر 25, 2019 بخصوص موضوع اغلاق القاعدة بعدم تفعيل الشيفت اتفضل لتطبيق او تعطيل مفتاح الشيفت لاى قاعدة بيانات من خلال هذه الاداة وللعلم لست المصمم لهذه الاداة فقط قمت ببعض التطويرات التى تجعلها تتماشي مع جميع الاصدارات القديمة والحديثة تمكين الشفت (2020).accdb 2
Gamor قام بنشر سبتمبر 25, 2019 الكاتب قام بنشر سبتمبر 25, 2019 1 ساعه مضت, ابا جودى said: السلام عليكم اولا للعلم لا يوجد شئ اسمه حماية مطلقة فدائما الحماية هى مسئلة نسبية ومسأله وقت لذلك نصيحتى ولوجه الله لا تشغل بالك كثيرا بهذا الموضوع كما انصحك نصيحة أخرى ان وجود الازرار فى الواجهة والتى تحمل اسم Management , Admin وخاصة عند الضغط عليها وطلب كلمة المرور فإنها حتما سوف تثير فضول المتطفلين فى محاولات شتى انت فى غنى عنها ممكن بشكل أو بأخر تنفيذ ما تريد بدون ان تقدم للعابثين ما يثير فضولهم عليكم السلام اخي ابا جودي نورت الصفحه مرور الخبراء يسعدني وتعليقاتكم جد تفرحني وتفيدني بنسبه للازرار اخي كلامك صحيح 100% انا لقيت اناه وجود الازرار بهادا الشكل اسهل بنسبه لي بما اني جديد في عالم اكسس + انا الوحيد الى جالس اتعلم اكسس واحاول اعمل نمادج بسيطه ع قدي يعني عشان كدا ماعندي خوف من المتطفلين اشكرمرورك الطيف اخي العزيز لاتحرموني من النصح والتوجيه 1
Gamor قام بنشر سبتمبر 25, 2019 الكاتب قام بنشر سبتمبر 25, 2019 (معدل) 1 ساعه مضت, ابا جودى said: بخصوص موضوع اغلاق القاعدة بعدم تفعيل الشيفت اتفضل لتطبيق او تعطيل مفتاح الشيفت لاى قاعدة بيانات من خلال هذه الاداة وللعلم لست المصمم لهذه الاداة فقط قمت ببعض التطويرات التى تجعلها تتماشي مع جميع الاصدارات القديمة والحديثة تمكين الشفت (2020).accdb 512 \u0643\u064a\u0644\u0648 \u0628\u0627\u064a\u062a · 1 download شكرا عزيزي على الاداه جربتها فكرتها جد ممتازه واريح لي من اكود وزحمه الف شكر لك تم تعديل سبتمبر 25, 2019 بواسطه Gamor 1
ابو جودي قام بنشر سبتمبر 25, 2019 قام بنشر سبتمبر 25, 2019 في ٢٥/٩/٢٠١٩ at 07:36, Gamor said: شكرا عزيزي على الاداه ولاكن كيف اصدرها لنمودج وهل الاداه تمكن وتعطل الشفت ام تعطلها فقط شكرا لك للمره الثانيه اخي الاداة لا علاقة لها بقاعدتك اصلا ولا تصدر اى شئ منها انما تقوم بفتحها وتحدد منها مكان قاعدتك او اى قاعدة تريدها لتمكن او تعطل عمل زر الشيفت لها وتختر اما تفعيل الشيقت او ايقافه 2
Gamor قام بنشر سبتمبر 25, 2019 الكاتب قام بنشر سبتمبر 25, 2019 1 دقيقه مضت, ابا جودى said: الاداة لا علاقة لها بقاعدتك اصلا ولا تصدر اى شئ منها انما تقوم بفتحها وتحدد منها مكان قاعدتك او اى قاعدة تريدها لتمكن او تعطل عمل زر الشيفت لها وتختر اما تفعيل الشيقت او ايقافه شكرا عزيزي على الاداه جربتها فكرتها جد ممتازه واريح لي من اكود وزحمه الف شكر لك ممتازه 1
ابو جودي قام بنشر سبتمبر 25, 2019 قام بنشر سبتمبر 25, 2019 في ٢٥/٩/٢٠١٩ at 07:31, Gamor said: عليكم السلام اخي ابا جودي نورت الصفحه مرور الخبراء يسعدني وتعليقاتكم جد تفرحني وتفيدني بنسبه للازرار اخي كلامك صحيح 100% انا لقيت اناه وجود الازرار بهادا الشكل اسهل بنسبه لي بما اني جديد في عالم اكسس + انا الوحيد الى جالس اتعلم اكسس واحاول اعمل نمادج بسيطه ع قدي يعني عشان كدا ماعندي خوف من المتطفلين اشكرمرورك الطيف اخي العزيز لاتحرموني من النصح والتوجيه انا اقل طالب علم بالمنتدى ولست وحدك من يسعى للتعلم انا ايضا فهذا شأن كلا طلاب العلم
Gamor قام بنشر سبتمبر 25, 2019 الكاتب قام بنشر سبتمبر 25, 2019 2 دقائق مضت, ابا جودى said: انا اقل طالب علم بالمنتدى ولست وحدك من يسعى للتعلم انا ايضا فهذا شأن كلا طلاب العلم حبيبي لك مني كل احترام وتقدير
Gamor قام بنشر سبتمبر 25, 2019 الكاتب قام بنشر سبتمبر 25, 2019 ايها الطالب الجديد مثلي . اخي ابا جودي عندي السؤال لك مع احترامي للجميع الصوره ابلغ من الكلام
ابو جودي قام بنشر سبتمبر 25, 2019 قام بنشر سبتمبر 25, 2019 في ٢٥/٩/٢٠١٩ at 08:08, Gamor said: ايها الطالب الجديد مثلي . اخي ابا جودي عندي السؤال لك مع احترامي للجميع الصوره ابلغ من الكلام حلو كده HCT Permit To Work System - (2).mdb 1
Gamor قام بنشر سبتمبر 26, 2019 الكاتب قام بنشر سبتمبر 26, 2019 14 ساعات مضت, ابا جودى said: حلو كده HCT Permit To Work System - (2).mdb 804 \u0643\u064a\u0644\u0648 \u0628\u0627\u064a\u062a · 3 downloads اهلين وسهلين اخي اباجود صباح الخير كدا احلا من الحلوو . هادا هو طلبي شكرا لك عزيزي بارك الله فيك
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.