نجوم المشاركات

الرابط بحجم 145 كيلو و بحجم 690 كيلو بعد الفك ExcelReaderDemo.zip

تم الحل Dim a As Integer Dim DATE_POST As Date Dim rs As DAO.Recordset DATE_POST = CDate(Forms![TEST1]![Date_M]) Set rs = CurrentDb.OpenRecordset("subx") For a = Forms![TEST1]![NumberStart] - 1 To Forms![TEST1]![NumberEnd] - 1 rs.AddNew If Not Weekday(DATE_POST) Like "[6-7]" Then rs!id = Forms![TEST1]![id1] rs!serial = Forms![TEST1]![serial] rs!NumberX = a + 1 rs!date1 = DATE_POST Else a = a - 1 End If DATE_POST = DATE_POST + 1 rs.Update Next a rs.Close Set rs = Nothing Me.Requery

مرفق @Moosak لموضوع تقويم سنوي عامل يوم الاجازه لكل شهر لون غير فالكود اذا ما ضبط جرب طريق اخرى لالغاء ظهور #Erorr بشرط اذا حقل = True

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

اذهب الى الاستعلام واضف كما بالصورة وشوف النتيجة . أو

هل اخي محمد برنامج الواتس مثبت لديك ....... اذا كانت الاجابة نعم ..... جرب هذا التحايل !!!! Dim IE As Object Set IE = CreateObject("InternetExplorer.Application") IE.Navigate "whatsapp://send?phone=" & "&text=" ملاحظة انتظر عدة ثواني لعمل البرنامج .................... اخي محمد حاول فهم الية عمل الكود لأن الشركة تقوم بتحديث برنامجها باستمرار .... فلذلك فهم الية عمل الكود يسهل عليك تعديل الكود كل ما احتجت اليه ....

هذا الموضوع يا ازهر ⬇️

أستاذ @متقاعد ربنا يبارك فى حضرتك و يحفظك

لم اتحدث عن طريقة ثانية قلت واقصد انه لو كان زر الامر في النموذج الرئيسي لما احتجنا الى كتابة المسار الكامل للحقول في الرئيسي rs!serial = Forms![TEST1]![serial] تكون rs!serial = meserial وايضا ممكن الاستعانه بمتغيرات وهكذا من حيث الترتيب تحياتي

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

السلام عليكم اخي العزيز توجد اكثر من طريقة واكثر من دالة لعمل ذالك عن طريق الاستعلام او النموذج مثل if و case و choose الافضل ارفاق ملف للتعديل عليه تحياتي

في زر الامر ضع التالي Dim x As Date Dim a As Integer Dim rs As DAO.Recordset x = Forms![TEST1]![Date_M] Set rs = CurrentDb.OpenRecordset("subx") For a = Forms![TEST1]![NumberEnd] - 1 To Forms![TEST1]![NumberStart] - 1 rs.AddNew rs!date1 = x rs!id = Forms![TEST1]![id1] rs!serial = Forms![TEST1]![serial] rs!NumberX = a + 1 x = DateAdd("d", Forms![TEST1]![ChooseDayes], x) rs.Update Next a rs.Close Set rs = Nothing Me.Requery لو تلاحظ اني لم اغير في طريقتك هو تقريبا نفس كودك ولكن يتعامل مع مصدر السجلات مع انه يمكن كتابته بشكل افضل ولكني استخدمت طريقتك لايصال المعلومة بشكل اسهل تحياتي

