Abdelaziz Osman

السلام عليكم ورحمة الله لدي حقل باسم. Manul داخل نموذج المطلوب كود vba او إجراء مناسب يجعل لون خلفية هذا الحقل اصفر فى حالة اذا كان به أي مدخلات واذا تم مسح البيانات منه وأصبح خالى يرجع إلى اللون الابيض

جزاك الله خيرا تمام الكود تمام

السلام عليكم ورحمة الله لدى حقل داخل نموذج واسم هذا الحقل genu أريد كود vba لهذا الحقل عند ادخل قيمة لهذا الحقل تبدأ برقم 17 يعطى رسالة " ادخال خاطىء " ويتوقف الادخال ولا يكمل الا اذا تم إدخال اي شئ اخر لا يبدأ برقم 17 بالغ التحية والتقدير

تمام يا معلمى تم الموضوع بنجاح بالغ التحية والتقدير لك كل التقدير معلمى

معلمى الرقم المطلوب. تسعة مليار وليس تسعه مليون

بالغ التحية معلمنا @Foksh إيضا لم يستجيب هذا التعديل ايضا

السلام عليكم ورحمة الله لدي نموذج به حقل نص باسم tmanu أريد كود vba لهذا الحقل مفهومه كاتالى: اذا تم تحديث هذا الحقل بعدد اكبر من او يساوى 9000000000 يتم تحديث حقل اخر باسم cost بالصيغة التالية " مسار الطرح قيمة مرتفعة " --------------------- قمت بعمل ها الكود فى حدث بعد التحديث ولكن لم يجدى اي نتيجة if me.tmanu.value > 900000000 then me.cost = "مسار الطرح قيمة مرتفعة" end if ارجوا المساعدة

https://www.officena.net/ib/messenger/22132/ مطلوب طريقة تجميع محتوى كافة بيانات حقول نصية الى حقل واحد وبترتيب بنود السجل الاهم هو ترتيب البنود مرفق ملف عمل PRindex.accdb

اخى العزيز @أبوبسمله اريد الحقل expr2 يبدأ تجميعه بترتيب البنود بمعنى يقوم تجميع البيانات السجلات حيث يبدأ ببيانات البند الاول ثم الذى يليه هو يقوم بتجميع بيانات الحقول الافقية من اخر بند الى اول اول بند اريد الترتيب البيانات تصاعديا وليس تنازليا على سبيل المثال بالصور المرفقه الطلب رقم 1100036604 اول بند يحتوى على مواسير 180 مم 10بار بعد الاستعلام والتجميع جعل هذا البند اخر التجميع اريده التجميع بترتيب البنود وجزاك الله خيرا PRindex_1(1).accdb

في النموذج المرفق مطلوب التالى: 1- قيمة الحقل y تلقائيا هي رقم السنة الموجود في تاريخ الحقل d حتى في حالة تغيير الحقل d 2- قيمة الحقل f هي تلقائيا هي الكلمات المكتوبة قبل علامة / بالحقل T 3- عند تحديث الحقل S يتم اظهار رسالة تأكيد باستمرار التحديث بنعم او لا في حالة اذا كان الحقل y قيمته اقل من رقم السنة للعام الحالي و محتوى الرسالة يكون " يرجى العلم ان y قيمته اقل من رقم السنة للعام الحالي " ثم يتم التأكيد بالاستمرار بالضغط على كلمة نعم او لا واذا تم الضغط على كلمة لا يتم مسح السجل بالكامل. اما اذا كان قيمة الحقل y مطابق لرقم السنة للعام الجار فيتم تحديث الحقل S دون ظهور أي رسالة تنبيه. رسالة تاكيد قبل الاستمرار.accdb

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

جيد جدا بالفعل ولكن لى استفسار اذا كان النموذج ليس له زر save هل يمكن نقل الكود الى حدث قبل التحديث للنموذج

السلام عليكم ورحمة الله مرفق ملف عمل اكسيس بالنموذج الحقول التاليةط codemat nopo datereg talab المطلوب: فى حالة اذا كان الحقل codemat قيمته "15" لا يتم الموافقة على حفظ السجل الا اذا اكتمل ادخال باقى بيانات حقول السجل * رسالة تنبيه " يجب ادخال رقم الاوردر" بالحقل nopo * رسالة تنبيه " يجب ادخال تاريخ الطلب" بالحقل datereg * رسالة تنبيه " يجب ادخال بيان الطلب" بالحقل talab وكذلك ايضا ان تظهر تلك رسائل التنبيه فى حالة الخروج من النموذج كل ذلك يتم فى حالة اذا كان الحقل codemat قيمته "15" دون ذلك يتم الحفظ ويتم الخروج لكم منى بالغ التحية عدم الخروج دون تسجيل.accdb

لسيادتكم جزيل الشكر @kkhalifa1960 بالفعل محاولة بالغة المهارة

فكرة جيدة ولكن اذا تم حذف سجل سيختلف التسلسل هل من الممكن اخذ التسلسل من الجزء الاول من التسلسل الاخير للسجل السابق بمعنى ان كان السجل السابق 9/2024 هل من الممكن ان ياخذ رقم 9+1 بدل من ان ياخد من حقل ID

السلام عليكم ورحمة الله لدى نموذج به حقلين باسم ENG واخر باسم ARB المطلوب عندما اريد انتقل الى الحقل ENG لكي اريد ادخال قيمة اريد تلقائيا لغة الكتابة تكون انجليزية لا اريد اضغط على ALT + SHIFT لكي اغير لغة الادخال وهكذا اريد عند الانتقال الى الحقل ARB يكون لغة الادخال عربى لا اريد الضغط على ALT + SHIFT تغيير لغة الكتابة تلقائيا.accdb

كما ان الرقم 2024 هو الرقم المسجل لرقم السنة المسجلة على سيستم تاريخ الكمبيوتر

ماهذه الرسالة ؟؟؟ عندما ادخلت 10/2024 رفض الادخال يرجى العلم ان الحقل infoo ليس حقل تاريخ لكنه حقل نصى عادى

السلام عليكم ورحمة الله لدى حقل بالنموذج المرفق باسم infoo يتم ادخال بيانات به بالنمط التالى 1/ 2024 , 2/2024 , 3/2004 وهكذا ... المطلوب : تقييد الادخال فى حالة تجاوز التسلسل النمطى بعد اخر ادخال اي اذا كان على سبيل المثال آخر سجل هو الفيمة "9/2024" فلا يجوز تجاوز تسلسل هذة القيمة اذا ادخلت على سبيل المثال "11/2024" او اي قيمة اعلى من ذلك لان التسلسل الذى عليه الدور هو "10/2024" ويعطى رسالة تنبيه " يرجى التاكد من التسلسل" عدم تجاوز التسلسل.accdb

اخى ومعلمى @Foksh لك كل التقدير والاحترام

مرفق ملف العمل تطبيق الفكرة على حقل retial Retial -.accdb

معذرتا معلمى و اخى الكريم @Foksh

مش قابل معايا فى نموذج ورقة بيانات استخدمت الكود التالى بس للاسف بيشتغل عل السجل انا محتاجه فى الحقل نفسه الكود هو Retial_afterUpdate Retial_ if Not Me.newRecord Then MsgBox "غير مسموح بتغيير البيانات" Retial.value = Retial.oldvalue End IF End SUb

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

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