محمد أبوعبدالله

وعليكم السلام ورحمة الله وبركاته يمكنك استخدام استعلام تحديث Database1_8.rar تحياتي

تفضل اخي الكريم تحياتي كما يمكنك تصميم قاعدة البيانات على نواة 32 ثم تحويل الملف من accdb الى accde على جهاز به نواة 64 سيعمل ان شاء الله بدون مشاكل تحياتي

نفس الكود باستبدال السطرين Me.Filter = myCriteria Me.FilterOn = True بهذين Me.بيانات.Filter = myCriteria Me.بيانات.FilterOn = True تحياتي

اخي الكريم يوجد لديك حقب t2 فهنت ان وظيفته تباعد الاشهر حسب ما ما هو مكتوب واليك الكود بدون تباعد الاشهر Dim I As Integer Dim x As Date mySqL = "Select * From tt" Debug.Print mySqL Set rst = CurrentDb.OpenRecordset(mySqL) For I = 1 To Me.t3 rst.AddNew rst!dat = DateAdd("m", [t2], Date) rst.Update Next Me.Requery End Sub تحياتي

تفضل اخي الكريم Database1011.rar تحياتي

قم بتعديل الكود التالي Dim I As Integer Dim x As Date mySqL = "Select * From tt" Debug.Print mySqL Set rst = CurrentDb.OpenRecordset(mySqL) For I = 1 To Me.t3 * Me.t2 Step Me.t2 rst.AddNew ' rst!dat = DateAdd("m", [t2], I) rst!dat = DateAdd("m", [t2], Date) rst.Update Next Me.Requery tb.rar تحياتي

تفضل اخي الكريم ارجو ان يكون هو المطلوب Database1011.rar تحياتي

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم هذا مثال لما طلبته https://www.officena.net/ib/applications/core/interface/file/attachment.php?id=179734 تحياتي

السلام عليكم استخدم الكود التالي Dim I As Integer Dim x As Date mySqL = "Select * From tt" Debug.Print mySqL Set rst = CurrentDb.OpenRecordset(mySqL) For I = 1 To Me.t3 - 1 rst.AddNew rst!dat = DateAdd("m", [t2], I) rst.Update Next Me.Requery tb.rar تحياتي

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم الفكرة تعتمد على التنسيق الشرطي Database1011.rar تحياتي

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

وعليكم السلام ورحمة الله وبركاته اضف مربع تحرير وسرد غير منضم يقوم بعملية الانتقال بين السجلات libraies.rar تحياتي

ممكن شرح اكثر اخي الكريم وهل بدأت في تنفيذ الفكرة ام لا ؟ تحياتي

اين الصورة ؟

الحقيقة الكود روعة جدا ويعمل بكفاءة جرب المرفق وارجو ان يكون طلبك Shrik-to-fit-or-AutoResizeFont.rar تحياتي