Barna

اما ان تفعل المكتبة كما ذكر استاذي الفاضل @Foksh أو قم بتعطيل هذه الاسطر المشار اليها باسهم واضافة السطر الموجود داخل المستطيل وبهذا لا تحتاج الى تفعيل المكتبة ....

أخي الكريم @عبدالقدوس48 هل تتوقع ان من يجيب هو من يضع الامثلة والمرفق ..... ام السائل هو من يزودنا بالمرفق للتطبيق عليه بعد دراسة طريقته في البرنامج ووضع الحل المناسب لمرفقه .... بارك الله فيك

وعليكم السلام ورحمة الله وبركاته ... منذ ان شاهدت الموضوع وانا افكر في هذا الاسلوب ... يعني انا لوكنت موظف وعارف اني متأخر .... لن احضر الا في الساعة الاخيرة من الدوام ...

Sub InsertYears() Dim rsSource As DAO.Recordset Dim rsTarget As DAO.Recordset Dim StartDate As Date Dim EndDate As Date Dim iYear As Integer DoCmd.SetWarnings False DoCmd.RunSQL "DELETE TEMP_DATE.* FROM TEMP_DATE;" DoCmd.SetWarnings True Set rsSource = CurrentDb.OpenRecordset("date1") Set rsTarget = CurrentDb.OpenRecordset("TEMP_DATE") Do Until rsSource.EOF StartDate = rsSource!t2 EndDate = rsSource!t3 For iYear = Year(StartDate) To Year(EndDate) rsTarget.AddNew rsTarget!t2 = CStr(iYear) rsTarget!t1 = rsSource!t1 rsTarget.Update Next iYear rsSource.MoveNext Loop rsSource.Close rsTarget.Close Set rsSource = Nothing Set rsTarget = Nothing End Sub

تفضل حسب طلبك ..... الأعوام بين تاريخين.accdb

الأعوام بين تاريخين.accdb

كلامك صحيح مئة بالمئة وفي النهاية لا يصح الا الصحيح مثال (5).accdb

جدولك ليس فيه تواريخ ؟؟؟؟ ولكن ماذا لو كانت الاسماء كثيرة ؟؟؟؟؟؟ مشاركة مع حبيبنا الاستاذ @Foksh جرب هذه الطريقة !!!!! مثال (5).accdb

مشاركة مع اخي الاستاذ @محمد احمد لطفى في حدث عند تحميل النموذج ضع هذا الكود ... مع مسح الدالة الموجودة في مربع نص العمر بالسنوات Dim intH, years As Integer intH = Int(DateDiff("m", date_naissance, Date)) + _ (Date < DateSerial(Year(Date), Month(Date), Day(date_naissance))) years = Int(intH / 12) نص22 = years

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

متابع بصمت ... بارك الله فيك

هل هذا ماتريد ؟؟؟؟

اضف هذا السطر المبين في الصورة

انظر الصور وضع الكود في حدث بعد التحديث ........ On Error GoTo Errw If Me.txt_tot = Me.Loan_Remise Then DoCmd.GoToRecord , , acNext For i = 1 To Me.Recordset.RecordCount DoCmd.SetWarnings False DoCmd.RunCommand acCmdSelectRecord DoCmd.RunCommand acCmdDeleteRecord DoCmd.SetWarnings True Next i Exit Sub Errw: DoCmd.GoToRecord , , acLast Me.Loan_Made = Me.Loan_Remise + Me.Payment_Made Else MsgBox "مبلغ الاعفاء لايغطي مبلغ الاقساط" End If

طيب لاحظ ... هذا .....

هل هذا ما تريد ؟؟؟؟ لكن ماذا لو كان المبلغ الدفوع اقل من الاقساط كلها يعني لو ارد تسديد قيمة قسطين فقط ؟؟؟؟؟؟؟؟؟؟ عل كل حال .... انظر حسب طلبك ....

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

هل هذا طلبك حسب فهمي للموضوع .... 2023.mdb

مشاركة مع استاذي الغالي @Eng.Qassim تفضل ...... المهن التربوية.accdb

Database3.accdb

وعليكم السلام ورحمة الله وبركاته .... تفضل .... Database3.accdb

بارك الله فيك اخي الكريم ..... الحمد لله رب العالمين .... واياك

وعليكم السلام اخي الفاضل لم افهم جيدا لسؤالك ولكن هل تقصد هذا الخيار ؟؟؟؟ ملف .... ثم تابع الصور ...

تابع هذا الموضوع والشرح الرائع من المبدع @jjafferr