كل الانشطه

الحمد لله يشرفني اكون اول من يرد ^_^ هذه محوله سريعه كنت عاوز اتوسع فى الموضوع لكن الوقت ياسيدي الوقت 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

طالع قائمة أزرار النموذج لايوجد بينهم هذا الزر .

عند الدخول الى فورم FrmTransfer والحدث عند تحميل Private Sub Form_Load() txtMonth = Date txtMonth0 = Date txtMonth1 = Date txtMonth2 = Date Call txtMonth1_AfterUpdate Call NormalizeMonth Call cmd_Pay_installments_Click End Sub عند استدعاء الاخيرة Private Sub cmd_Pay_installments_Click()

لم يظهر الخطأ أو انك لم ترسل المرفق كامل وبأي حدث .!!!!

استاذ @حافظ التونسي كما شرحت لك من قبل . طالع الشرح كما بالعرض ونفذه لتصل لاكثر من 100 الف بالسنة الحالية . العمل على مرفقك الاصلي الذي ارسلته لي . واذ حابب اضافة زر لاعادة الترقيم للحقل يالجدول. انا حاضر . Serial number_1.rar

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

السبب هو ان نوع الحقل في الجدول رقمي ومنطقي يظهر معك خطأ فأنت بين خيارين : اما تحول الحقل في الجدول الى نصي ( من اجل يقبل الفاصلة) وإما تبقى على وضعك ولا تدخل الفاصلة في الكود وهذا مثالك بعد تحويله الى نصي وايضا تنسيق الارقام جعلتها 5 فلا اتوقع انك ستصل في سنة الى 99999 مائة الف الا واحد ولكن ان كانت هناك اكواد هو المعيار فيها فسوف تضطر الى تعديلها numero2.rar

للاسف لم تعمل هل بالامكان التعديل على النمودج؟؟ numero.rar

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

استاذ @بلال اليامين اين ردك أو سؤالك ... ؟.

الدالة ستكون هكذا : التغير في مكانين .. بداية الرقم اصبح 6 بدلا من 5 والسطر الأخير يمكنك وضع الفاصلة التي تريد بدلا من "-" Public Function GenerateID(TableName As String, fieldName As String) As String on error resume next Dim vLastY As Variant Dim iNext As Integer vLastY = DMax(fieldName, TableName, fieldName & " LIKE '" & Year(Date) & "*'") If IsNull(vLastY) Then iNext = 1 Else iNext = Val(Mid(vLastY, 6)) + 1 End If GenerateID = Year(Date) & "-" & Format(iNext, "000000") End Function

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

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

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

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

نعم كأقصى عدد على الدالة الحالية هو 9999 جرب التعديل على الدالة بطريقة مختلفة نوعا .. ستبقى الخانات 6 ولكن يمكن ان يتم الترقيم الى 5 أو 6 خانات استغرب لماذا تريد ان يبقى صفرين بعد السنة لا فائدة منهما الدالة التالية الصفران موجودان ولكن متاح استخدامهما ويمكن لو اردت الفصل بين السنة والترقيم بفاصلة معينة مثل (-) او (/) او اي فاصلة Public Function GenerateID(TableName As String, fieldName As String) As String on error resume next Dim vLastY As Variant Dim iNext As Integer vLastY = DMax(fieldName, TableName, fieldName & " LIKE '" & Year(Date) & "*'") If IsNull(vLastY) Then iNext = 1 Else iNext = Val(Mid(vLastY, 5)) + 1 End If GenerateID = Year(Date) & Format(iNext, "000000") End Function