كل الانشطه

طيب وقبل طرح الحل ، هل النتيجة في الصورة التالية صحيحة ؟ لاحظ أنني قمت بتعديل تاريخ العطل الصيفية والشتوية من 2022 لتصبح 2025

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

استاذى الجليل و معلمى القدير و والدى الحبيب اتفضل Database3.zip

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

الأصل ان مدة العمل طيلة أيام السنة حتى عطلة نهاية الأسبوع تعتبر عمل بإستثناء أيام العطل وجزاك الله خيراً

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

ممكن تعديل الكود اللى فى الشيت المرفق ولكم جزيل الشكر اريد عند تعديل اى كلمة في الخلية a2 يتم تعديلها في مربع النص مع العلم ان مربع النص موضوع قوق الخلية a2 طلب تعديل كود.xlsm

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

مشاركة مع الحبايب BAR1.rar

تمام .. فعلاً به كل شئ 100% ينصح بفتح موضوع مستقل من خلالك بالشرح وإضافة هذا التطبيق إليه ليستفيد منه كل الأعضاء يرجى تحويل الإجابة النهائية إلى هنا .. فالتعديل فى ذلك غير متاح

وعليكم السلام ورحمة الله تعالى وبركاته استاذى الجليل و معلمى القدير و والدى الحبيب اتفضل Database2.zip

اتفضل ان شاء كل شئ تمام Shift Key Bypass V 2.0.8.accdb

متابع بصمت

وعليكم السلام ورحمة الله وبركاته ... الأصل أخي @ahmed_dz ، أن توضح طلبك بأكثر مما قمت به .. فمثلاً :- هل تريد الاحتساب ليكون للفترة بين G2-G3 مع استثناء الفترة التي بين C4-F4 ( العطلتين ) . والأمر نفسه للفترة بين H2-H3 !!!! أم ماذا ؟؟؟ يرجى توضيح مطلبك بحرص أكثر حتى تجد إجابة شافية وسريعة .

السلام عليكم العنوان يصف المطلوب تماما لدي مربعي تحرير مصدر الصف فيهما عبارة عن سطر جملة استعلام .. يتغير المصدر بينهما حسب التحديد وهو عبارة عن فروع وموظفين فاريد ان يظهر الموظفون في المربع بناء على فروعهم في المربع الآخر المثال يغني عن المقال Database1.rar

السلام عليكم طلب مساعدة دالة إكسل لحساب عدد ايام العمل ( ملف مرفق ) ولكم مني جزيل الشكر حساب أيام العمل خلال.xlsx

بارك الله فيك أخ حجازي ونفع بعلمك هذا المطلوب

و عليكم السلام ورحمة الله وبركاته استخدم الصيغة =IFERROR(VLOOKUP(G2;بيانات!$S:$T;2;0);"") نقل رقم الهوية_بناء على رقم الطالب (1).xlsx

السلام عليكم اخي الكريم يوجد عندي ملاحظة بالتقرير بعد قيامي بادخال بعض البيانات الجديدة في البرنامج أرجو النظر فيها تحياتي لكم Ahmed ElShahat.rar

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

السلام عليكم ومع اني كنت متابع صامتا في الظل ، فحان الوقت للمتابعة صامتا ظاهرا 🙂

فيما يلى فى بيئة تشغيل أكسس 2007 المرفق السابق بعد تحييد كل سطور الخطأ التى ظهرت فيه باستخدام Debug Shift Key Bypass V 2.0.7.rar

بنحاول نتعلم منكم استاذي..... بارك الله فيكم وعليكم وجعلكم الله عونا لأمثالي والاخرين ... تمام الكود كده

تجربة بسيطة حقيقية على ملف ACCDE .😎.

هههههههه ، يا عيني عليك ، اكتشفتها بنفسك .. جرب التعديل الأخير على أكثر من احتمال :- Sub DrawCirclesByFoksh(ByVal x As Integer, ByVal startRow As Integer, ByVal endRow As Integer) Dim Shp As Shape, c As Range Dim r As Long, i As Long, n As Long Dim usedRows As Collection Dim dayCount As Long, perDay As Long, extra As Long Dim rr As Variant, lastCol As Long Dim hasLesson As Boolean Dim lessonCount As Long Dim circlesThisDay As Long If x <= 0 Then Exit Sub Set usedRows = New Collection lessonCount = 0 For r = startRow To endRow hasLesson = False For i = 3 To 10 If Cells(r, i).Value <> "" Then hasLesson = True lessonCount = lessonCount + 1 End If Next i If hasLesson Then usedRows.Add r Next r dayCount = usedRows.Count If dayCount = 0 Then Exit Sub n = 0 If x = lessonCount Then For r = startRow To endRow For i = 10 To 3 Step -1 If Cells(r, i).Value <> "" Then Set c = Cells(r, i) Set Shp = Sheet1.Shapes.AddShape(msoShapeOval, c.Left, c.Top, c.Width, c.Height) Shp.Fill.Visible = msoFalse Shp.Line.Weight = 1 Shp.Line.ForeColor.SchemeColor = 10 n = n + 1 If n = x Then Exit Sub End If Next i Next r ElseIf x > lessonCount Then Do While n < x For r = startRow To endRow For i = 10 To 3 Step -1 If Cells(r, i).Value <> "" Then Set c = Cells(r, i) Set Shp = Sheet1.Shapes.AddShape(msoShapeOval, c.Left, c.Top, c.Width, c.Height) Shp.Fill.Visible = msoFalse Shp.Line.Weight = 1 Shp.Line.ForeColor.SchemeColor = 10 n = n + 1 If n = x Then Exit Sub End If Next i Next r Loop Else perDay = x \ dayCount extra = x Mod dayCount If x > 10 And x < lessonCount Then extra = extra + 1 For Each rr In usedRows circlesThisDay = perDay If extra > 0 Then circlesThisDay = circlesThisDay + 1 extra = extra - 1 End If lastCol = 0 For i = 10 To 3 Step -1 If Cells(rr, i).Value <> "" Then lastCol = i Exit For End If Next i For i = lastCol To 3 Step -1 If Cells(rr, i).Value <> "" And circlesThisDay > 0 Then Set c = Cells(rr, i) Set Shp = Sheet1.Shapes.AddShape(msoShapeOval, c.Left, c.Top, c.Width, c.Height) Shp.Fill.Visible = msoFalse Shp.Line.Weight = 1 Shp.Line.ForeColor.SchemeColor = 10 circlesThisDay = circlesThisDay - 1 n = n + 1 If n = x Then Exit Sub End If Next i Next rr End If End Sub