محمد التميمي

السلام عليكم لدي جدول يحتوي على حقل الاجمالي (رقم) اريد اضهار حقل رقم الاجمالي في النموذج ولكم منا فائق الشكر والتقدير اجمالي.accdb

السلام عليكم بارك الله بك استاذ حسنين عمل في غاية الروعة

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

السلام عليكم اخواني الكرام لدي ملف اكسيل مرفق ادناه المشكلة ان لا يقبل كود الحفظ التلقائي ممكن ابداء المساعدة بالتعديل على الملف ليحفظ تلقائياً مع فائق الشكر والتقدير... thaaer.rar

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

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

السلام عليكم لدي في النموذج تاريخين الاول تاريخ اصدار والاخر تاريخ نفاد المطلوب اخواني الكرام اريد عند كتابة تاريخ الاصدار يظهر تاريخ النفاد تلقائياً فقط بتغيير السنة للامام مثال (تاريخ الاصدار 2021/10/17) يظهر تلقائياً (تاريخ نفاد 2022/10/17) New.accdb

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

انشاء الله يتفاعل الاخوة معنا شكرا استاذ حسام

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

تم ايقاف عمل الجزء المشار اليه والنتيجة جيدة شكراً جزيلاً

السلام عليكم في المرفق عند ادخال اسم جديد اذا كان الاسم مكرر تظهر رسالة تفيد بتكرار الاسم ويقوم الكود بحذف السجل بعد الضغط على OK في الرسالة انا لا اريده ان يقوم بحذف السجل لان الترقيم عندي تلقائي ويتسبب بفقدان للسجلات التعديل المطلوب بعد الضغط على OK في الرسالة الظاهرة ان لا يقوم بحذف السجل ويبقى وقاف في السجل ولا يخرج منه الى ان نكتب اسم جديد غير مكرر مع الشكر عدم تكرار.rar

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

عفواً استاذ محمد الاكواد في المرفق تعمل بامتياز ولاكن عند تحويلها الى قاعدة البيانات لدي يعمل فقط الكود في زر السابق ( التالي لايعمل ) تم التاكد من الموضوع عدة مرات

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

السلام عليكم طيب الله اوقاتكم في النموذج المرفق يوجد زرين امر للتالي والسابق المطلوب كود لمنع العبور الى سجل جديد من خلال النقر على زر التالي اقصد التوقف الى السجل الاخير مع الشكر thaaer.rar

لاتعتذر اخي الكريم انت المتفضل علينا بارك الله بك

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

احسنت ياعيوني ولاكن اختلف الكود لم يحفظ الصورة برقم السجل ولا في ملف Pictures

السلام عليكم احسنت استاذ د.كاف يار بارك الله بك على التعديل بعد اذن اخونا almersat استاذي العزيز ممكن تعديل على كود جلب الصورة بحيث يتم الاستغناء عن شرط التسجيل لمكتبة من النوع 15.0 Microsoft Office كما موضح في الصورة ادناه مع فائق الشكر والتقدير صورة.rar

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

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

طريقة د.كاف يار نجحت في المثال المرفق ولاكن لم تنجح في قاعدة البيانات لدي ولا اعرف ما السبب ( نصف العلم لا اعلم ) ولاكن توصلت الى حل والحمد لله وضعت Me.Lastwork = Null مع كود زر حفظ وتحديث ومشي الحال وعملت بامتياز شكراً جزيلاَ للمرور والمتابعة

السلام عليكم ممكن تعديل على الكود في نموذج Form في حدث في الحالي بحيث يصبح الكود (اذا كان مربع النص Firstwork يحتوي على قيمة ، فمربع النص Lastwork يكون فارغ ) شكراً New.accdb

احسنت اخي الغالي سلمت يداك من كل مكروه ما خطرت على بالى ولاكن كتبت هذا الكود ولم يعمل If [Firstwork] = Value Then Me.Lastwork = Null End If