Abdelaziz Osman

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

فعلت سيدى وظهرت الرسالة ايضا مرفق لك ملف العملية open.zip open.zip

اعطانى هذه الرسالة

السلام عليكم ورحمة الله لدى نموذج باسم open اريد عند تحميل النموذج يقوم بنسخ تلقائى لجملة " P@12345678 " لكي استخدم هذه الجملة كابسوورد لفتح بعض الايقونات دخل قاعدة البيانات اختصارا للوقت

يعنى لا يوجد كود شامل وفى هذة الحالة اكتب سطر الكود هكذا If ctl.ControlType = acTextBox Or ctl.ControlType = acComboBox Or ctl.ControlType = acCheckBox Then

تمام سيدى لكن ماهو الكود الذى يشمل جميع الحقول

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

السلام عليكم ورحمة الله لدي نموذج باسم EERT به عدة حقول كثيرة اريد للمستخدم عند فتحه لذلك النموذج لا يستطيع التعديل فى اي حقل من تلك الحقول ماعدا ثلاث حقول وهما حقل باسم INFU وحقل باسم MUR وحقل باسم POL ولكن بشرط اذا كان قيمة حقل باسم MAN نصه كالتالى "HTM" بمعنى ان المستخدم ليس له صلاحية التعديل على حقول النموذج EERT الا فى ثلاث حقول فقط وهى المذكوره اعلاه وايضا اذا تحقق الشرط السابق وجزاكم الله خيرا

السلام عليكم ورحمة الله ياجماعة الخير معايا شيت اكسل نسيت الباسوورد مش عارف اعمل ايه ارجوا المساعدة wwwww.xlsx

الكود الثانى

ممتاز سيدى ولكن اريد ايضا خيار بديل عند الخروج انه إذا قام المستخدم بالخروج قبل كتابة رفم الطلب الذى يبدأ برقم 5 يقوم الاكسيس بتغيير t54=1 و dev = "لم يتم كتابة رقم الطلب أثناء التنفيذ" وبدون أي رسالة نعم أو لا فقط ان امكن رسالة تنبيه مفادها "تم الغاء التحديث لم يتم كتابة رقم الطلب" هل ممكن

@MOHAMMAD IBRAHIM مدير. حالا سوف اقوم بالتشغيل وابلغ سيادتكم بالنتائج عند أقرب وقت ممكن لك منى بالغ التحية

كل الذى أريده هو عندما يقوم المستخدم بفتح النموذج وينتهى من التحديث وعندما يقوم بغلق النموذج واسم النموذج هو open اذا كان الحقل t54=6 مع الحقل dev لا يحتوى على العدد ?????????5 يقوم الاكسيس بعمل رجوع للحقل Dev والحقل t54

أعطيته هذا الكود ولكن للأسف تم رفضه if not me.dev.value like "*5?????????*" and me.t54 = 6 then لكن للأسف تم رفضه وكنت أريد حقل اخر معه باسم t54 يكون = 6 وكذلك وضعت هذا الكود بحدث عند الاغلاق للنموذج ولكن للأسف لم اصل للحل الصحيح

المثال هو " تم تنفيذ الطلبية رقم 5100152369 بتاريخ 16 اكتوبر 2024 "

الزملاء الأعزاء لكم منى كل التحية والتقدير ولكن طلبى هو يحتوى وليس يساوى كما أريد رسالة هل أنت موافق ب (نعم) و (لا) واذا تم الضغط على نعم يتم عمل undo وعند الضغط على( لا ) يتم الوقف على الحقل dev لكتابة التحديث المناسب

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

بالغ التحية مطلوب طريقة تحويل الحروف small إلى capital تلقائيا داخل حقل ما بنموذج اكسيس بعد التحديث او عند التركيز وتفضلوا بقبول وافر التحية

وهو كذلك ساحاول وابلغ حضرتك

@ابوخليل انظر سيدى تم بالفعل استدعاء الطلب برقم العمية كم فى الصورة ولكن لم يتم فتح النموذج 1151/2024 fmain4.accdb

بالفعل هو كذلك جدول الراس هو الجدول main وجدول الاطراف هو req بحيث ان العملية لا تتكرر فى جدول main وارقام الطلبات هى التى تتكرر ويتم تسجيها بجدول req مع الاخذ فى الاعتبار ان العملية الواحدة قد تحتوى على اكثر من طلب مثل العملية 1151/2024 مع الاخذ فى الاعتبار ايضا ان ان الطلب الواحد قد يتم تسجيل لاكثر من عملية مثل الطلب 2200018898

@ابوخليل سيدى صنعت علاقة بهذا الشكل ووضعت العلاقة لمصدر صف رزرا الطلب هكذا هل من الممكن ان تفيد هذه العلاقة فى استدعاء النموذج ارجوا عمل تجربة على الطلبات المرتبطة بالعملية رقم 1151/2024

بمعنى اريد اولا : يتم استدعاء رقم الطلب من الجدول req ثانيا : يتم استدعاء رقم العملية بناء على استدعاء رقم الطلب من اولا ثالثا : يتم استدعاء نموذج fmain بناء على استدعاء رقم العملية من ثانيا وهذا هو المطلوب

سيدى اعلم هذا ولكن هذا هو طلبى من البداية هذا هو طلبى الاساسى ان يتم عمل علاقة بالجدولين مع العلم ان الحقل TENDER_NO موجود بالجدولين ولكن الجدول REQ هو الاشمل ارجوا المساعدة