كل الانشطه

تفضل ، استبدل كود الزر القديم بالكود التالي ، مع بقاء الدالة في المديول كما هي .. Private Sub btnGenerate_Click() Dim db As DAO.Database Dim tDef As DAO.TableDef Dim fld As DAO.Field Dim rs As DAO.Recordset Dim startDate As Date, endDate As Date, d As Date Dim yearInput As Integer Dim monthName As String Dim monthCode As Integer Dim shiftValue As Double Dim startDateTime As Date Dim endDateTime As Date If IsNull(TxtYear) Then MsgBox "أدخل رقم السنة", vbExclamation + vbMsgBoxRight, "" Me.TxtYear.SetFocus Exit Sub End If yearInput = Me.TxtYear startDate = DateSerial(yearInput - 1, 12, 21) endDate = DateSerial(yearInput, 12, 20) On Error Resume Next DoCmd.DeleteObject acTable, "Salary" On Error GoTo 0 Set db = CurrentDb db.Execute "CREATE TABLE Salary (ID AUTOINCREMENT PRIMARY KEY, WorkDate DATE, DayName TEXT(20), MonthName TEXT(20), monthCode LONG, shift DOUBLE, startDay DATE, endDay DATE)" Set tDef = db.TableDefs("Salary") Set fld = tDef.Fields("shift") On Error Resume Next fld.Properties("Format") = "0.00" If Err.Number <> 0 Then Err.Clear fld.Properties.Append fld.CreateProperty("Format", dbText, "0.00") End If fld.Properties("DecimalPlaces") = 2 If Err.Number <> 0 Then Err.Clear fld.Properties.Append fld.CreateProperty("DecimalPlaces", dbInteger, 2) End If Set fld = tDef.Fields("startDay") On Error Resume Next fld.Properties("Format") = "hh:nn AM/PM" If Err.Number <> 0 Then Err.Clear fld.Properties.Append fld.CreateProperty("Format", dbText, "hh:nn AM/PM") End If Set fld = tDef.Fields("endDay") On Error Resume Next fld.Properties("Format") = "hh:nn AM/PM" If Err.Number <> 0 Then Err.Clear fld.Properties.Append fld.CreateProperty("Format", dbText, "hh:nn AM/PM") End If On Error GoTo 0 Set fld = Nothing Set tDef = Nothing Set rs = db.OpenRecordset("Salary", dbOpenDynaset) monthCode = 0 d = startDate Do While d <= endDate If Weekday(d, vbMonday) <> 5 And Weekday(d, vbMonday) <> 7 Then monthName = CustomMonth(d) monthCode = 0 If Month(d) = 12 And Day(d) = 20 And Year(d) = yearInput - 1 Then monthCode = 1 ElseIf Month(d) = 1 And Day(d) = 20 And Year(d) = yearInput Then monthCode = 1 ElseIf Month(d) = 2 And Day(d) = 20 Then monthCode = 2 ElseIf Month(d) = 3 And Day(d) = 20 Then monthCode = 3 ElseIf Month(d) = 4 And Day(d) = 20 Then monthCode = 4 ElseIf Month(d) = 5 And Day(d) = 20 Then monthCode = 5 ElseIf Month(d) = 6 And Day(d) = 20 Then monthCode = 6 ElseIf Month(d) = 7 And Day(d) = 20 Then monthCode = 7 ElseIf Month(d) = 8 And Day(d) = 20 Then monthCode = 8 ElseIf Month(d) = 9 And Day(d) = 20 Then monthCode = 9 ElseIf Month(d) = 10 And Day(d) = 20 Then monthCode = 10 ElseIf Month(d) = 11 And Day(d) = 20 Then monthCode = 11 ElseIf Month(d) = 12 And Day(d) = 20 Then monthCode = 12 End If If Weekday(d, vbMonday) = 7 Or Weekday(d, vbMonday) = 3 Then shiftValue = 1 startDateTime = DateAdd("n", 30, DateSerial(Year(d), Month(d), Day(d)) + TimeSerial(8, 0, 0)) endDateTime = DateSerial(Year(d), Month(d), Day(d)) + TimeSerial(13, 30, 0) Else shiftValue = 1.2 startDateTime = DateAdd("n", 10, DateSerial(Year(d), Month(d), Day(d)) + TimeSerial(8, 0, 0)) endDateTime = DateSerial(Year(d), Month(d), Day(d)) + TimeSerial(14, 30, 0) End If rs.AddNew rs!WorkDate = d rs!DayName = Format(d, "dddd") rs!monthName = monthName If monthCode > 0 Then rs!monthCode = monthCode Else rs!monthCode = Null End If rs!shift = shiftValue rs!startDay = startDateTime rs!endDay = endDateTime rs.Update End If d = d + 1 Loop rs.Close Set rs = Nothing db.TableDefs.Refresh Set db = Nothing MsgBox "تم إنشاء الجدول بنجاح", vbInformation + vbMsgBoxRight, "" DoCmd.SelectObject acTable, "Salary", True End Sub

