Abdelaziz Osman

ممتاز سيدى اشكرك كثيرا

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

الكود لم يستجيب يرجى التكرم تحميل النموذج واختبار الكود sorting.accdb

وماذا بخصوص الفرز التصاعدى

السلام عليكم ورحمة الله لدي نموذج باسم bers به حقل باسم fega فى بعض الاحيان عندما اقوم بالعمل على هذا النموذج اجد ان تسلسل السجلات غير مرتب تصاعديا من الاقدم الى الاحدث حيث ان فرز التسلسل مرتبط بالحقل fega حيث ان هذا الحقل به ارقام تسلسل الحقول 1 2 3 4 وهكذا اريد كود vba يعمل باعادة الفرز تصاعديا من الاقدم الى الاحدث او كود vba يعمل باعادة الفرز تنازليا من الاحدث الى الاقدم يعمل بشكل تلقائى عند اعادة فتح النموذج او عند عمل refresh ولا اريد استخدام زر الفرز الموجودة بالاعلى بشريط الادوات ولكم منى بالغ التحية

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

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

اشكرك سيدى @ناقل تم جزيل الشكر

طب الا يوجد ماكرو يقوم بعمل المطلوب

فكرة جيدة ولكنى اريد عند تحميل النموذج ان يتم حفظ الباسوورد فى الحافظة حيث استخدم ctrl+v بعدها مباشرة

الا يجوز وضع هذا السطر DoCmd.RunCommand acCmdCopy = myPassWord فى حدث عند تحميل النموذج

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

فعلت سيدى وظهرت الرسالة ايضا مرفق لك ملف العملية 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 وكذلك وضعت هذا الكود بحدث عند الاغلاق للنموذج ولكن للأسف لم اصل للحل الصحيح