نجوم المشاركات

السلام عليكم ورحمة الله وبركاته استقطعت هذا الجزء من احد برامجي عندما يكون عندك صور/صورة بأحجام مختلفة ، وتريد ان تُكبر الصورة حتى تراها بالحجم الاصلي الكبير ، ولكن داخل برنامج الاكسس ودون الاستعانه ببرنامج خارجي: 1. افتح/تصفح المجلد الذي تريد رؤية صوره ، 2. سترى اسماء الصور في القائمة ، وعند النقر على الاسم ، سترى صورته ، 3. في اي مكان في الصورة ، يمكنك النقر مرتين ، وستكبر الصورة ، وكلما تنقر مرتين يزداد حجمها ، الى ان ترجع الى حجمها الذي يملئ الشاشة ، 4و5. وتستطيع رؤية بقية/تفاصيل الصورة بسحبها لأعلى/اسفل او يمين/يسار: الملف اسمه: Browse_images.mdb.zip تعديل رقم 1: شكرا لأخي ابو خليل على تنبيهي بوجدود خطأ مطبعي في الملف المرفق سابقا ، تم تعديل الملف وتم إضافة الملف التالي: Browse_ONE_image.mdb.zip بعض الاوقات نريد ان نفتح صورة موجود مساره في قاعدة البيانات (يعني فتح صورة معينة): . فيكون كود فتح الصورة: DoCmd.OpenForm "frm_Open_jpg" Forms!frm_Open_jpg!sfrm_Open_jpg!Image1.Picture = Me.image_Name وهذه النتيجة ، والتي يمكننا النقر عليها لتكبيرها . جعفر Browse_images.mdb.zip Browse_ONE_image.mdb.zip

استغفر الله انا في الخدمة

وانت والجميع هنا بالف خير وصحة وسلامة يارب

السلام عليكم تم تعديل الملف المرفق ، وإضافة ميزة اخرى لإستعمال البرنامج شكرا على حُسن تعبيركم جعفر

انا لدي جدول واحد لبياناتي معنى ذلك تريدني ان اضيف جدولينن اضافيين باسم GENDER و PATIENTS سوف اعمل بعمل طريقتك واعلمك بالنتيجة فعلا انا شاكر ومقدر لك وللمننتدي ولكل الاخوة

السلام عليكم ورحمة الله عيدكم مبارك وكل عام وأنتم بخير.. أخي سليم إن المعادلة التي وضعتُها تخص مجموع عمودين فقط (العمود المظلل والعمود الذي قبله) وقد نبهني أخي عبد العزيز أنه يريد مجموع كل الأعمدة بداية من العمود الأول إلى العمود المظلل (الملون)، حيث قمت بالتعديل على المعادلة بالشكل التالي: =SUM(OFFSET(Rng;;;;Col_X)) أو =SUM(OFFSET(Rng,,,,Col_X)) بالنسبة للمعادلة التي اقترحتَها عليّ في ردك السابق فهي صحيحة غير أن تأكيدها كمعادلة صفيف (Ctrl+Alt+Enter) غير ضروري... وقد تم التعديل على الملف في المرفقات لتمديد المعادلات عند إضافة أعمدة أخرى (حسب طلب أخي عبد العزيز)... حاجي بن علية مطلوب التعديل.xlsx

مرحبًا بك في المنتدى وكل عام وأنت بخير تفضل هذه المعادلة تفي بالغرض بإذن الله شرح الكود: لو الخلية A4 أو الخلية B4فارغة اجعل هذه الخلية فارغة لو كلتا الخليتين بهما قيم اجمع هاتين القيمتين =IF(OR(A4="";B4="");"";SUM(A4;B4))

تفضل اخي اما مشكلة التاب فهية عندك فقط MyCustomerData - Copy.rar

اخي الكريم التاب يعمل عندي بتنسيق جديد جداً علما اني استخدم اكسس 2013 واذا تريد تغيير مواقع زر التاب حسب برنامجك فادخل في النموذج في التصميم وادخل على ترتيب الجدولة وبامكانك تغيير مواقع زر التاب بالضغط والسحب للاعلى وللاسفل اما عن البطء فلا توجد عني هكذا مشكلة بالنيبة للتقرير فيكون انشائه حسب الاختيار بين تاريخين وبامكانك اختيار من تاريخ الى تاريخ ( نكتب نفس اليوم ) ليعرض لك تقارير المنجر ليوم واحد فقط امهلني بعض الوقت

وعليكم السلام ورحمه الله وبركاته لم افهم طلبك اخي ارجو الاستفاضة في التوضيح وكل عام وانتم بخير

عيدكم مبارك وكل عام وأنتم بخير.. اخي بن علية عتد معايتة الملف المرفوع من قبلكم وجدت ان هناك خطأ في نتيجة المعادلة لذا اتقدم بهذا الملف لمقارنة النتائج المعادلة من قبلي (Ctll+Shift+Entre) ارجو الاطلاع =SUM(OFFSET($E$12,,,2,(COUNT($E$12:$L$12)+(MOD(COUNT($E$12:$L$12),2)))/2)) الملف مرفق By_formulaالمصنف1.xlsx

تسلم اخي على الهديه انا مسافر اذا وجد باليمن نت نتواصل

السلام عليكم اخوي ابو ياسين هل هذا الذي تريده ، ولكن طبعا بتغيير بسيط حتى يلائم برنامجك: جعفر

السلام عليكم ورحمة الله تقبل الله منا ومنكم الصلاة والصيام والقيام وكل أعمال الخير... عيدكم مبارك وكل عام وأنتم بخير... تم عمل المطلوب بالمعادلات وبالاستعانة بالتسميات والتنسيقات الشرطية (للتلوين)... أرجو أن تفي الغرض المطلوب. حاجي بن علية المصنف1.xlsx

لا داعي لهذا الكود الطويل جداُ يكفي هذا Option Explicit Sub salim_Macro() Dim col_num As Byte Dim Position As Byte Dim Last_row% Last_row = Cells(Rows.Count, "D").End(3).Row If Last_row < 15 Then Last_row = 15 Range("e11").Resize(Last_row - 10, 100) _ .Interior.Color = vbWhite col_num = Application.Count(Range("E12:CZ12")) Position = (col_num) \ 2 Range("E15") = Application.Sum(Range("E12").Resize(2, Position)) Range("E12").Offset(-1, Position - 1) _ .Resize(Last_row - 11).Interior.Color = 49407 End Sub

يرجي اعادة تجربة الملف مره اخره تظليل.xlsm

وعليكم السلام ورحمه الله وبركاته new.xlsm

فكرة رائعة وخصوصا عرض تواريخ الأعوام الكبيسة 29 فبراير بين السنتين ولإثراء الموضوع هذه معادلة كنت قد صممتها لهذا الغرض وهي ليست معادلة صفيف =DATE(A3,1,1)-DATE(A2,1,1)-(A3-A2)*365+IF(MONTH(DATE(A3,2,29))=2,1,0) وفكرتها بسيطة جدا نفعنا الله جميعا بما علمنا وعلمنا ما ينفعنا