كل الانشطه

Up

Foksh شكرا لك اخي الكريم على مرورك الكريم المقصود بكلمه (الكل) يوجد احيانا اختيار محدد ويمكن اختيار الكل فا اريد اتاحه كافة الاختيارات في الاستعلامات شكرا لك اخي الكريم

ممكن اخواني الاعزاء عندة برنامج قائمة منسدلة يكون الصلاحيات على نفس القائمة اختار منها يوفي بالغرض يعطيني او تعديل على المرفق test.accdb

طيب تمام ، جرب هذه الفكرة السريعة ، وباعتقادي قد تجد أفكار أفضل 100% من الأخوة والأساتذة والمعلمين هنا .. الجمعية 29.zip

وعليكم السلام ورحمة الله وبركاته ,, من باب السؤال أخي الفاضل ، ماذا بعد أن يتم كلمة (الكل) الى الكومبوبوكسات ؟؟؟؟؟؟؟؟؟؟؟؟؟ اعلم أن من وراء هذا الطلب سيكون طلب آخر ، لذا آتنا به .

السلام عليكم اساتذتي الكرام بعد التحيه برجاء مساعدتي في انشاء كلمة (الكل) داخل كل كومبو بوكس عند الاستعلام مرفق البيان ABDatabase.rar

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

لا لا حضرتك اعمل اي عدد حتى ولو 5 اعمده فقط وانا هنسق ده وشكرا

بارك الله فيك اخونا منتصر الانسي على الاهتمام و لكن المشكلة كما موضحة بالفيديو أنه عند اختيار منطفة تتساوى فيها قيمة العلاوة لا تتغير المنطقة المطلوبة بل تبقى المنطقة الاولي في ترتيب الجدول Screen Recording 2025-06-28 161900.zip

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

طيب جرب هذا الكود بدل الموجود تحت الزر عندك .... 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