Eng.Qassim

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

ما شاء الله تبارك الرحمن ..كل الافكار جميلة من الاساتذة الافاضل طريقة الاستاذ الفاضل @Foksh بعد اذنه Word.accdb

برنامج جميل ...لكن اين ال chart1 و chart2 لان عند الضغط على التحديث يظهر خطأ كما في الصورة

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

استاذي الكريم @Foksh المفصود هو المدة المتبقية لنهاية العقد من تاريخ هذا اليوم

اعتقد بانه يجب ترحيل البيانات الى اكسل ...لان الاكسل يدمج الحقول ويجعلها حقل واحد ويمكنه توسيط الكلمة في المنتصف رأيي ان تطرح سؤالك في قسم الاكسل ..فيه من الاساتذة الكبار

جرب هذه المحاولة ... بالمناسبة ..تاريخ نهاية العقد ان كان داخلا في التنفيذ فيتم اضافة 1 الى عدد الايام في الكود التاريخ.rar

هذا امر يسير ... انا قصدت ان تجرب بعض المدخلات لترى النتيجة

عملت لك النتيجة بشكل رسالة فقط جرب بعض المدخلات التاريخ.accdb

اجعل جميع الحقول ... Enable=NO وعند النقر على الكومبوبوكس ... Me.txt1.Enabled = True وهكذا للبقية

ما شاء الله عليك @محمد السيسي و يمكن استخدام .. If Me.text7.Value = DLookup("crn", "Block") Then MsgBox "كود العقار محضور", vbCritical End If

تصميم جميل ..عاشت الايادي

مشاركة مع الاستاذ @kkhalifa1960 المخالفات المرورية3.rar

اعتقد المشكلة لديك في ال Anchor حاول ان تطبق فكرة الاستاذ @kkhalifa1960

طبعا مسحت مشاركتي السابقة بناء على فهم لاحق .... سؤالي لصاحب المشاركة ... كيف يمكننا ان نعرف اسم الطالب بناء على المعلومات السابقة ارجوا المعذرة من استاذتي

مبدع ...استاذي @ابوبسمله

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

او ... If IsNull([text1]) Then MsgBox "يجب ملء الحقل " Else DoCmd.Close End If

لا ...انا اقصد لكل قاعدة بيانات ...اي لكل مشروع تعمله للعميل

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

مشاركة مع ولدنا الحبيب @عمر ضاحى لم افهم سؤالك الاخير انظر للاستعلام union_IN_OUT.... والاستعلام Monthly_sumQ انا لم اضف شيئا لعمل الاستاذ عمر ..مالم افهمه هو لماذا تريد الحاق البيانات الى جدول اخر ...يمكنك تصفية البيانات حسبما تشاء في تقرير ..حسب الشهر او حسب العيادة JO.rar

نفس الفكرة ...صارلي ساعة افكر بهذا الموضوع ...في دماغي وليس بالاكسس نعمل زر تعديل في النموذج ..هذا الزر يقوم بحفظ بيانات الجدولي في جدول مؤقت ...ليكون هذا الجدول مصدر بيانات النموذج ونستطيع التعديل عليه ... وبالضغط على زر حفظ يتم تحديث البيانات في ال بقية الجداول بناء على بيانات الجدول المؤقت

طيب خبرني النتيجة yy (1).rar

ليه متعب حالك استاذ يوسف و تعقد الامور على المستخدم ...لو تعمل زر طباعة على التقرير كان افضل على كل حال ...استخدم الشفرة التالية ...جوابا لسؤالك DoCmd.OpenReport "yy", acViewPreview Dim response As Integer response = MsgBox("هل تريد طباعة التقرير ..", vbQuestion + vbYesNo, "اطبع يا يوسف..") If response = vbYes Then DoCmd.PrintOut Else DoCmd.Close acReport, "yy" End If

مافي حاجة لعمل النموذج settings_general_frm اعملي الخيارات في نفس النموذج reservation_frm استخدمي نفس كود الاستاذ @Foksh.. وقبلها يكون if full_name then