كل الانشطه

شكرا جزيلا أخي الفاضل علي كرمك وسعة صدرك ممكن نضبط لجنة 10 تنزل اسفل لجنة 9 أو لو فيه طريقة أخري اسهل نصمم بها هذا النموذج والتقرير أمشي مع حضرتك خطوة خطوة لأن هذه الطريقة ساعدني بها استاذنا ومعلمنا ( أبو خليل ) أدام الله في عمره وزاده الله من علمه وكانت علي رغبتي رغم أنه لم يقتنع بها

رغم أن طريقتك في التصميم غريبة 😅 ، وتحتاج وقتاً لاستيعابها ، لكن تفضل ، جرب هذا التعديل : Data127.zip

ملحوظة أخري يوجد repTawzeeSub لا يعمل في التقرير molahza المفروض يظهر هكذا

شكرا جزيلا لسرعة الاستجابة فيه ملحوظتين : أولا : عند اختيار فرقة واحدة من النموذج مثلا الصف الثالث والضغط علي التقرير يأتي التقرير بالفرقتين ( الثالث والرابع ) محتاج عند اختيار فرقة واحدة يأتي التقرير بالفرقة الواحدة وعند اختيار الفرقتين يأتي التقرير بالفرقتين كما في الصورة ثانيا : في التقرير لماذا تأتي لجنة 10 أعلي التقرير مع أن المفروض تأتي بعد لجنة 9

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

طيب أبا جودي ما قد سمعت عن شيء اسمه اثبات حضور ؟ لا اعلم ان كان بالعسكرية او الشركات .. فقط يطل يوريهم وشه 🤓 للتأكد ما يكون حد مزوغ يعني هذه اخت هذه .. بمعنى لا بد من تجديد التوقيع خلال 24 ساعة او 12 ساعة حسب الذي يفرضه صاحب القرار

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

إخواني الأعزاء بعد سلام الله عليكم ورحمة الله وبركاته في الملف المرفق Data126.rar جدول باسم tbl_Exams وجدول باسم tblTawzee ومربوطين بنموذج باسم frmTawzee وهوخاص بملاحظة المعلمين للجان وعند الضغط علي النموذج ( frmTawzee ) واختيار العام الدراسي ثم اختيار الفصل الدراسي ثم اختيار التاريخ والفترة والصف الدراسي سواء صف واحد أو اختار صفين ثم الضغط علي زر (اختر التاريخ والصفوف او احدها ثم انقر ) يجلب تقرير باسم ( molahza ) به جميع البيانات المشكلة عن الضغط علي زر (اختر التاريخ والصفوف او احدها ثم انقر ) لا يأتي بالبيانات وتظهر الرسالة الآتية ارجو الحل

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

