M.Abd Allah

طيب تمام حطي الكود ده فى on format بتاع ال page header Private Sub PageHeaderSection_Format(Cancel As Integer, FormatCount As Integer) Dim intDetailHeight As Integer Dim intRecordCount As Integer Me.A.Report.Visible = True intDetailHeight = Me.A.Report.Section(acDetail).Height intRecordCount = 2 Me.A.Height = intDetailHeight * intRecordCount Me.PageHeaderSection.Height = Me.A.Height End Sub إن شاءالله هيظهر معاكي تقرير ال sub فى وضع الطباعه

السلام عليكم هو حسب مافهمت كده من المرفق أن ده تقرير لمعمل تحاليل مش المفترض أن التقرير اللي زي hln اللي بيبين بيانات المريض يبقى فى page header ولا أنا فاهم كده غلط

إذا حضر الماء بطل التيمم اتفضل خد راحتك يا بروف 😉 😉 كده الاستاذ يعتبر أن مشكلته محلوله إن شاءالله ❤️ ❤️

السلام عليكم عشان كده لما لقيت في ارقام غير متطابقة مرضتش أقول إنك ماخدتش بالك وقولت يمكن الداله اللي فيها حاجه فعملت واحده غيرها بص اتأكد من تطابق الارقام كويس وتطابق الكلمات ولو اكيد اعدلك الداله أما موضوع الزرار ده بسيطه جدا إن شاءالله دا بيبقي عباره عن أنه في حدث عند النقر نقوله Call UpdateBooksWithMNO2

وعليكم السلام ورحمه الله وبركاته - حدد العمود الذي يحتوي على التواريخ في الجدول. - انقر بزر الماوس الأيمن داخل العمود المحدد. - اختر "تنسيق الخلية" من القائمة المنسدلة. - في نافذة "تنسيق الخلية", انتقل إلى علامة التبويب "عدد". - اختر "تاريخ" من القائمة على اليسار. - اختر التنسيق المطلوب للتواريخ أو قم بإنشاء تنسيق مخصص إذا لزم الأمر. - انقر على "موافق" لتطبيق التغييرات. بهذا، سيتم تطبيق التنسيق الجديد على جميع الخلايا في العمود الذي تم تحديده والذي يحتوي على التواريخ. جرب الخطوات دي وشوف إن شاءالله هتظبط معاك ولو مظبطتش لا قدر الله تفيدنا بالمرفق وإن شاء الله تتعمل علطول زي محضرتك عايز

السلام عليكم ورحمه الله وبركاته انا حاولت اعمل الي حضرتك عايزه واتمني ان تجد المطلوب فى المديول الموجود وطبعا لانى معرفش مدى صحه الارقام اللي حضرتك كاتبه فعملت دالتين فى المديول هتلاقي كل ماكرو يشغل واحده منهم شوف ايه الانسب ليك عشان انت تقدر تراجع بياناتك بدقه عنى Smart_Search_function.accdb

وعليكم السلام ورحمه الله وبركاته هتعمل الاول استعلام تحديد عشان يحددلك أول 20 سجل SELECT TOP 20 * FROM [اسم_الجدول] WHERE [شرط_التصفية] ORDER BY [حقل_الفرز]; بعدها تعمل استعلام تحديث يعتمد عالاستعلام بتاع التحديد ده كالاتى UPDATE [اسم_الجدول] SET [اسم_الحقل] = [القيمة_الجديدة] WHERE [اسم_الجدول].[ID] IN ( SELECT TOP 20 [ID] FROM [اسم_الجدول] WHERE [شرط_التصفية] ORDER BY [حقل_الفرز] );

السلام عليكم ورحمه الله وبركاته الملف شغال كويس واضح ان المشكله من نسخه الاوفيس اللي عندك

روعه يا بروووف ايه الجمال ده 😛