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

ربما هو المطلوب BASE-E5_02.accdb

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

تسلم استاذي بارك الله فييك

Let's get Access talking!

وعليكم السلام ورحمة الله وبركاته ,, جرب اكتب اي قيم رقمية وانقر كلمة يساوي test.zip

مشاركة الأستاذ @AbuuAhmed ، جميلة وتؤدي الغرض بكفاءة باستعمال Case بدلاً من الجملة الشرطية If .. ومشاركة معه ضمن نفس الاسلوب باستعمال If If typ = "مهندسين" Then rs!evalu_moubadara_chaksia = 4.5 rs!evalu_itkan_elamel = 4.5 rs!evalu_nachatat_tarbia = 4.5 rs!evalu_absence = 8 rs!evalu_retard = 4 rs!evalu_tatwir = 4.5 ElseIf typ = "أساتذة" Then 'عدل القيم اسفلها حسب رغبتك rs!evalu_moubadara_chaksia = 4.5 rs!evalu_itkan_elamel = 4.5 rs!evalu_nachatat_tarbia = 3 rs!evalu_absence = 8 rs!evalu_retard = 4 rs!evalu_tatwir = 4.5 rs!evalu_absence_prof = 12 rs!evalu_retard_prof = 4 rs!evalu_nadawat_prof = 6 rs!evalu_nachatat_tarbia_prof = 6 rs!evalu_mobadara_prof = 12 Else rs!evalu_absence_prof = 12 rs!evalu_retard_prof = 4 rs!evalu_nadawat_prof = 6 rs!evalu_nachatat_tarbia_prof = 6 rs!evalu_mobadara_prof = 12 End If وسأنصحك باستعمال فكرة الستاذ أبو احمد اذا كانت الجمل الشرطية كثيرة لأنها أسرع في الأداء 😇 * وجهة نظري غير ملزمة طبعاً

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

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

تفضل How To Find And Replace Fill Color In Excel?

وعليكم السلام ورحمة الله وبركاته تم انشاء كود الطباعة والمعاينة اتمنى ان تجد في الحل طلبك لك وافر الاحترام Sub Print_All_Employees() Dim ws As Worksheet Dim cell As Range Dim rng As Range Set ws = ThisWorkbook.Sheets("إداريين") Set rng = ws.Range("C3:C137") Application.ScreenUpdating = False For Each cell In rng If cell.Value <> "" Then ws.Range("CQ6").Value = cell.Value ws.PageSetup.PrintArea = "CP5:CY47" ws.PrintOut End If Next cell ws.Range("CQ6").Value = rng.Cells(1, 1).Value Application.ScreenUpdating = True MsgBox "تمت طباعة جميع الموظفين بنجاح.", vbInformation End Sub طباعة الكل بضغطة.xlsm