لنجرب هدا مع إظافة الترتيب الأبجدي للعناصر في الـكومبوبوكس عند النقر المزدوج بحيث ترتب القائمة تلقائيا قبل العرض Option Explicit Dim WS As Worksheet Dim OnRng As Variant Dim ColArr As Long Private Sub Worksheet_SelectionChange(ByVal Target As Range) Set WS = Sheets("داتا") Dim f As Worksheet: Set f = Sheets("Sheet1") Dim lastRow As Long, cnt As Boolean, i As Long cnt = False lastRow = f.Cells(f.Rows.Count, "A").End(xlUp).Row For i = 2 To lastRow If Trim(f.Cells(i, "A").Value) <> "" Then cnt = True Exit For End If Next i 'A' إظهار القوائم لغاية أخر صف يتضمن تاريخ على عمود' If cnt Then If Target.Count = 1 And Not Intersect(Target, Range("C2:O" & lastRow)) Is Nothing Then ' OR ' تحديد اخر صف لإظهار القوائم بما يناسبك ' If Target.Count = 1 And Not Intersect(Target, Range("C2:O100")) Is Nothing Then ColArr = Target.Column If xColumn(ColArr) Then On Error Resume Next OnRng = WS.Range(WS.Cells(2, ColArr), _ WS.Cells(WS.Rows.Count, ColArr).End(xlUp)).Value On Error GoTo 0 If Not IsEmpty(OnRng) Then If Not IsArray(OnRng) Then ReDim OnRng(1 To 1, 1 To 1) OnRng(1, 1) = WS.Cells(2, ColArr).Value End If Me.ComboBox1.List = Application.Transpose(OnRng) Else Me.ComboBox1.List = Array() End If With Me.ComboBox1 .Height = Target.Height + 3 .Width = Target.Width .Top = Target.Top .Left = Target.Left .Value = Target.Value .Visible = True .Activate End With Else Me.ComboBox1.Visible = False End If Else Me.ComboBox1.Visible = False End If Else Me.ComboBox1.Visible = False End If End Sub Private Sub ComboBox1_Change() Dim d1 As Object Dim tmp As String Dim i As Long Set d1 = CreateObject("Scripting.Dictionary") If Me.ComboBox1.Value = "" Then Me.ComboBox1.List = Application.Transpose(OnRng) Me.ComboBox1.DropDown Else tmp = UCase(Me.ComboBox1.Value) & "*" For i = 1 To UBound(OnRng, 1) If UCase(Trim(OnRng(i, 1))) Like tmp Then d1(Trim(OnRng(i, 1))) = "" End If Next i If d1.Count > 0 Then Me.ComboBox1.List = d1.Keys Me.ComboBox1.DropDown Else Me.ComboBox1.List = Array(Me.ComboBox1.Value) Me.ComboBox1.DropDown End If End If ActiveCell.Value = Me.ComboBox1.Value End Sub Private Sub ComboBox1_Click() Me.ComboBox1.List = Application.Transpose(OnRng) Me.ComboBox1.Activate Me.ComboBox1.DropDown End Sub Private Function xColumn(colNum As Long) As Boolean Select Case colNum Case 3, 4, 5, 9, 10, 11, 15 xColumn = True Case Else xColumn = False End Select End Function Private Sub ComboBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = 13 Then ActiveCell.Offset(1).Select End Sub Private Sub ComboBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) On Error Resume Next Dim listArr() As String, i As Long If Not IsEmpty(OnRng) Then ReDim listArr(1 To UBound(OnRng, 1)) For i = 1 To UBound(OnRng, 1) listArr(i) = OnRng(i, 1) Next i Call filtre(listArr) Me.ComboBox1.List = listArr End If Me.ComboBox1.Value = "" Me.ComboBox1.Activate Me.ComboBox1.DropDown On Error GoTo 0 End Sub Private Sub filtre(arr() As String) Dim i As Long, j As Long, temp As String, n As Long n = UBound(arr) For i = 1 To n - 1 For j = i + 1 To n If StrComp(arr(i), arr(j), vbTextCompare) > 0 Then temp = arr(i): arr(i) = arr(j): arr(j) = temp End If Next j Next i End Sub تعديل 4 .xlsb

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

انا ممكن اروح الشغل واضل بالشغل من 8 ساعات الى مبيت ل يوم او 2 او 3 احيانا وقد يزيد ان تطلب الامر أكثر من ذلك لذلك أنا أخبرك عن تحليلات و تجارب من وقائع حقيقيه هناك اصحاب عمل او فى مؤسسات معينه يستمر فيها العمل ليوم ونصف او يوميين او اكثر ان تطلب الامر وحسب الحاجة وبالاخص على ابواب المواسم والاعياد

اطلعت على سجلاتهم .. كثير جدا منهم بين 15 و 12 وفيه 16.5 لا مشكلة نضع الضابط 20 او 23 .. حتى نضمن فتح المجال قلت للمالك يمكن العامل يوقع ويخرج ثم يأتي بعد 10 ساعات ويوقع خروج .. وكان رده .. لا تخف الكيمرات تسجل في كل مكان .. ويوجد متابعة .. لكننا نريد حفظ حقوق العمال لا يمكن تصور ما خط بالأحمر ولبدنك عليك حقا ... الحد الأقصى 16 ساعة ليتبقى له سويعات قليلة للنوم