عليكم السلام Private Sub textchange_Click() Dim fso, opn, tst Set fso = CreateObject("Scripting.FileSystemObject") Set opn = fso.GetFile(CurrentProject.Path & "\" & "textm.txt") Set tst = opn.OpenAsTextStream(2, 0) tst.Write Me.textfield tst.Close End Sub Private Sub textimport_Click() Dim fso, opn, tst Set fso = CreateObject("Scripting.FileSystemObject") Set opn = fso.GetFile(CurrentProject.Path & "\" & "textm.txt") Set tst = opn.OpenAsTextStream(1, 0) textfield = tst.ReadLine tst.Close End Sub textf2.rar

اخيرا للانتهاء من هذا الموضوع اود ان اشير الى دالة Choose وهي تقوم بارجاع قيمة من عدة قيم بناء الفهرس ويمكن توضيفها في هذه المثال عن طريق نمطية بسيطة يتم استخدامها في الاستعلام k = Choose(x, 2, 3, 4, 6, 7, 9, 10, 11, 12, 14, 15, 17, 18, 19, 20, 22, 23, 25, 26, 27, 28, 30, 31, 32, 34, 35, 36, 37, 39, 40, 41, 43, 44, 45, 46, 47, 49, 50, 51, 52) ويمكن كتابتها على النحو التالي Public Function std(id As Integer) Dim rst As DAO.Recordset Dim x As Integer Dim k As Integer Set rst = CurrentDb.OpenRecordset("Select * From [q_1] Where [id]= " & id) x = rst.Fields("عدد الفصول الفعلي") k = Choose(x, 2, 3, 4, 6, 7, 9, 10, 11, 12, 14, 15, 17, 18, 19, 20, 22, 23, 25, 26, 27, 28, 30, 31, 32, 34, 35, 36, 37, 39, 40, 41, 43, 44, 45, 46, 47, 49, 50, 51, 52) std = k rst.Close End Function ولكن لابد من التأكد من امرين صحة ترتيب البيانات في الفهرس للحصول على القيمة الصحيحة اذا كان الفهرس اقل من 1 او اكبر من عدد الاحتمالات المدرجة سوف تعود الدالة بنتيجة فارغ وفي هذا المثال لدينا 40 احتمال وفقا لصورة الجدول في اول مشاركة وبالتالي لايمكن ان يكون الفهرس اكبر من 40 نصيحتي في هذه الحالة استخدام جدول وعمل علاقة بدون الحاجة الي دوال كما اشرت في اول مشاركة لي في الموضوع الملف مرفق و اكتفي بهذا القدر تحياتي ‏‏برنامج الاحتياج1.accdb

Use this macro in the same module Sub Test1() Call CommandButton1_Click Call CommandButton2_Click End Sub If you need to execute the commands away from their module you can use Application.Run Sub Test2() Application.Run "Sheet1.CommandButton1_Click" Application.Run "Sheet1.CommandButton2_Click" End Sub

بالتوفيق اخي على كل حال في حالات كثير لو عرفنا اليه العمل بشكل صحيح نستطيع الوصول للنتيجة بدون الحاجة الى كتابة الكثير من الاكواد او ادخال معلومات يمكن الحصول عليها بشكل الي على سبيل المثال جدول رواتب الموظفين المدنيين يتكون من 260 درجة للمراتب من 1 الى 15 ولكننا لسنا بحاجة لكتابة هذه الدرجات الـ 260 وانما نكتفي فقط بكتابة ال 15 الاولى منها و 15 اخرى للعلاوة السنوية ويتم توليد البقية بشكل آالي تحياتي

السلام عليكم عليك بتثبيت الخلية التي سوف تقوم بضربها في الاعمدة عن طريق الضغط على f4 بعد تحديدها أو فضلا ارفق مثال

نعم اخي ان شاء الله

الموضوع بسبب اللغة المستخدمة فى محرر الاكواد اكتب اللغة فى محرر الاكواد باللغة الانجليزية فقط ولا تستخدم اى لغة اخرى حتى لو عملت تلميح لابد ان يكون بالانجليزية وعند كتابة الرسائل استخدم Unicode

وعليكم السلام حسب فهمي لطلبك اكتب في الزر الجديد CALL CommandButton1_Click CALL CommandButton2_Click

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

بروحك جرب على جهاز من اساسه وندوز 11 لان بعض منهم يثبت نسخة 11 على نسخة 10 غير مطابقة للشروط ! وجرب اصدار احدث للاكسس واذا كنت منزل تحديث على 11 رجوع الى تحديث اقدم وجرب على جهاز اخر واحتمال ان القاعده معطوبه!