kanory

أخي أبا فتحي . فهم المطلوب اذن : اضف مثالا للتعديل عليه

ما شاء الله تبارك الله . لاحظ اخي حربي .. بعد ما تم معرفة الغرض من السؤال والتعديلات المطلوبة بدأ الاخوة بالرد . لان المطلوب والسبب معروف

يمكن استخدام النقطة التي ذكرها الاستاذ الفاضل ابا خليل

بارك الله فيك ......

وعليكم السلام ورحمة الله وبركاته هل هذا ما تريد

وعليكم السلام ورحمة الله هدية جديرة بالتجربة ...... شكرا لك أخ ريباز

جرب وبلغني بالنتيجة ... بالتوفيق

وعليكم السلام ورحمة الله وبركانه أخي الكريم لو وضعت مثال توضيحي ليسهل التطبيق عليه بارك الله فيك لكن طبق هذا الكود لربما يفي بالمطلوب Public Sub EkCtrControl(frm As Form) On Error Resume Next Dim EkCtr As Control For Each EkCtr In frm If TypeOf EkCtr Is TextBox Then EkCtr.ForeColor = اكتب ماتريد EkCtr.FontSize = اكتب ماتريد EkCtr.FontName = اكتب ماتريد EkCtr.BackColor = اكتب ماتريد If TypeOf EkCtr Is CommandButton Then EkCtr.ForeColor = اكتب ماتريد EkCtr.FontSize = اكتب ماتريد EkCtr.FontName = اكتب ماتريد If TypeOf EkCtr Is Label Then EkCtr.ForeColor = اكتب ماتريد EkCtr.FontSize = اكتب ماتريد EkCtr.FontName = اكتب ماتريد EkCtr.BackColor = اكتب ماتريد If TypeOf EkCtr Is ListBox Then EkCtr.ForeColor = اكتب ماتريد EkCtr.FontSize = اكتب ماتريد EkCtr.FontName = اكتب ماتريد EkCtr.BackColor = اكتب ماتريد Next EkCtr End Sub اتمنى اني وفقت في الاجابة

تطبيق جميل اخي عبداللطيف ... بارك الله فيك

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

الْلَّھُم أَهِلَهُ عَليْنَا بِالْأمْنِ وَالإِيْمَانِ وَالْسَّلامَةِ وَالْإِسْلَامِ وَالْعَوْنٓ عَلَى الْصَّلاةِ وَالصِّيَامِ وَتِلَاوَةِ الْقُرْآَنِ الْلَّھُمّ سَلِّمْنَا لِرَمَضَانَ وَسَلِّمْهُ لنا وَتَسَلَّمْهُ مِنّا مُتَقَبَّلاً يٓارٓبٓ العٓالِٓمينْ . مُبارٓكٌ علٓيْكُمْ شّٓهرُ رٓمٓضٓان 🌱

أخي الفاضل : أولا : غيرنا خصائص النموذج s2 شكلي أو مشروط الى .. لا ثانيا : أضفنا الكود التالي في خصائص النموذج واجه_المحاسبة في حدث عند تحريك الماوس والهدف من الكود هواغلاق النموذج s2 DoCmd.Close acForm, "s2", acSaveNo أرجو أن أكون قد وفقت في هذا الشرح السريع

قد أكون فهمت طلبك .... أنظر المرفق اغلاق_النموذج.accdb

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

أخي فراس لا أظن أن الماكروا يستطيع فعل ذلك

تفضل قد يكون هو مطلبك Ka_12.rar

تقضل ملفك بعد التعديل num.rar

ملفك بعد التعديل Database6.rar

أولا : وعليكم السلام ورحمة الله وبركاته ثانيا : يجب أن يكون كود المشتري رقم وليس اسم حتى يسهل التجميع .... لأن الاسم قد يكتب مثلا احمد أو أحمد فهناك اختلاف

قصدي نموذج الادخال مرتبط بجدول مستقل غير الجدول الاساسي الخاص بالبيانات ثم الحاق هذه البيانات وقت الحفظ للجدول الاساسي

أخي عبداللطيف .... برنامج جيد .... ولي ملاحظة حبذا استخدمت NZ في هذه الحفول ايضا بدل رسائل الخطأ أيضا لو أضفت أخذ نسخ احتياطية للبرنامج

أخي الكريم كفكرة .... أجعل نموذج الادخال مرتبط بجدول مستقل غير الجدول الاساسي وجعل الرقم التلقائي يتم مع رز الحفظ ( وقت الحفظ )

تفضل هل هذا طلبك ProgEmp14.rar

بارك الله فيك وفي وقتك

بارك الله فيك وفي وقتك