كل الانشطه

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

اشرحها لي اكثر لأنا ما فهمتها

تمام كده أحسنت والملاحظة التانية بتاعة إنه يوم السبت بيكون عمل لبعض المدارس

شكرا لك استاذ وهو كذلك

الخطأ مردود ، اعتذر منك ، المقصود في النموذج الفرعي في الدالة UpdateModa ، أزل 1+ من السطر moda = daysCount + 1 ولكن لنفترض أن تاريخ بدء التدريب = 2025-04-01 وتاريخ الإنتهاء = 2025-04-04 أي الأيام ( 01 ، 02 ، 03 ، 04 ) ستكون 4 ايام وليس 3 ان كان ما فهمته صحيح ,, ولكن انت أعلم بمشروعك في النهاية

طيب يا صديقي ، لنفترض جدلاً أن لديك مربع النص (TxtFullDate) ، والذي يضم القيمة = 042025 على سبيل المثال ، وأن لديك مربعي نص كالآتي :- مربع النص TxMo = لعرض رقم الشهر ، و مربع النص TxYr = لعرض رقم السنة . الآن في مصدر بيانات مربع النص الخاص برقم الشهر اكتب السطر التالي :- =Left([TxtFullDate],2) وفي مربع النص الخاص برقم السنة ، اكتب الجزء التالي فقط :- =Right([TxtFullDate],4) جرب وأخبرني بالنتيجة

لما أزالتها مدة التدريب بتبقى نتيجة واحدة بتعطى رقم (1) أيا كانت التواريخ

نعم استاذ تضم الشهر والسنة

تفضل أخي الفاضل وبارك الله فيك المرفق به الصف الأول والثالث كاملا ( الفصل الدراسي الأول ) Database60.rar

أخي الكريم وعليكم السلام ورحمة الله وبركاته ,, حتى لا ندخل في متاهة الإختمالات والمقاصد الغير موضحة ، ما هي احتمالات القيم التي تريد فصلها ؟؟ على سبيل المثال هل جميعها تضم الشهر من خانتين ورقم السنة ( 012025 ، 062025 ، 112025 ، 122025 ... ) ؟؟؟؟؟ واذا كان هناك أي مقصد أو هدف يجول في خيالك ولم تأت على ذكره فأرجو التوضيح

السلام عليكم اساتذة هل يوجد دالة تفصل الارقام عن بعضها مثلا 102025 كمايلي 10 لوحدها و 2025 لوحدها وهكذا

تمام ... طيب وبخصوص يوم السبت عمل لبعض المدارس والأقسام

العفو استاذي الخطوات التي احتاجها كالتالي قراءة الباركود ( مكون من رقم وحروف) مثلا 5000Mat ثم يذهب إلى مادة الرياضيات اكتب أنا الدرجة وبعد كتابة الدرجة اضغط على زر enter من الكيبور ليرجع إلى نفس المكان قراءة الباركود مع مسح الباركود هذا الكود فيه نقص خطوه كتابة الدرجة والضغط على enter من لوحة المفاتيح ( الكيبورد )

نعم أخي العزيز ,, الحل بسيط ان شاء الله ، فقط في الدالة في المديول قم بإزالة 1 + :- count = count + 1

هل تقصد هذه الفكرة !! DoCmd.OpenReport "rep_Kashf", acViewPreview DoCmd.OpenReport "rep_Kashf", acViewReport DoCmd.OpenReport "rep_Kashf", acViewPreview اذا كانت فكرتك هنا استخدم التكرار كحل تحايلي لضمان أن التقرير سيحسب القيم بشكل صحيح في أول مرة ، ثم يعرضها بشكل نهائي بعد أن تكون القيم قد تم تجميعها !!!! أحاول التركيز في التخلص من هذه الفكرة

شوفت حضرتك تعليقى

حول ترفع المرفق مع بيانات اكثر من اجل التجربة والتعديل

السلام عليكم اخي الفاضل جزاك الله خير وجعله الله زخرا لك في الاخرة غير ان هناك مشكلة عند تشغيل الكود موجودة في الصور المرفق

وعليكم السلام ورحمة الله وبركاته ,, تفضل طلبك بعد اجراء تعديل على الكود لتقليل التكرار .. Private Sub HandleSubjectFocus() On Error Resume Next Me.y1 = Me.y2.Column(1) Dim code As String code = Trim(Right(Me.y2, 3)) Dim ctlName As String Select Case code Case "REL": ctlName = "Religion" Case "ARA": ctlName = "ARABIC" Case "ENG": ctlName = "ENGLISH" Case "MAT": ctlName = "MATH" Case "SCI": ctlName = "SCIENCE" Case "SOC": ctlName = "SOCIAL" Case "ART": ctlName = "ART" Case "SPO": ctlName = "SPORT" Case Else: Exit Sub End Select Forms!FrmMain!SubMain.SetFocus Forms!FrmMain!SubMain.Form.Controls(ctlName).SetFocus Me.SetFocus Me.y2.SetFocus Me.y2.Value = "" End Sub Private Sub Form_Load() Me.y2.SetFocus End Sub Private Sub y2_AfterUpdate() HandleSubjectFocus End Sub باركود.accdb

السلام عليكم أحتاج عند قراءة الباركود وكتابة الدرجة والضغط على enter يرجع المؤشر إلى خانة قراءة الباركود ( في الأعلى ) ويمسح الباركود القديم ويكون جاهز لقراءة الباركود الجديد وهكذا باركود.rar

إصلاح مشكلة الإستيراد لأكثر من سجل من جوجل شيت . في الإصدار الأخير السابق وأتوجه بالشكر للأستاذ @Moosak للفته انتباهي لهذا الخلل . فقد تم بحمد الله تلافي وحل المشكلة من جذورها وإضافة ميزة جديدة وهي التعرف على طول القيمة التي سيتم استيرادها ( للحقول النصية ) . حيث طول الحقل النصي في اكسيس 255 حرف . وبهذا لا يمكن استيراد كامل القيمة اذا كانت أكبر من 255 حرف ، وسيتم ترك الفكرة للمستخدم بأن يكمل الإستيراد بعد ان يتم تقليص قيمة الخليه من جوجل شيت الى 255 أو الغاء العملية بالكامل .. وعليه ، فإن التعديل الجديد حل هذه المشكلة وغيرها .. ------------------------------ Excel Importor 2.0.zip ------------------------------

سألقي نظرة إن شاء الله قريباً ، فقط ما يمنعني في الوقت الحالي هو ضغط العمل ليس إلا 🤗 .

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

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