كل الانشطه

الجدول الموجود في الملف حقيقي بالتواريخ واليوم والمادة اريد تفريغ الملاحظين في كشف الملاحظة لكل مادة باليوم والتاريخ واضافة الاحتياطي من الملاحظين الفارغين من الملاحظة بالاحتياطي واستعمال زر Spinner لتغير اليوم والتاريخ والمادة حسب الجدول وعند الطباعة يتم طباعة جميع الايام مرة واحدة

طيب جرب هذا الكود بدل الموجود تحت الزر عندك .... On Error GoTo ErrorHandler Dim db As DAO.Database Dim rsEmp As DAO.Recordset Dim rsHol As DAO.Recordset Dim strSQL As String Dim intCount As Integer Dim blnExists As Boolean ' التحقق من وجود تاريخ في مربع النص If IsNull(Me.Controls("نص11").Value) Or Me.Controls("نص11").Value = "" Then MsgBox "الرجاء إدخال تاريخ في مربع النص نص11", vbExclamation, "تاريخ مفقود" Exit Sub End If ' التحقق من أن القيمة تاريخ صحيح If Not IsDate(Me.Controls("نص11").Value) Then MsgBox "القيمة في مربع النص ليست تاريخاً صحيحاً", vbExclamation, "تاريخ غير صالح" Exit Sub End If Me.Recalc ' فتح اتصال بقاعدة البيانات Set db = CurrentDb() ' إنشاء سجل مجموعة لجدول الموظفين (emp) حيث att = "غياب" strSQL = " SELECT emp.[no], emp.Att " & _ " FROM emp " & _ " WHERE (((emp.Att)="" غياب""));" Set rsEmp = db.OpenRecordset(strSQL) ' التحقق من وجود سجلات If rsEmp.EOF And rsEmp.BOF Then MsgBox "لا توجد سجلات غياب في جدول الموظفين", vbInformation, "لا توجد بيانات" GoTo CleanUp End If ' فتح جدول hol للكتابة Set rsHol = db.OpenRecordset("hol") ' بدء عملية الإدراج intCount = 0 Do Until rsEmp.EOF ' التحقق من عدم وجود سجل مكرر blnExists = DCount("[no]", "[hol]", "[absdate] =#" & [Forms]![تسجيل الحضور والغياب]![نص11] & "# And [no] =" & rsEmp!no & " ") If Not blnExists Then On Error Resume Next ' لتجنب أخطاء الإدراج rsHol.AddNew rsHol!no.Value = rsEmp!no.Value rsHol!absDate.Value = [Forms]![تسجيل الحضور والغياب]![نص11] rsHol.Update If Err.Number = 0 Then intCount = intCount + 1 Else MsgBox "خطأ في إدراج سجل للموظف رقم " & rsEmp!no & ": " & Err.Description, vbExclamation Err.Clear End If On Error GoTo ErrorHandler Else MsgBox "تم تجاهل الموظف رقم " & rsEmp!no & " لأنه مسجل غياب بالفعل في هذا التاريخ", vbExclamation, "سجل مكرر" End If rsEmp.MoveNext Loop MsgBox "تم إدراج " & intCount & " سجل غياب بنجاح", vbInformation, "تمت العملية" CleanUp: On Error Resume Next If Not rsEmp Is Nothing Then rsEmp.Close Set rsEmp = Nothing End If If Not rsHol Is Nothing Then rsHol.Close Set rsHol = Nothing End If Set db = Nothing Exit Sub ErrorHandler: MsgBox "حدث خطأ: " & Err.Description & " (السطر: " & Erl & ")", vbCritical, "خطأ" Resume CleanUp

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

وعليكم السلام ورحمة الله تعالى وبركاته سؤال للتوضيح: هل تفضل عند تنفيذ عملية الترحيل: 1) الاحتفاظ بالبيانات السابقة الموجودة في الأعمدة المرتبطة بالتواريخ القديمة 2) تفريغ البيانات السابقة فقط في نفس الأعمدة الخاصة بالتاريخ المحدد والكود المحدد قبل كل عملية ترحيل جديدة؟ 3) تفاديا للتعديل هل هده هي النطاقات المطلوبة أم هناك صفوف وأعمدة أخرى تمت إزالتها ؟ يرجى اختيار الطريقة المناسبة لظروف عملك من الخيارات التالية لكي نتمكن من إنشاء الكود المناسب

شكرا جزيلا أخي الفضل وبارك الله فيك وأكثر الله من أمثالك

شكرا لك اخوي محمد دايم مشاء الله في الموعد بالمساعدة الله يجزآك خير الملف ممتاز ودي اذا ممكن يتم خصم من خليه D2 كل يوم 10 ساعات على كل معده موجوده في الموقع يعني مثلا لو نوع المعدة Bob Cat في المشروع Al Qassim موجود عدد 4 يتم خصم كل يوم 10 ساعات على كل معده يتم خصم الساعات من خليه D2 عدد الساعات الموجودة ويعديني الباقي في خليه E2 الي فيها التنسيق الشرطي

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

عايز 37 حقل في ورقة وحدة وبجنب بعض في صف واحد 😅 .. طب إزااااااي ؟؟

وإياكم أخي الكريم .. بارك الله فيك

Up

اريد ترحيل عمود السشن بما فية اسم المعلم حسب الاختيار من شيت2 الي شيت3 بشرط تطابق التاريخ والكود ورقم السشن Book2.xlsx

أحسنت وأحسن الله اليك عمل أكثر من رائع .. جعله الله فى ميزان حسناتك وأكرمك الله فى الدارين

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

للاسف مش هو المطلوب انا عايز يكون التقرير مثل الصورة المرفقه ويتم الطباعه

المطلوب عند اختار اليوم والتاريخ والمادة يتم ملئ استمارة ( م .ث) كشف الملاحظة اتوماتيكيا ويتم تحريك الايام والتاريخ والمادة عن طريق Spinner ...... طلب اخر عدد الملاحظين 74 وعدد اللجان 31 يعني 62 ملاحظ اذن الباقي 12 ملاحظ ياريت كل 12 ملاحظ يتم وضعهم في الاحتياطي بتعديل في كود التوزيع توزيع الملاحظين 2025.rar

وعليكم السلام ورحمة الله تعالى وبركاته الخلية 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

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