Taher DZ

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

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

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

عفوا استاذ هذا وين انتبهت للفكرة ليست لديا برامج انتي فيروس في Win10 الا برامجه هو المعدة للحماية

فعلا استاذ هذا الذي حصل مالحل ياترى ؟ النسخة التي لم تفتح في win10 على امتداد Mdb

شكرا استاذ kkhalifa1960 على الاهتمام بالموضوع ربي يحفظك ولكن لم تحل المشكلة

السلام عليكم مامشكلة عدم فتح ملف اكسس 2010 مع ونداوز 10 عربي مع العلم عند فتح القاعدة تظهر هذا الميساج

تم الغاء name1 واستبداله باسم الحقل الموجود في الجدول Lieu_Marij في الكود المعدل فنجحت العملية شكرا لك استاذ Foksh ربي يحفظك

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

ركز مع الصورة تصل الى التقرير وعليكم السلام استاذ ليس بتقرير له مصدر سجلات بل تقرير كله اكواد في اكواد

اليك المرفق استاذ للتعديل علما اني موقف الكود القديم في حدث عند التحميل 'هنا كود الفصل القديم متوقف ' Dim LongName As String, Myst As Integer, Myend As Integer ' 'Valid for 5 Names only ' Dim PartName(5) As String, k As Integer ' LongName = Me.dal.Caption '.text 'Myst = 1 ' For i = 1 To Len(LongName) ' Myend = Myend + 1 ' If Mid(LongName, i, 1) = " " Then ' k = k + 1 ' ' to assign the First Name ' If i <> Len(LongName) Then ' PartName(k) = Mid(LongName, Myst, Myend - Myst) ' End If ' ' to Start count the letters of a new word ' Myst = Myend + 1 ' If k = 5 Then ' MsgBox "More than Five names is not allowed " ' Exit Sub ' End If ' End If ' If i = Len(LongName) Then ' k = k + 1 ' PartName(k) = Mid(LongName, Myst, Myend - Myst + 1) ' End If 'Next i 'هنا يكون استدعاء الكود 'Me.name1 = PartOfName([name1], 1) Me.da5.Caption = Format(rs!Date_Marj, "yyyy/mm/dd") & " بـ" & name1 & " تحت رقم : " & rs!N_Act_Marj Wil12.rar

سأوافيك بها غدا بحول الله