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

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

السلام عليكم جرب الكود التالي (بتحفظ): Sub Conditional_Print() For I = 1 To 3 With Worksheets("ورقة" & I) .Activate If .Cells(3, 2) = "راسب" Or .Cells(3, 2) = "غائب" Then GoTo 1 ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False End With 1 Next Worksheets("ورقة1").Activate End Sub

واشارك مع استاري جعفر وتفضل كمان Calendar Month View.rar واشارك مع استاري جعفر وتفضل كمان

جرب هذا الحل ، على أساس أن كل المدد 5 سنوات. حساب المدد_03.xlsb

مع ملاحظة أن تنسيق الوقت لا يقبل أكثر من 24 ساعة ، فلو تجاوزت الساعات الإضافية 24 ساعة فـ "سيقلب العداد" وسيبدأ من الصفر. بمعنى لو وصلت الساعة 25 ساعة ستراها ساعة واحدة فقط. لذلك فأنت تحتاج إلى تنسيق رقم عشري للمجموع.

نعم صحيح باش مهندس ,,, انا قمت بالتعديل على المعادلة التي ساعدتني بها كالتالي : =Nz(DSum("[blance]";"recept";"[acc_no_recpt]=" & [Forms]![n_name]![av1] & "AND date < [Forms]![n_name]![av3]");0) علما انني في السابق تعبت كثيرا الى ان اوصلتموني الى الحل ....😍

كلنا نفشل ونتعلم .. الدالة NZ من الدوال المهمة والتي تسبب مشاكل عند تنفيذ المعادلات الحسابية وهناك حقول فارغة ...فهذه الدالة تقوم بتحويل الحقول التي ليس بها شي Null value الى قيم اخرى ...فمثلا لديك حقول ارقام تلفونات ..وتريد ان تكتب (لايوجد رقم) في الحقول (الفارغة) NZ(PhoneNumber, " لايوجد رقم ") او تريد ان تعود اليك القيم ب صفر في العمليات الحسابية حتى لايحصل خطأ فتكتب .. Nz(Dsum("field","table","Criteria"),0)

إضافة أخيرة للموضوع جمع بين تنسيق جمع السنين "0000-0000" واستخدام القائمة بدلا من الاستعلام أو الجدول. هذه الإضافة للموضوع وليس لصاحب الموضوع 🙂 MissingYears_05.rar

تفضل اخي 2022-2021 INVOICE.xlsx

بالاضافة لما تفضل به الاخ @عبد الله قدور يمكنك ان تضع الكود التالي في مصدر بيانات حقل الرصيد السابق دون الحاجة للاستعلام DSum("[blance]";"recept";"[acc_no_recpt]=" & [Forms]![n_ame]![av1] & "AND date < [Forms]![n_ame]![av3]")

تم اختيار اجابة ابو بسملة كأفضل اجابة

لا يشرفنا تواجدك بيننا .. حشفا وسوء كيل

مشاركة مع استاذنا ابو خليل ممكن عملها بالكود بدون الحاجة الى استعلام في حدث عند النقر لزر الامر بحث نضع الامر التالي ⬇️ Dim strWhere As String strWhere = "" strWhere = "[username] like '*" & [List15] & "*'" strWhere = strWhere & " and " & "[xdate] between " & Format(Nz(start, "01/01/1900"), "\#mm\/dd\/yyyy hh\:nn\:ss\#") & _ " and " & Format(Nz(ind, "01/01/2100"), "\#mm\/dd\/yyyy hh\:nn\:ss\#") & "" Me.Filter = strWhere Me.FilterOn = True ممكن الاستغناء عن طلاسم التنسيق للحقل باستخدام دالة للاخ جعفر ولكن مالي مزاج ابحث عنها في جميع الاحوال طريقة الاستعلام اسهل وانصح بها اخيرا قالت العرب "الصمت حكمه وقليل فاعله" تحياتي

حل استاذي @ابوبسمله هو مطلبي وهو ما اخذت به .. وجزاه الله غني خيرا ً.. و @AbuuAhmed راعي الاولة وجميع ما تفضلتم به كان صحيح واضاف الينا معلومة جديدة ... ولم يتسنى لي مراجعة اختياري من شدة انبهاري وإعجابي بما تفضلتم به من حلول .. اكرر شكري وامتناني لكم جميعاً ..ولا حرمنا من مساعدتكم .. خالص المحبة والدعاء لكم كلاً بسمه وصفته

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

اساتذتي الكرام .. اكتمل الحل بمشاركتكم الرائعة @ابوخليل @ابوبسمله شكراً جزيلاً لكم والشكر ايضاً موصول لجميع الاساتذه الكرام @kkhalifa1960 @AbuuAhmed @ابو عارف الذين ساهموا في حل ذلك ... اخذت كثيراً من وقتكم الثمين لكن اسئل الله ان يكرمكم في الدارين وان يعطيكم ما تتمنواه ... ومهما قلت شكراً لان افيكم حقكم .. لكم مني خالص المحبة والود والدعاء ...

مرحبا باستعمال الدالة COUNTIF تم عمل المطلوب في الملفالمرفق... استفسار.xlsx

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

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

طريقة أخرى .. في الطريقة الأولى حاولت تجنب استخدام جدول لحفظ النتائج مما يسهم سلبا في توسيع حجم البرنامج مع كل عملية حذف وإضافة، ولكن في هذا المثال لابد من استخدامه. MissingYears_03.rar

تفضل أخي ها احدمحاولات , يعرض لك رسالة سنين مفقودة test2023_2.accdb

هذا اللي جاء في بالي الآن، أكيد في طرق مختصرة بس ما جاء وقتها الآن 🙂 MissingYears_01.rar

ممكن يكون ذلك من خلال معادلة صفيف (Ctrl+Shift+Enter) =SUM(IF($B$2:$B$5=$F$2,$C$2:$D$5,"")) او هذه معادلة عادية =SUMPRODUCT(--($B$2:$B$5=$F$2)*$C$2:$D$5)

جرب اجمع الاتنين =SUMIF(B:B;F2;C:C)+SUMIF(B:B;F2;D:D)

أخى الاستاذ : نور تحية طيبة تم عمل ماطلبت واتمنى من الله ان اكون وفقت فيما طلبت 1 - تحديد السنة والشهر واسم الإدارة واسم المدرسة ونوع الطالب ذكر= 1 والانثى = 2 من صفحة (رصد غياب الصف الاول ) بالاضافة الى اسم الطالب فى كل صفحة على حده واذا غيرة السنة او الشهر اعد اختيار اليوم من صفحة الاحصاء من الخلية (g3) 2 - عند فرز الطلاب كعد غياب حدد الفصل من الخلية (aq5) وحدد الايام التى تريد ارسال الإنزار ومن الخلية (ar5) ثم اضغط زر تنفيذ الماكرو المكتوب علية (اسماء الطلاب بعدد أيام غياب محدد) وذلك بكل الصفحات 3 - نختار من الخلية بدبل كليك سوف تكتب (غ) وكل الشكر للاستاذ رجب جاويش الذى ساعد فى اتمام العمل اخيك / احمد البحيرى رصد غياب الشهر للطلاب.rar

أنا استخدمت شهر يوليو كمثال أكمل أنت الباقى على نفس النمط