kha9009lid

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

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

اضافة لما ذكرة استاذي @AlwaZeeR لتحديد السجلات المكرة يمكن استخدام احد الطرق التالية عن طريق انشاء استعلام المتشابهات المضمن في اكسس الطريقة الثانية عن طريق جملة sql SELECT tbl1.n_name, Count(*) AS Expr1 FROM tbl1 GROUP BY tbl1.n_name HAVING (((Count(*))>1)); الطريقة الثالثة استعلام عادي ثم تجميع count ومعيار >1

من اجل حبايبنا @ابا جودى و @حلبي نستكمل بقية الطرق للاجابة على الاستفسار الطريقة الثالثة مشابهه للثانية والاختلاف طفيف Dim i As Long i = Nz(DLast("[ترقيم2]", "tbl1"), 0 & Format(5000)) Me.ترقيم2 = i + 1 الطريقة الرابعة عن طريق استعلام يتم عملة عن طريق sql ويتم تنفيذة بعد انشاء الجدول ثم حذف الاستعلام بعد تشغيلة INSERT INTO tbl2 ( ID ) SELECT 5001 AS Expr1;

نعم يمكن وبعدة طرق الطريقة الاولى في خصائص الحقل الخاص بالترقيم في خانة تنسيق ضع الرقم الذي ترغب الطريقة الثانية ترقيم عن طريق الكود id = Nz(DMax("[id]", "tbl1"), 0 & Format(5000)) + 1 في المرفق نموذج للطريقتين Database451.accdb

لا اعلم هل فهمت المطلوب ام لا جرب المرفق الاسماء تسجل في tbl2 وفي النموذج الرئيسي عند اختيار الموظف اذا كان مسجل في جدول2 يسمح لك بالاستمرار واذا لم يكن يعطيك رسالة HCT Permit To Work System.mdb

طريقة اخرى عن طريق خطوتين في الاستعلام بعد اذن اخي ومعلمي @essam rabea Database441.accdb

خربنا موضوع استاذنا محمد صلاح بحديث الذكريات ابا جودي انت ذكرت كمبيوتر صخر وهذا في بداية التسعينات الميلادية وانا اتحدث عن بداية الثمانينات عندما كانت الاجهزة من شركة اي بي ام ومن شركة ابل فقط حديثي لا يشمل الاجهزة الكبيرة المين فريم بخصوص الويندوز الاصدار الاول كان في عام 83 ولكن لم يكن نظام مستقل وانما مجرد واجهه رسومية بسيطة للدوس الاصدارة التي احدثت نقلة كانت ويندوز 3.1 في عام 1992 ثم اصدارة ويندوز 3.11 عام 1993 وكانت لمجموعات العمل كانت تتكون من عدة اقراص 3.5 اذكر ركبناها في العمل وعملنا احتفال😎

لا والله استاذي @AlwaZeeR انا من جيل DOS 3 وقاعدة بيانات database 2 اعتقد كان هذا اسمها اما اول جهاز لدي كان بمعالج 8088 او 8086 كانت ترمز لها xt ثم بعد سنوات ظهرت معالجات at بداية بالمعالج 80286 وكان نقلة كبري لانه يقبل زيادة الرام ولم يكن هناك هارديسك كان المستخدم فلوبي ديسك 8.25 ثم 5.25

اخي واستاذي @essam rabea انا اعمل في هذا المجال منذ فترة تقارب اربعين عام ولم اهتم في اي عمل قمت به بموضوع الحماية علما بان كل انتاجي خاص بجهة عملي او لجهات غير ربحيه وردي هذا ليس انتقاد لمن يسعى لحماية جهده .

لقد انصفت ونصحت فأبلغت جزاك الله خير اخي الحبيب

اخفاء اطار اكسس لاخونا ابو جودي

بالتوفيق

الكلمة الاولى في الحقل احنا نحدد "---" انها هي الفاصل بين الدولة والمدينة ونختار الكلمة التي قبلها

جرب الان HCT Permit To Work System - Run-time error 2501.mdb

المشكلة من كود اخفاء اطار اكسس المستخدم من قبلكم جرب الملف المرفق اذا كان يؤدي الغرض او ابحث عن كود مطور لاخفاء اكسس من عمل استاذنا الفاضل. @ابا جودى ابحث عنه في الموقع الفواتير.accdb

مرة اخرى HCT Permit To Work System - Run-time error 2501.mdb

نعم المرفق بدون وحدة نمطية example.accdb

جرب المرفق HCT Permit To Work System - Run-time error 2501.mdb

استاذي الفاضل لم نبتعد عن الحل السابق في ردي الاول ولكن لكون مصدر القائمة المنسدلة استعلام تم فيه دمج حقلي الدولة والمدينة وبالتالي لن يعمل التنسيق الشرطي الا بكتابة الحقل كاملا وهذا امر غير عملي وفيه تكرار كبير مثلا العراق ربما به اكثر من 50 مدينة وكذلك للدول الاخرى فكان الحل وضع وحدة نمطية لتقسيم حقل العنوان لاستخلاص اسم الدولة ونسخة الى مربع نصي غير مرتبط وهذا الحقل هو مصدر الشرط في التنسيق اللوني علما بانه يمكن الاستغناء عن الوحدة النمطية وتبديل مصدر البيانات للحقل النصي ليكون كما يلي =Mid([العنوان];1;InStr([العنوان];"---")-1)

جرب المرفق تنسيق شرطي بعد استخلاص اسم الدولة من القائمة المنسدلة عن طريق مربع نص غير مرتبط وقيمة المربع تساوي =qsplit([العنوان];0) example.accdb

جرب المرفق data.accdb

اهلا وسهلا انا عدلت وفقا المرفق الذي وضعته انت ولا يوجد به نموذج فرعي ارفق مثال مطابق لما لديك ليتم التعديل

جرب المرفق ادخل المجموع ثم نوع الدفع Database101.accdb

عن طريق تنسيق شرطي Database421.accdb