كل الانشطه

شكرا اخواني

@Foksh أسعد الله صباحك آمين، وإياك أخي الكريم بالتوفيق @jjafferr صبحك الله بالخير

السلام عليكم هل الكود المقترح سيحول كلمة (الله) إلى (اللة) ؟ وهل سيجعل (ليلى أو مروى) إلى (ليلي أو مروي) ؟ أو (عبدالهادي) إلى (عبدالهادى) ؟ إذا حصل هذا الأمر فالكود يحتاج لمراجعة الرجاء الانتباه

وعليكم السلام ورحمة الله تعالى وبركاته data.xlsx

وعليكم السلام ورحمة الله تعالى وبركاته Sub Sheets_Arrays3() Dim lr&, LR2&, WSData As Worksheet Dim Dest As Worksheet: Set Dest = Sheets("class_room") LR2 = Dest.Cells(Dest.Rows.Count, "B").End(xlUp).Row If LR2 >= 2 Then Dest.Range("B2:S" & LR2).ClearContents Application.ScreenUpdating = False For Each WSData In Sheets(Array("كي جي1", "كي جي2", _ "الصف الأول", "الصف الثاني", "الصف الثالث", "الصف الرابع", "الصف الخامس", "الصف السادس")) lr = WSData.Cells(WSData.Rows.Count, "B").End(xlUp).Row If lr >= 3 Then LR2 = Dest.Cells(Dest.Rows.Count, "B").End(xlUp).Row + 1 Dest.Range("B" & LR2 & ":S" & (LR2 + lr - 3)).Value = WSData.Range("B3:S" & lr).Value End If Next WSData Application.ScreenUpdating = True MsgBox "تم ترحيل الفرق بنجاح", vbInformation End Sub

السلام عليكم مشاركة مع الاستاذ @Moosak تعديل بسيط على الكود عسى ان يكون هو المطلوب بالتوفيق ta13.rar

إخواني الأعزاء بعد سلام الله عليكم ورحمة الله وبركاته في الملف المرفق محتاج عند الضغط علي زر ( ترحيل الفرق ) الموجود في صفحة ( class_room ) يتم ترحيل البيانات في الشيتات ( كي جي1 - كي جي2 - الصف الأول - الصف الثاني - الصف الثالث - الصف الرابع - الصف الخامس - الصف السادس ) من العمود B الي العمود S يعني عايز اعدل في الكود Tbl_student.rar

السادة المحترمين في صفحة class عند الاختيار من الخلية B1 يجلب البيانات من صفحة data. بنفس الترتيب شكرا مرفق الملف من فضلكم بمعادلات وليس بالأكواد data.xlsx

جزاك الله اخوي بس تظهر البيانات صالحة المدة في ملف ta1 اريدها لا تظهر فقط المنتهي

تفضل : 🙂 حتى في النموذج التواريخ المنتهية تلون بالأحمر .. ta13.rar

أخى سعد هل البرنامج اكتمل ؟ إن كان كذلك أعطنى من فضلك نسخة

اشكرك اخوي Moosak وجزاك الله خير ممكن اخوي تظهر رسالة عندى فتح t1 فيه اقامات وجوازات ونهاية منتهية ويفتح ملف ta1 ويظهر فيه المنتهية فقط الغير منتهي لا يظهر شكرا على المساعدة

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

لكل مقام مقال 😎👌

جميل جداً ، ومشاركة ذكية أيضاً .. مع العلم وإنه وإن كان قد لا يستوجب أخذ هذه النقطة بالحسبان ، وهي عدم دعم الفترات التي تمتد بعد منتصف الليل (من 10 مساءً إلى 2 صباحاً مثلاً) على سبيل المثال طبعاً وليس للحصر ..... وطبعاً الإفتراض دوماً أن first_time < last_time لا يخدم النقطة السابقة ( وكما أشرت قد تكون غير ضرورية من الأساس 😅 ) طبعاً لا ينقص تعليقي من فكرة الأستاذ موسى شيئاً .

الدالة هي التي تستخدم ايام الاسبوع ولاتظهر في الاستعلام مطلقا

بأبسط الامكانيات عملت لك حقلين في الأستعلام من نوع (True / False ) الأول يتحقق من دخول الفترة الزمنية نطاق التنفيذ .. والثاني يتحقق من أن الأيام دخلت نطاق التنفيذ .. وبالتالي صار سهل جدا فلترة السجلات بناءا عليهما : وهكذا تضع الشروط بكل سهولة 🙂 : Database1 (1).accdb

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

لا عاش من يتعبك اعتذر منك على هذا القصور Database3.zip

وعليكم السلام ورحمة الله وبركاته .. بدايةً وبحكم أنني لا أعمل في الوقت الحالي منذ حوالي 15 سنة على HTML 😅 ، ومن خلال الصور الواضح أن العمل ما شاء الله جميل ونتائجه أجمل .. جزاك الله كل الخير على طرحك الجميل ومشاركتنا أفكارك الجميلة

تفضل جرب استاذي الفاضل كل الاحتمالات ...................... واعملنا بالنتيجة Database1 (36).accdb

تطيب المجالس بمشاركتك عقول الرجال اين المرفق ؟ ام تريد طلابك يتعبوا كما تعبت

تمام ,, ولكن فيما يخص الدمج أمره على ما أعتقد سيكون دون الاعتماد على مصفوفات على سبيل المثال ، لأنه وللأسف لا يمكن استخدام المصفوفات مباشرة في المعيار داخل الاستعلام . لذا ، هذا اقتراح بسيط :- Public Function IsValidWorkType(workTypeValue As Integer) As Boolean Dim dayNum As Integer: dayNum = Weekday(Date) Select Case dayNum Case 1 To 4 IsValidWorkType = (workTypeValue = 1) Case 5 IsValidWorkType = (workTypeValue = 1 Or workTypeValue = 2) Case 6, 7 IsValidWorkType = (workTypeValue = 2) Case Else IsValidWorkType = False End Select End Function وسيكون الاستعلام بعد مقترحي السابق :- SELECT tblCtrlDetails.usrID, tblCtrlDetails.workType, tblCtrlDetails.fatraType, tblFatrat.first_time, tblFatrat.last_time, TimeValue(Now()) AS [Current_Time] FROM tblFatrat INNER JOIN tblCtrlDetails ON tblFatrat.fatraID = tblCtrlDetails.fatraType WHERE (((tblFatrat.first_time)<=tblFatrat.last_time) And ((TimeValue(Now())) Between tblFatrat.first_time And tblFatrat.last_time) And ((IsValidWorkType([workType]))<>False)) Or (((tblFatrat.first_time)>tblFatrat.last_time) And ((TimeValue(Now()))>=tblFatrat.first_time Or (TimeValue(Now()))<=tblFatrat.last_time) And ((IsValidWorkType([workType]))<>False)); العفو معلمي الفاضل ، هذا يعود لحاجتك من الناتج العائد إن كان يخدم مطلبك أم لا ... وأتمنى أن لا أكون قد ابتعدت عن مسار المطلوب 😅😅 فلي عادة أن أنحرف بالتفكير يميناً ويسارا

هل اعتمد الحل ؟ .. ام لك رأي آخر افضل ؟

صح .. ولكن الوقت يحمل معياره الخاص لم اغير في معيار الأخ موسى