مشاركة مع استاذ @Foksh تفضل استاذ @jo_2010 محاولتي . Jo.rar

هذا .... لكل من تابع ماتقدمت به ..... أنا عدلت ما أرسله الاستاذ @محمد حسن2 وطلباته حسب رؤيتي وما يتماشى لأي مستخدم ببساطة وبدون اشتراكات بأي موفع ، أو استخدام مساعدات برمجية من خارج أكسس .

شكرا كبير يا استاتنا الفاضل يارب اجعل هذا العمل في ميزان حسنات استاذ الفاضل kkhalifa1960

للأسف أخي الكريم ، لا أعلم ما هو هذا البرنامج ,,

تفضل استاذ @بلال اليامينطلبك حسب مافهمت . المشكلة في اللغة العربية ارهقتني وارهقت نظري واخذت وقت كبير جدا بالبرمجة الاجازات 2026-2.rar

شكرا استاذ منتصر على الاهتمام والتعديل هل التعديل مس القروض ايضا لاني صراحة دخلت على الجدول Tbl_Loans وبالخصوص المنخرط رقم 4 كما في الصورة وحدفت للتجريب المبلغ المقتطع 5000.00 الذي يخص تاريخ 2025/07/01 وارجعت تاريخ الجهاز الى شهر 7 فلم يكمل له اقتطاعه وقبل التعديل الاخير كان عادي لايخص القروض بل كان المطلوب التعديل على Loan_Type =Inkhirat او Loan_ID =0 فقط وزيد سبقت تاريخ الجهاز الى مارس 2026 لكي يقتطع لجميع المنخرطين مبلغ 1500.00 كما كان سابقا فظهر لي ميساج المفيد ان الكود لا يؤدي وظيفة بطريقة صحيحة

عفوا الخطوات ادحل رقم قومى من Tbl_Teachers فى نموذج frm_StartExam ثم بدء الامتحان فى نموذج frm_Exam ويمكن مشاهدة ناتج الاختبار فى Q_ComputerExamResults_ByGroup

جرب التعديل المرفق اقتطاع مرة واحدة فقط 2025-1.rar

سلام الله عليكم استاذنا ومعلمنا هذه محاولة اخرى لعرض الاسئله بها امكانية التحكم بالزمن الكلى للمسابقه وبها ايضا امكانية الرجوع للأسئله التى تمت الاجابة عليها طالما الوقت لم ينتهى عسى ان تفيد new_test.rar

مافيش هذا البرنامج

بارك الله فيك وزادك من فضله

معلمى الفاضل خالص الشكر على اهتمام حضرتك بطلبى أود إضافة بسيطة نسيت إضافة باقى حقول الجدول ١_عمل حقل اسمة month code وفي نهاية كل شهر يكتب بة رقم الشهر مثال ٢٠ يناير ٢٠٢٦ يكتب بة ١ وفى ٢٠ فبراير ٢٠٢٦ يكتب ٢ وهكذا ٢_ عمل حقل باسم shift يكتب بة 1.20امام كل الايام ماعدا السبت والأربعاء يكتب 1.00 ٣_ حقل start day يكتب الساعة ٨:١٠am ماعدا السبت والأربعاء يكتب ٨:٣٠am وحقل End day يكتب الساعة ٢:٣٠pm ماعدا السبت والأربعاء يكتب ١:٣٠pm خالص الشكر للمجهول المبذول من حضرتك. شكررررا

للاسف استاذ محمد هذه هي النتيجة .

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

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

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

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

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

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

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

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

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

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

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