kha9009lid

من اجل حبايبنا @ابا جودى و @حلبي نستكمل بقية الطرق للاجابة على الاستفسار الطريقة الثالثة مشابهه للثانية والاختلاف طفيف 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

جرب المرفق Select Case DataErr Case 3201 MsgBox "اكتب الرسالة التي ترغب تجد الكود في حدث عند الخطأ", , "تنبية" Response = 0 End Select استخدمنا Case حتى يمكن اضافة رسائل اخطاء اخرى لو وجدت Items9-27.accdb

بعد اذن اخي الفاضل @YaSiN Abdullahi جرب المرفق كلمة المرور 1234 HideMessage.accdb

الشكر لله اخي @حربي العنزي تقبل تحياتي