كل الانشطه

شكرا استاذ عمر على المشاركة الجميلة تحقق من الخطوة الأولى 1- ضبط الوقت .. وغلق النموذج عند انتهائه 2- حفظ الاجابة في جدول tbl_Answers 3- عمل جدول اعدادات عامة ملاحظة : بعد التجربة اتضح لي وجوب ايجاد جدول وسيط لرصد الاجابة المبدئية في الوضع الحالي سيتم حفظ الفقرة الأخيرة اي اجابة سؤال واحد فقط انتظروني سأعمل على ذلك

ياسيدي يااستاذي العزيز "شعارك خير الناس انفعهم للناس" ياريت لاتبخل علينا بما اتاك الله من علم

GenerateID = Year(Date) & "-" & Format(iNext, "000000") سبق وبينت لك انه يمكنك وضع اي فاصلة تريدها .. انظر السطر ادناه فقط غير علامة الناقص بما تريد مع الانتباه لعدم التعرض لعلامتي التنصيص يعني غير فقط : - بـــــ //

ارسله بأي وقت استاذ محمد انا عندي برنامج الاصلاح مدفوع لكن لازم أرجع البيت ضروري اذا ارسلته انشاء الله بعد المغرب بسويه . ممكن هنا https://www.mediafire.com/ ثم ارسل الرابط

ارسله ينفع مافي مشكلة

بحاول ارفع الملف بعد الضغط و لكن لايزال الملف اكبر من ا ميجا اعمل ايه

هل الملف كان يعمل ثم فجأة توقف؟ ارسل الملف للاصلاح .

الملف لا يفتح و رساله تقول لا يمكن التعرف على تنسيق قاعدة البيانات

أنا سويت طلبك حسب ماطلبت بالمشاركة وأخذ مني وقت وجهد .... ويكون هذا الرد !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

شكرا استاذ لقد عالجت لي مشكل ظهور الميساج ولكن يبدو ان تعديل الاخ لم يكن في محله مشكلتي استاذ : احبذ التعديل في اقتطاعات الانخراط في شهري 3 و 7 يكون مرة واحدة فقط اي عند اظافة عامل جديد او غيره لا يقتطع له بعد عند الرجوع الى الشهرين المعنيين ملاحظة : جرب العامل رقم 1 واجغلة موظف والرقم Nr=1 وادخل على الفورم FrmTransfer خلال شهر 3 وانظر يقطتع له مبلغ 1500

تفضل استاذ @بلال اليامين المرفق بعد التعديل بطلبك وزودت عليه توليد رقم التسجيل ديناميكياً واليك الشرح . ووافني بالرد . البرنامج2025-1.rar

اعتذار ارفقط المرفق الخطأ تفضل المرفق ومجرب كما بالشرح . اقتطاع مرة واحدة فقط 2025-1.rar

اولا : يوجد مرفقين ايهما الذي تم التعديل عليه هذا من جهة ومن جهة اخرى تفطنت لماهو في الشرح ليلة البارحة اي جعلت حقل Nr رقمي ولكن لاحياة لمن تنادي بقيت دار لقمان على حالها

السلام عليكم و رحمة الله و بركاته مشكور جدا لكل من ساهم في حل الاشكال الذي اعترضني و تم حل الاشكال بنجاح ان شاء الله شكرا لك سيدي ابو خليل على طريقة الشرح بالفيديو فلكم مني الف الف الف شكر و اذا حصل اي طارئ فساعود اليكم هناك شيء اردت ان اسال عليه وهو بخصوص اقتراحك سابقا (يمكن لو اردت الفصل بين السنة والترقيم بفاصلة معينة مثل (-) او (/) او اي فاصلة) فهل يمكن ان اظيف // بين الارقام و السنة؟؟ كناحية جمالية

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

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

وعليكم السلام ورحمة الله وبركاته تفضل جرب هذا الحل تسجيل الطرمبات1.xlsx

تفضل استاذ @Taher DZ اليك الخطأ بالشرح والمرفق بعد التعديل .جرب ووافني بالرد اقتطاع مرة واحدة فقط 2025-1 (1).rar

