M.Abd Allah

طيب السلام عليكم ورحمه الله وبركاته اعزرني انا اللي جايز مش فاهم قوي انا عملت لحضرتك كذا استعلام على حسب فهمي لو في حاجه قريبه من اللي انت عايزه انا تحت امرك ويسعدنى المساعده شوف المثال ده قاعدة بينات القزق -2.rar

السلام عليكم ورحمه الله وبركاته انا عملت لحضرتك استعلام بناء على مافهمته من شرح حضرتك اتمني يكون هو ده المطلوب لو فى اي اختلاف عن ما فهمته برجاء توضح مشكلتك بالتفصيل تجياتي قاعدة بينات القزق -1.rar

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

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

فرصه سعيده فرصه سعيده

رجاء إيضاح كده من الاول حتي نحصلي علي ما تريدين مبروك طباعه تحاليل بشروط تم الحل.accdb

السلام عليكم اتمني يكون ده المطلوب تم اضافه حقل عدد مرات الطباعه فى الجدول وربطه بالنموذج الفرعى تم عمل تقرير فاضي عشان يكتمل عمل الكود ( تقدرى تبدليه بالتقرير بتاعك ) طباعه تحاليل بشروط.accdb

وعليكم السلام ورحمه الله وبركاته حضرتك راجع المثال ده اخي كيفية اعادة الترقيم التلقائي في النموذج الى الرقم ١ عند دخول السنة الجديدة https://www.officena.net/ib/topic/122084-كيفية-اعادة-الترقيم-التلقائي-في-النموذج-الى-الرقم-١-عند-دخول-السنة-الجديدة/

وعليكم السلام ورحمه الله وبركاته اللي انا فهمته من مثالك هل تريد اضافه مده الايجار ( شهرين - سنه كامله ) وهكذا الي تاريخ بدايه الايجار عشان تحصل علي تاريخ انتهاء الايجار ؟ ولا أنا كده فاهم غلط

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

وعليكم السلام ورحمه الله وبركاته اتفضل انا معملتش حاجه غير تعديل في تصميم التقرير ليعرض كل الشهادات مسريله كما طلبت اتمني يكون ده طلبك وسواء فتحت التقرير لوحده أو من خلال form1 mas_s1 - edit.rar

السلام عليكم ورحمه الله وبركاته اتمني يكون ده المطلوب LOG IN - edited.accdb

الله امين وإياكم تحت امرك

وعليكم السلام ورحمه الله وبركاته اخي جرب الكود ده وقولي النتيجه Private Sub Form_MouseWheel(ByVal Page As Boolean, ByVal Count As Long) On Error GoTo ErrorHandler ' حفظ السجل الحالي قبل التنقل إلى السجل التالي أو السابق If Me.Dirty Then DoCmd.RunCommand acCmdSaveRecord End If ' التنقل بين السجلات باستخدام عجلة الماوس If (Count < 0) And (Me.CurrentRecord > 1) Then DoCmd.GoToRecord , , acPrevious ElseIf (Count > 0) And (Me.CurrentRecord < Me.Recordset.RecordCount) Then DoCmd.GoToRecord , , acNext End If Exit Sub ErrorHandler: MsgBox "An error occurred: " & Err.Description, vbCritical End Sub

وعليكم السلام ورحمه الله وبركاته اقتراح بما أن الجداول تحتوي علي ملايين السجلات وده بيعطل عمليه الفرز أو البحث وما الي ذلك ممكن حضرتك تجرب تقسم الجداول وبكده تبقي قللت البطئ اللي بيحصل وحصلت علي سرعه

اكيد هيكون افضل وخصوصا لو حبيتي تعملي اكتر من صب ريبورت زي مكنتي بتقولي او لو هتغيري مثلا اكتر من صب فورم أو هتعملي داله معينه بعد كده يعني تقوليلها في حاله تحليل CBC يظهر تقرير كذا أو فى حاله pcr يظهر كذا تحت امرك في اي وقت كلنا هنا بنحاول نساعد بعض ميهمكيش

مفيش اي تعب الموضوع بسيط تحت امرك تعديل التقرير فورم بزرار.accdb

والزرار المعين ده في كود ايه ولا موجود فين

السلام عليكم ورحمه الله وبركاته تم ازاله الصور من البرنامج عن طريق مسحها من جدول MSysResources اتفضل التعديل LAB_2024 تعديل.rar

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

شغال والله بس الكهرباء ساعتها فصلت قبل مكنت احاول اعدل فيه هعدل فيه وابعت الملف

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

طيب تمام حطي الكود ده فى 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 ولا أنا فاهم كده غلط

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