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

وعليكم السلام ورحمة الله وبركاته برجاء ارفاق مثال لتوضيح الفكرة عموما هذا كود مسئول عن انشاء مجلد بجوار البرنامج اذا لم يكن المجلد موجود اصبلاً On Error Resume Next Dim fs, cf, strFolder strFolder = CurrentProject.Path & "\" & "AttachmentX" Set fs = CreateObject("Scripting.FileSystemObject") If fs.FolderExists(strFolder) = False Then MsgBox "تحذير !!! مجلد المرفقات غير موجود ! وسيتم انشائه ان شاء الله بجوار البرنامج", vbExclamation, "officena" Set cf = fs.CreateFolder(strFolder) If fs.FolderExists(strFolder) = True Then MsgBox "'" & strFolder & "' تم انشاء المجلد في المسار التالي " Else MsgBox "تحذير لم يتم انشاء مجلد المرفقات ", vbExclamation, "officena" End If End If تحياتي

بنفس طريقة التنسيق الشرطي يمكن تنفيذ الامر انظر نموذج Tb-Empl3 ستجد اللون الازرق لمن قارب على تاريخ اليوم بـ 10 ايام Database1011_2.rar تحياتي

تفضل اخي الكريم وتم تحويل النص المدخل بأسم ايجابى الى اللون الاخضر اذا كان سلبي Database23.rar تحياتي

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم Database23.rar تحياتي

بالتوفيق اخي الكريم تحياتي

وعليكم السلام ورحمة الله وبركاته يمكنك استخدام استعلام تحديث 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 تحياتي

اضف الى الاستعلام N1: Nz([عدد الموظفين])/Nz([عدد المسجلين]) المستخدم_3.rar تحياتي

انظر الاستعلام Query1 المستخدم_3.rar تحياتي

بالتوفيق اخي الكريم تحياتي

هذا موضوع اخر اخي بلال اتفضل اخي المستخدم_3.rar تحياتي

وعليكم السلام ورحمة الله وبركاته اين المثال يا غالي تحياتي