Eng.Qassim

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

عملت لك النتيجة بشكل رسالة فقط جرب بعض المدخلات التاريخ.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

السلام عليكم ..والله مش عارف ابتدي منين الحكاية !! الجدول settings_general_tbl ليس له علاقة بالحقل الغير مرتبط txtFullName ولهذا كيف سيتم التحقق من pname في النموذج reservation_frm بصي يا استاذة...انا قرأت مشاركتك عدة مرات ولم افهم العلاقة بين النموذجين ممكن حضرتك ..قبل الدخول في البرمجة ...تشرحي لنا ايه الغاية ؟ يعني بأختصار ..اي اللي في بالك تعمليه تحياتي للجميع

ابنتي العزيزة ..من الواضح انك تريدي تجميع التحاليل حسب التاريخ ال ID ثابت لك مريض (عافانا واياكم)

مشاركة مع اخي الاستاذ @محمد احمد لطفى ضعي الكود التالي تحت زر تحديد الكل DoCmd.RunSQL "UPDATE test_order_tbl SET drawn=true;" Me.Requery والكود التالي تحت زر الغاء الكل DoCmd.RunSQL "UPDATE test_order_tbl SET drawn=false;" Me.Requery تفضلي الملف تحديد الكل والغاء الكل.rar

ان كنت تحتاجها في الاستعلام ...جرب المرفق بدون أيام الإجازة.rar

مشاركة مع اخي @Foksh المفروض اذا اضفت 7 ايام الى تاريخ 16/11/2023 تكون نهاية العمل بتاريخ 26/11/2023 (داخل) اي نهاية الدوام الرسمي اما اذا اردت ان يكون التاريخ 27/11/2023 ..اضف يوم الى هذا السطر daysNumber = Me.daysNumber.Value +1 بدون أيام الإجازة.accdb

سؤالك جميل للغاية ..سيجعلني اعيد دراسة المصفوفات (Matrix) من جديد ..بعد انقطاع 36 سنة لكن احب ان اعرف ..لماذا تحتاج لهذا ؟ هل يمكنك ان تعطينا مثالا عمليا للحاجة لمثل تلك العملية الحسابية انا شغوف لمعرفة ذلك ..

طيب ..شوف التعديل و خبرني النتيجة 444.rar