اذا كان هذا العامل يعمل لأكثر من 15 ساعة ، فيمكن استثنائه من الشروط التي قيدنا بها العمل بحيث من خلال حقل Yes/No ان هذا العامل مستثنى !!! 🙄

جميل جداً ، جزاكم الله كل الخير معلمنا الفاضل على هذه الفكرة الجميلة الشاملة ,, كنت سابقاً استخدم فكرة بسيطة :- Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) On Error Resume Next Dim newKeyCode As Integer Select Case KeyCode Case vbKeyDown DoCmd.GoToRecord , , acNext Case vbKeyUp DoCmd.GoToRecord , , acPrevious Case vbKeyRight newKeyCode = vbKeyLeft KeyCode = newKeyCode Case vbKeyLeft newKeyCode = vbKeyRight KeyCode = newKeyCode End Select End Sub Private Sub Form_Open(Cancel As Integer) Me.KeyPreview = True End Sub لكن بعد التوسع الكبير العمل بما تقدمتم به من خلال الكلاس ، سأضطر لإعادة النظر بفكرتي المتواضعة 😅

اعرض الملف أشرطة التقدم المخصصة {سلسلة أدوات مساعدة مخصصة} تكملة لسلسة الأدوات المساعدة المخصصة أقد لك مثال لنموذج شريط التقدم موضحا فيه طريقة إستخدامه في كل السيناريوهات المعروفة (من وجهة نظري على الأقل) يحتوي تطبيق الأداة المرفق على نموذجين يقدمان ثلاثة أنواع من أشرطة التقدم الأول هو شريط التقدم الإفتراضي الشبيه بشريط ويندوز بلون أخضر صافي كما بالصورة التالية الثاني هو شريط تقدم ديناميكي يتغير حسب نسبة التقدم بمعنى أنه يبدأ باللون الأحمر ثم الأصفر وينتهي بالأخضر شريط التقدم الثالث هو شريط ملون تظهر فيه ألوان كل المراحل كما بالصورة بالرغم أن شريطي التقدم الأول والثاني نظريا يبدوان منفصلين ولكنهما في الواقع هما نفس النموذج وكل الإختلاف بينهما مجرد سطر في الكود ملاحظة إذا لم تظهر الخطوط لديكم كما بالصورة فيمكن تحميل الخطين AdvertisingBold و AL-Hor صاحب الملف منتصر الانسي تمت الاضافه 06/22/25 الاقسام قسم الأكسيس  

انا كنت ناوى اجهزر الرد و وجدت ان مش هو اللى بنى المثال لانه بيحاول يعدله لاغراض اخرى وكنت ابنيه من الالف للياء صح بس طالما انت جاوبت خلاص

وعليكم السلام ورحمة الله وبركاته ,, تفضل هذا التعديل :- DDCompanyLogos.zip

الله يبارك الله فيك أخي الكريم

السلام عليكم لدي حقل اسم الصورة و حقل نوع الصورة اريد عند ادراج الصور يلزم المستخدم بملء الحقل الصورة و حقل نوع الصورة و اضافة كود لمعاينة الصورة واضافة حدف الصورة جزاكم الله خيرا DDCompanyLogos.rar

اعرض الملف إنشاء وإدارة الأشرطة المخصصة {سلسلة الأدوات المساعدة المخصصة} هذه المرة إليكم أداة مساعدة تساعد في إنشاء وتحرير وإدارة أشرطة الأوامر Ribbons بطريقة سهلة يجب تنزيل ملف الأيقونات من هذا الرابط ونسخ الأيقونات الى مجلد Office.2016.Icons حتى يعمل المثال التوضيحي بدون مشاكل أعتقد أنه قد تم شرح وتوضيح الخطوات بكثير من التفصيل مع تحياتي صاحب الملف منتصر الانسي تمت الاضافه 06/22/25 الاقسام قسم الأكسيس