كل الانشطه

شكرا جزيلا لكما وبارك فيكما وزادكما الله من علمه أخي الفاضل أنا طبقت مثلما قال أخي الكريم ( ابو خليل ) أدام الله عليه الصحة والعافية ولكن لم يفلح معي وأصلا الاستعلام الأول موجود فيه mgmo1 والاستعلام الثاني موجود فيه total

جزاك الله خيرا وجعل علمك فى ميزان حسناتك استاذى الكريم

الله يعافيك أستاذ : hegazee شكرا لكم وبارك الله فيكم

وعليه ، "قضي الأمر الذي فيه تستفتيان" وعليه تم الحل بالتعديل الذي أشار إليه أستاذي الفاضل ( أساس الموضوع ) 😇 .

شكرا استاذنا الفاضل .. والحل او طلب الأخ سعد موجود فعلا .. ويحتاج الى تعديل طفيف ............... 1- الاستعلامان qry_term1 و qry_term2 هما المسؤلان عن عرض الألوان 2- نأخذ من كل واحد نسخة طبق الأصل ثم نعدل على التسمية مثلا qry_term11 و qry_term22 3- نستبدل القيمة color1 الموجودة في الاستعلام الاول بـــــ القيمة mgmo1 4- نستبدل القيمة color2 الموجودة في الاستعلام الثاني بـــــ القيمة total نجعل هذين الاستعلامين مصدر بيانات التقرير هذا كل شيء

السلام عليكم ورحمة الله وبركاتة اخواني الاعزاء الرجاء منكم المساعدة في حل هذا البرنامج وهو عبارة عن فتح النماذج عن طريق القائمة المنسدلة واريد كذلك فتح الملف المرفق بالاكسل يكون من ضمن القائمة باسم (a1 ) طبعا كلهم في الاكسس والمطلوب موجود في البرنامج جزاكم الله خير الجزاء test.accdb a1.xlsx

شكرا جزيلا أخي الفاضل علي تعبك معانا وربنا يجعله في ميزان حسناتك بعد التجربة النتيجة بتحتوي علي درجة التحريري اللي بنسميها في جدول الدرجات Tbl_degree_Detail ( درجة 1) عند اختيار الفصل الدراسي الأول وعند اختيار الفصل الدراسي الثاني تظهر النتيجة مسجل بها درجة التحريري اللي بنسميها ( درجة 2 ) ولكن المفروض في نتيجة الصفوف في الفصل الدراسي الأول ( درجة1 + درجة أعمال1 ) وفي الفصل الدراسي الثاني ( درجة1 + درجة أعمال1 ) + ( درجة2 + درجة أعمال2 ) مقسوم علي 2 انظر جدول الدرجات Tbl_degree_Detail او استعلام qry_master مرفق لكم الملف بعد وضع درجات للصف الثالث للتجربة Data19_4.rar

وعليكم السلام ورحمة الله وبركاته "جزاك الله خيرًا على دعائك الطيب، أسأل الله أن يرزقك أضعاف ما دعوت لي، وأن يبارك لك في عمرك وعملك." هذا الكود يعمل في شيت معاشات لو ربطته بزر لوحده ولكن دمجه مع كود الترحيل يحناج الى وضعه في المكان المناسب وبطريقة مناسبة بحيت يصبح الكود بهذا الشكل With wsTarget.Range("B5:B10000") .HorizontalAlignment = xlRight .VerticalAlignment = xlCenter End With حيث wsTarget تعنى شيت معاشات حيث قمنا بتعريفها في بداية الكود بدلا من اعادة كتابة اسم الشيت كل مرة Set wsTarget = ThisWorkbook.Sheets("معاشات") اليك الملف بعد اظافة محاداة الاسماء لليمين اتمنى انى قدمت لك ما بفيد ترحيل بيانات الموظف المحال للمعاش إلى شيت آخر وحذفه من قاعدة البيانات 7.xlsb

وعليكم السلام ورحمة الله وبركاته ، أخي الكريم ، ودون العبث في تأسيس الإستعلامات الرئيسية لديك التي قام بها معلمي الفاضل @ابوخليل والتي هي أساس النجاح الذي وصل إليه المشروع الى هذه اللحظة ، سأقوم بانشاء استعلام جديد وسأفترض تسميته = qry_DarajatData مبنياً على فكرة دمج الإستعلامين ( qry_drjat_term1 و qry_drjat_term2 ) في استعلام واحد يحقق الغاية التي تريدها ، وسيكون كود SQL لهذا الاستعلام الجديد كالآتي :- PARAMETERS [Forms]![frm_Reports]![ComboSaf] Short, [Forms]![frm_Reports]![termNum] Short; TRANSFORM IIF([Forms]![frm_Reports]![termNum]=1, First(qry_master.mada1), First(qry_master.mada2)) AS FirstOfmada SELECT qry_master.alsaf_Id, qry_master.draseDate, qry_master.Stucard, qry_master.Studentname, qry_master.fsl_id, qry_master.Stugalos, qry_master.StuSery, qry_master.gender, qry_Temp.vHodor, qry_Temp.alnesbah, qry_Temp.tgyeem1, qry_Temp.hala FROM qry_master LEFT JOIN qry_Temp ON qry_master.Stucard = qry_Temp.Stucard WHERE (((qry_master.alsaf_Id)=[Forms]![frm_Reports]![ComboSaf])) GROUP BY qry_master.alsaf_Id, qry_master.draseDate, qry_master.Stucard, qry_master.Studentname, qry_master.fsl_id, qry_master.Stugalos, qry_master.StuSery, qry_master.gender, qry_Temp.vHodor, qry_Temp.alnesbah, qry_Temp.tgyeem1, qry_Temp.hala PIVOT qry_master.madaNum In (1,2,3,4,5,6,7,8,9,10,11,12,13,14); واجعل هذا الاستعلام الجديد مصدر سجلات التقرير rep_Kashf ولاحظ النتيجة ان كانت سليمة أم لا ,, مرفقك بعد التعديل Data19.zip

