كل الانشطه

وعليكم السلام ورحمة الله تعالى وبركاته الخلية C2 عدد المعدات : =COUNTIFS(بينات!$D$3:$D$500, $A$2, بينات!$AS$3:$AS$500, $B$2) الخلية D2 عدد الساعات : =SUMIFS(بينات!$AN$3:$AN$500, بينات!$D$3:$D$500, $A$2, بينات!$AS$3:$AS$500, $B$2) التنسيق الشرطي إذا كانت الساعات أقل من 500 حدد الخلية D2 ثم ===== > Conditional Formatting ==> New Rule ==> Use a formula to determine which cells to format واكتب الصيغة التالية: =D2<500 المعدات v2.xlsx

وهذا هو المطلوب أخي الكريم .. شكراً لك ، ولكم من الدعاء النصيب الأكبر بإذن الله .

تفضل Data128.rar

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

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

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

تفضل ملفك ..... NA_1.accdb الرسالة تظهر عند الضغط على اضافة

السلام عليكم ورحمة الله وبركاته غيرت الشيفرة وادخلت تواريخ ولم يمنع التكرار

غير الشيفرة الموجودة تحث حدث الزر الى .... Me.Recalc If DLookup("[absdate]", "[hol]", "[absdate] =#" & [Forms]![تسجيل الحضور والغياب]![نص11] & "#") Then MsgBox "تم تسجيل غياب هذا اليوم" Else DoCmd.SetWarnings False DoCmd.RunSQL "INSERT INTO hol ( [no], absdate ) " & _ " SELECT emp.[no], [forms]![تسجيل الحضور والغياب]![نص11] AS Expr1 " & _ " FROM emp " & _ " WHERE (((emp.Att)="" غياب""));" DoCmd.RunSQL "UPDATE emp SET emp.Att = """";" DoCmd.SetWarnings True End If

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

اضفت حقل صغير في جدول الموظفين...... جرب الملف NA_1.accdb

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

أخي الكريم ، اذا رأيت أن مشكلتك قد تم حلها ( والحمد لله ) ، فضلاً وليس أمراً لا تنسى النقر على عبارة للإجابة التي حققت طلبك .

اخى الفاضل عند الضغط على ... يظهر report share برجاء تحديد المطلوب

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

بارك الله بك ، ونفع بك ,, أشكرك أخي ناقل على تهنئتك

الف مبروك اخي الكريم .... مزيدا من التألق

الف مبروك اخي الكريم .... مزيدا من التألق

يعني انت تريد تسجيل غياب الموظفين جميعا .... ثم الضغط علة اضافة يتم ادراج تاريخ الغياب كل الموظفين الغائبين فقط تريد هذا "" ؟؟؟؟

نعم، برنامج الأوفيس ومن ضمنه Excel متوفر بنسختين: إصدار 32bit و إصدار 64bit

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

جزاك الله خيرا . اهتمامك استاذنا العبقري جزيل الشكر كونك دائما رمزا للعطاء اعزك الله وحفظك و يبارك في عمرك وعملك .

مداخلة فيما يتعلق بإعدادات اللغة الإقليمية في الويندوز ,, اذا كان الويندوز لديك إصدار 10 أو 11 ، فجرب اقرأ ها الموضوع ، عله يكون مفيداً لك .. الإصدار الأخير من الأداة في هذه المشاركة هنا ..

وعليكم السلام ورحمة الله وبركاته .. رغم أنك الى حد ما قريب من تحقيق هدفك في محاولتك داخل الزر .. إلا ان بعض النقاط قد غابت عنك ، مثل :- تنسيق التاريخ بشكل صحيح . استخدام دالة DLookup بطريقة سليمة عند مقارنة التواريخ . يفضل استخدام Format عند التعامل مع التواريخ في SQL لتفادي أخطاء اللغة الإقليمية وتنسيق التواريخ . على العموم ، جرب هذا التعديل على ملفك الصلي إن كان صحيحاً :- Private Sub أمر24_Click() Dim numFonct As Long Dim dateGrade As Date Dim critereRecherche As String Dim resultat As Variant numFonct = Nz(Me!num, 0) dateGrade = Nz(Me!date_grade_poste_actuel, #1/1/2000#) critereRecherche = "code_fonct = " & numFonct & " AND date_nomination = #" & Format(dateGrade, "yyyy-mm-dd") & "#" resultat = DLookup("code_fonct", "tbl_masser_mihani", critereRecherche) If Not IsNull(resultat) Then MsgBox "هذه المعلومات موجودة من قبل", vbExclamation + vbMsgBoxRight, "" Exit Sub End If DoCmd.SetWarnings False DoCmd.RunSQL _ "INSERT INTO tbl_masser_mihani (code_fonct, loi_fondamontale, grade, sinf, date_nomination, numero_visa_cf, date_visa_cf) " & _ "SELECT num_fonctionnaire, loi_fondamontale, grade_poste_actuel, categorie, date_grade_poste_actuel, num_visa_grade_poste_actuel, date_visa_grade_poste_actuel " & _ "FROM tbl_info_fonctionnaire " & _ "WHERE num_fonctionnaire = " & numFonct DoCmd.SetWarnings True MsgBox "تمت الإضافة بنجاح", vbInformation + vbMsgBoxRight, "نجاح" End Sub

اخي افتح المرفق التالي ، واختر فلترة عشوائية لأي بيانات ، وانقر زر افتح التقرير .. الترتيب والتصميم حسب رغبتك . ما تم هو انشاء تقرير مبني على الإستعلام Qsearch4 ، وإضافة الحقول نفسها من الاستعلام الى التقرير .. حيث ان الاستعلام مشروط بالفلترة ، وما سيتم تطبيقه على التقرير هو عرض السجلات التي تم فلترتها فقط الجمعية 28.zip