kha9009lid

الشكر لله اخي @mostafa_27

رائع اخي @essam rabea

محاولة الاسماء المكررة ثنائيا وثلاثيا ورباعيا Database481.accdb

فيه حلول لا تقلق الاصدار المعدل بالامس هل يعمل بدون مشاكل ? هنــا اذا كان يعمل فقط ادخل عرض التصميم واعمل زر امر وضع الكود التالي On Error Resume Next DoCmd.GoToRecord , , acNewRec Me.u_s = Null Me.sh = Null وان لم يعمل قم بانشاء قاعدة جديدة فارعة واستورد كافة كائنات القاعدة القديمة جرب الحل الاول اولا علما بان الكود المقدم من الاستاذ على يعمل جيد بالتوفيق

جرب حولت الملف للاصدرات الاحدث المشكلة مالها علاقة بالاصدار وانما الحدث بالخاص بالشريط المتحرك HCT Permit To Work System.accdb

جرب الان HCT Permit To Work System.mdb

هل هذا المطلوب مقارنة واحتساب الفرق عند تساوي رقم الايصال مثال.accdb

جرب المرفق HCT Permit To Work System.mdb

جرب الان HCT Permit To Work System.mdb

موفق اخي الفاضل من دواعي سروري حصولك على الحل المطلوب

هذه ليست مشكلة وانما بسبب كون الحقل Permit No ترقيم تلقائي على العموم استبدلنا الترقيم التلقائي بترقيم عن طريق الكود [Permit #] = Nz(DMax("[Permit No]", "Permit to Work"), 0) + 1 جرب المرفق الان HCT Permit To Work System.mdb

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

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

اسأل الله ان يديم المودة بيننا جميعا هذه لك اخي @أبو عبدالله الحلوانى ولكن على حسابك

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

اخي الامر نسبي ومثلما تسعى الشركات لحماية برامجها يسعى الكراكر لكسر هذة الحماية بالنسبة للبعض ملف وين رار محمي بكلمة سر لايمكن تجاوزة واخرين يمكنهم كسر حماية انظمة البنوك والشبكات الكبري وهكذا الامر

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

الحمد لله انك وجدت الحل اخي بارك الله فيك معرفة الحقل ونوعة امر مهم لتحصل على الاجابة الصحيح في هذا الرد سوف اضع لك اكواد لدالة واحدة وتاخذ البيانات من نفس الجدول يختلف كتابة الكود جزئيا باختلاف نوع الحقل ولو لم تضع التنصيص الصحيح فلن تعلم DLookup("[items_Name]", "items", "code_items=" & Forms!frm1!txtItemsCode) DLookup("[items_Name]", "items", "code_items='" & Me.txtItemsCode & "'") DLookup("[items_Name]", "items", "code_items=#" & Me.txtItemsCode & "#") لذا فان ما طلبة الاساتذة الكرام ليس تطفل وانما امر مطلوب لوضع الحل الصحيح وايضا الاكواد التي وضعها الزملاء صحيحة وربما لم تعمل معك لاختلاف المعيار اسأل الله لي ولك التوفيق والسداد

في الطريقة السابقة سوف تجد ان حقل id سوف يكون مكرر لبعض السجلات نفس الترقيم للسجلات السابقة فاذا رغبت في ترتيب تلقائي غير مكرر نستبدل استعلام 2 الخاص بانشاء جدول الى استعلام الحاق ونقوم بانشاء جدول tbl4 فارغ ثم ننفذ استعلام الحاق INSERT INTO tbl4 ( n_name ) SELECT استعلام1.n_name FROM استعلام1; انظر المرفقات توحيد.accdb

في المرفق الخطوة الاولى استعلام توحيدي يدمج الجداول الثلاث SELECT * FROM tbl1 UNION SELECT * FROM tbl2 UNION SELECT * FROM tbl3; الخطوة الثاني استعلام اخر يقوم بانشاء جدول جديد SELECT استعلام1.id, استعلام1.n_name INTO tbl4 FROM استعلام1; Database471.accdb قم بتشغيل استعلام 2 سيقوم بانشاء جدول tbl4 والذي يحتوي على كافة سجلات الجداول الثلاث الامر الاهم ان تكون بنية واسماء الحقول متطابقة

نعم اخي واستاذي القدير @AlwaZeeR والهدف تعدد الحلول امام السائل لاختيار ما يناسبه

جزاك الله خير ورحمة الله والديك واصلح لك ذريتك والله وبالله وتالله ما وصفتني به اقل من قطرة في بحر خلقكم وادبكم

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

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

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