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

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

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

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

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

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

بالتوفيق اخي ...

اخي الكريم جرب برامج اصلاح قاعدة البيانات

تفضل ........ملفك بعد التعديل . ولكن انظر الى الصورة وقم بتعديل الكود الموجود تحت الزر بما يناسبك المخزون.rar

تفضل ........ CompactExternalDatabase_1.mdb