كل الانشطه

استاذ 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

السلام عليكم و رحمة الله و بركاته الى السيد ابو خليل لقد جربت ان ابدل 0000 ب 000 و نجحت المحاولة لكن يبقى لي شي اناعرفه هو كم حد اقصى كارقام اقدر ان اصل اليه مثلا 2025009999 كاقصى عدد في انتظار ان تدخل السنة التي بعدها؟؟؟ و بالنسبة الى السيد FOKSH لقد اعنتني في العديد من المرات و ان كان لي الحظ انازور الاردف فاكيد اطلب مقابلتك لشكرك وجها لوجه فمعرفة الرجال خير من الاموال. و بالنسبة لما اقترحته من تعديل فقد ادخلته و لكن فيه اشكال و اليك الصور والبرنامج لتتحقق معي و اتمنى ان تجد لي الحل فالمطلوب هو في طوال السنة استطيع ان ابيع و ان تصل ارقام التواصيل الى 2026009999 او اكثر فيجب ان تبدا الارقام برقم السنة ثم تسلسل الى 5 ارقام على الاقل بحفاض صفرين مباشرة بعد رقم السنة و لكم جزيل الشكر numero.rar

شكرا للسادة الخبراء الافاضل علي المساعدة

انا ابحث عن هذا البرنامج ولم اجده ارجو المساعده وارشادي عليه بعد اذنكم

العفو أخي الكريم ، وحمداً لله إنك توجهت الى سبيل الحل .

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

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