السلام عليكم هذا برنامج لإجراء اختبارات القبول والمنافسة وقياس الثقافة والمعرفة للمتقدمين لوظائف معينة احببت ان افرد له موضوعا يتم بناؤه وفقا لمقترحات الاعضاء ولمسات وتوجيهات الخبراء الموضوع ملك الجميع لمن اراد ان يدلي بدلوه في المرفق حاليا تم عمل أساسات البرنامج : اولا - الجداول : 1- جدول اسماء الموظفين الذين يتقدمون لاداء الاختبار 2- جدول فرعي للمجموعات 3- جدول لمفاتيح الأسئلة 4- جدول الاسئلة ويشتمل على خيارات الاجابة ورقم الاجابة الصحيحة 5-جدول الاجابات ثانيا - الاستعلامات .. اثنان : واحد لتصفية المفاتيح حسب المجموعة .. والآخر لتصفية الاسئلة حسب المفاتيح ثالثا - النماذج : 1- نموذج دخول المتقدم .. يدخل الرقم القومي ورقم الهاتف لينقله الى : 2- نموذج الاسئلة واختيار الاجابة الصحيحة سجلت اثنين ، محمد .. الرقم القومي =1111 والهاتف = 1234 سعيد .. الرقم القومي = 2222 والهاتف = 1234 محمد في مجموعة المدراء وسعيد في مجموعة المعلمين وطبعا كل مجموعة لها اسئلتها التي تخصها ويمكنهم التغيير عشوائيا واختيار ما يرونه مناسبا من خلال تغيير المفتاح والبحث العشوائي عند النقر على السؤال تظهر خيارات الاجابة في الاسفل الى هنا كل شيء تمام التمام الخطوة او الخطوات القادمة المطلوبة كالتالي : 1- تفعيل الوقت ( العداد ) دقائق وثواني مثلا 10 دقائق في اعلى النموذج اذا انتهت تظهر رسالة بانتهاء الوقت ويتم غلق النموذج 2-لا يمكن الحفظ حتى تكتمل اجابات جميع الاسئلة 3- حفظ الحلول في جدول الاجابات tbl_Answers مع مراعاة اكتمال تعبئة جميع الحقول في الجدول 4- من قدم اختبار لا يمكن له ان يعيد الاختبار مرة اخرى .. ويتم حجبه من فورم الدخول new_test2.rar

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

استاذ kkhalifa1960 انظر المرفق حتى لا تغير تاريخ جهازك الى شهر 3 و 7 تم تغير اقتطاعات الانخراط الى شهري 11 و 12 لكي يتسنى لك وللأساتذة رؤية ميساج الخطأ اقتطاع مرة واحدة فقط 2025-1.rar

مالك استاذ خليفة ؟ لقد افرحتني لما ظهر لي ميساج بان فيه رد منك ولكن لما دخلت الموضوع وجدت تعجبا 😢

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

نعم لا يوجد زر وانما عند دخول الفورم مباشرة والمشكلة في شهري 3و7 التي تخص الانخراط و للعلم انت جربت شهر 12 يدخل عادي بدون مشاكل انظر هذا الجزء من الكود '=========================================================== ' الانخراط — مارس أو يوليو فقط '=========================================================== If Month(CurrMonth) = 3 Or Month(CurrMonth) = 7 Then Dim db As DAO.Database Dim rstE As DAO.Recordset Dim totalPaid As Double Dim EmpID As String Set db = CurrentDb Set rstE = db.OpenRecordset("SELECT * FROM Employee WHERE Nr <= 5", dbOpenDynaset) If Not rstE.EOF Then rstE.MoveFirst Do Until rstE.EOF EmpID = rstE!EmployeeID ' Text field ' منع التكرار داخل نفس الشهر If DCount("*", "tbl_Loans", _ "Loan_ID= 0 AND EmployeeID='" & EmpID & _ "' AND Payment_Month=#" & Format(CurrMonth, "mm/dd/yyyy") & "#") > 0 Then GoTo SkipInkhirat End If ' مجموع ما دفعه سابقًا totalPaid = Nz(DSum("Payment_Made", "tbl_Loans", _ "Loan_ID= 0 AND EmployeeID='" & EmpID & "'"), 0) ' إذا وصل 3000 ? توقف If totalPaid >= 3000 Then GoTo SkipInkhirat End If '=========================================================== ' ?? إصلاح خطأ 3464 — السطر المعدل فقط '=========================================================== Set rst = db.OpenRecordset("tbl_Loans", dbOpenDynaset) rst.FindFirst "[Loan_ID]=0 AND [EmployeeID]='" & rstE!EmployeeID & _ "' AND [Payment_Month]=#" & Format(CurrMonth, "mm/dd/yyyy") & "#" '=========================================================== If rst.NoMatch Then rst.AddNew rst!EmployeeID = EmpID rst!Payment_Month = CurrMonth rst!Payment_Made = 1500 rst!Loan_Type = "Inkhirat" rst!Loan_ID = 0 rst!sadad = 1500 rst!Loan_Remise = 0 rst!Nr = rstE!Nr rst!wada3 = "تم الإنخراط" rst!Remarks = "إقتطاع انخراط شهر " & Month(CurrMonth) & "/" & Year(CurrMonth) rst!annee = Year(CurrMonth) rst.Update TotalLoanInkhirat = TotalLoanInkhirat + 1500 End If rst.Close SkipInkhirat: rstE.MoveNext Loop rstE.Close db.Close End If