الأستاذ / عبدالله بشير عبدالله السلام عليكم ورحمة الله وبركاته وختامه مسك ماذا لو أردت أن تكون محاذاة الأسماء (في شيت معاشات) بعد ترحيل الأسماء بداية من الخلية B5 وحتى نهاية الشيت: HorizontalAlignment = xlRight & VerticalAlignment = xlCenter كما هو بالفعل حاولت مع شيت آخر بأن عملت Module وكتبت فيه الكود التالي: Sub alignment() Range("B5:B10000").HorizontalAlignment = xlRight Range("B5:B10000").VerticalAlignment = xlCenter End Sub وتم بنجاح؛ ولكن لم تفلح محاولتي في شيت معاشات بعد الترحيل وجزاكم الله خير الجزاء ودمتم في حفظ الرحمن

جرب هدا عملاء مكررين v2.xlsb

المشروع بحاجة الى اعادة بناء ، وخصوصاً موضوع الجداول والعلاقة فيما بينها ، ثم النقطة المتكررة دائماً وهي الإبتعاد عن الأسماء المحجوزة لآكسيس من أسماء الحقول والجداول والعناصر ... إلخ الآن النقطة الثانية انظر الصورة التالية لمصدر سجلات النموذج :- ما علاقة الجداول Data,Location_all,Location في النموذج . هذا أولاً .. ثانياً هل الجدول Data (وهو اسم محجوز لآكسيس) ، يتم تخزين قيم من النموذج الى هذا الجدول ؟؟؟؟؟ إن كان لا !! فلا حاجة لوجوده كمصدر سجلات ( من وجهة نظري ) لجلب البيانات منه . ومن هنا سكفيك وجود الجدول Fawri فقط كمصدر لتخزين القيم من النموذج مع ضبط الحدث بعد التحديث بحيث عند اختيار اسم الموظف يتم ادراج القيم الخاصة به الى مربعات النص في النموذج . هذه وجهة نظري ( الغير ملزمة طبعاً ودائماً ) .. مرفق لفكرة بدائية بسيطة لجلب القيم للموظف الذي تم اختياره من الكومبوبوكس جربه وأخبرني بالنتيجة .. Pepsi.zip

وعليكم السلام ورحمة الله وبركاته لديك الحق الجزء الخاص بحدود الصف الثالت With ws.Range("C3,E3,H3,J3") .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter .Font.Bold = True .NumberFormat = "0" .Borders.Weight = xlThin End With .Borders.Weight = xlThin وزن الخط رفيع يتم تعديله الى .Borders.Weight = xlMedium وزن الخط منوسط كذلك يجب تعديل With ws.Range("C3,E3,H3,J3") لانها نشمل خلايا معينة لتحديدها ويتم تعديلها لتشمل النطاق With ws.Range("B3:J3") الملف بعد التعديل ترحيل بيانات الموظف المحال للمعاش إلى شيت آخر وحذفه من قاعدة البيانات 7.xlsb لك كل الود والاحترام

إخواني الأعزاء بعد سلام الله عليكم ورحمة الله وبركاته الملف المرفق عند فتحه يظهر فورم عند اختيار الفصل الدراسي والفئة والصف ثم الضغط علي زر كشف تظهر نتيجة الصف بالألوان ( أزرق - أحمر _ أخضر .. وهكذا كما بالصورة الآتية : محتاج النتيجة تكون بالدرجات بدلا من الألوان كما بالصورة الآتية مع شرح بسيط بارك الله فيكمData18.rar

شكرا جزيلا أخي الفاضل

و عليكم السلام ورحمة الله و بركاته تفضل الملف تجربة ايجارات (2).xlsx

الأستاذ / عبدالله بشير عبدالله السلام عليكم ورحمة الله وبركاته ماذا لو أردت أن يكون الحد الأيسر للخلية J3 مثل الحد الأيسر للخلايا من I3: B3 (في شيت معاشات) وجزاكم الله خير الجزاء ودمتم في حفظ الرحمن

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

ارجو المساعدة

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

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

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

الاخوة الخبراء الكرام الافاضل السلام عليكم ورحمة الله وبركاته محتاج مساعدة الخبراء في كتابة كود insert into لان كل محاولاتي فشلت انا عندي فورم اسنها fawri بتاخد البيانات الاساسية من جدول data عايز اضافة البيانات دي تضاف لجدول fawri علشان يتكمل بيناته حاولت باتسعلام الحاق وفشلت بردو برجاء المساعدة Pepsi.rar

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

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