Taher DZ

نعم لا يوجد زر وانما عند دخول الفورم مباشرة والمشكلة في شهري 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 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

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

شكرا استاذ على التعديل الصحيح والان كيف يستدعى الكود في التقرير علما ان name1 هو المعني Me.Da5.Caption = Format(rs!Date_Marj, "yyyy/mm/dd") & " بـ" & name1 & " تحت رقم : " & rs!N_Act_Marj

السلام عليكم أساتذي الكرام 1- ياريت مساعدة بالتعديل على الاستعلام والمتمثل في : التعديل على كود الفصل في الاسم المركب سوى احادي او ثنائي او ثلاثي او رباعي المهم يكون الفصل في الاسم المركب قبل " - " لوحده الحالي: الماء الأبيض - تبسة / الكود يفصلها " الماء " و " الأبيض " المطلوب : الماء الأبيض - تبسة / الكود يفصلها " الماء الأبيض " 2- كيف يستدعى كود الفصل في تقرير مثلا وشكرا فصل ماقبل المطة.rar

شكرا استاذة على التعدبل

شكرا استاذة على سرعة الرد ربي يحفظك ولكن استاذة مرفقي ليس بزر امر بل هو قائمة منسدلة بها عدة خيارات كما في المرفق وارجو النعديل عليه 20251124.rar

شكرا استاذ ة لاميا على المرور وبحكم ان الاستاذ فوكش مريض وربي يشفيه ان شاء الله ياريت نموذج به الكود والوحدة النمطية المعدلة حتى يتسنى لي معرفة ذلك

ثانيا كيف استبدل التسميات ب Titles1=Array(Me.Reporte_Title.ItemData(0,1,2,3,4))

Nz(txtCopies, 3) تقصد يكون هكذا استاذ

اي تعليق استاذ !!! مالذي تغير ؟

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

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

لم افلح في التجربة استاذ اليك الكود عبر المفكرة txt حاول التعديل عليه Prin3.rar

اعتذرا لصاحب الموضوع وكي تعم الفائدة ممكن استاذ تعمل معروف وتزيد للكود طباعة الصفحة اي نسخ الطباعة 3 مرات بزر واحد