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

أخي @أحمد عمروف وعليكم السلام ورحمة الله وبركاته ,, تفضل فكرتي عليك بأسلوبين .. الأول بالكود التالي من خلال توزيع المبلغ بشكلك متسلسل ، وتستطيع استدعاءه من خلال زر باسم الالة فقط :- Sub DistributeAmounts() Dim db As DAO.Database Dim rsMain As DAO.Recordset Dim rsTawzee As DAO.Recordset Dim personID As Long Dim personName As String Dim totalAmount As Long Dim numDistributions As Integer Dim basicAmount As Long Dim remainingAmount As Long Dim i As Integer Set db = CurrentDb() Set rsMain = db.OpenRecordset("Tb_Main") Set rsTawzee = db.OpenRecordset("Tb_Tawzee") If Not rsMain.EOF Then rsMain.MoveFirst Do Until rsMain.EOF personID = rsMain!ID_Name personName = rsMain!Name_ totalAmount = rsMain!Price_ numDistributions = rsMain!Cou_Tawzee basicAmount = totalAmount \ numDistributions remainingAmount = totalAmount Mod numDistributions For i = 1 To numDistributions rsTawzee.AddNew rsTawzee!ID_Name = personID rsTawzee!Name_ = personName rsTawzee!No_Tawzee = i If i <= remainingAmount Then rsTawzee!Price_Tawzee = basicAmount + 1 Else rsTawzee!Price_Tawzee = basicAmount End If rsTawzee.Update Next i rsMain.MoveNext Loop End If rsMain.Close rsTawzee.Close Set rsMain = Nothing Set rsTawzee = Nothing Set db = Nothing MsgBox "تم توزيع المبالغ بشكل تسلسلي بنجاح!", vbInformation End Sub الثاني بالكود التالي من خلال توزيع المبلغ بشكلك عشوائي ، وتستطيع استدعاءه أيضاً من خلال زر باسم الالة فقط :- Sub DistributeAmountsRandomly() Dim db As DAO.Database Dim rsMain As DAO.Recordset Dim rsTawzee As DAO.Recordset Dim personID As Long Dim personName As String Dim totalAmount As Long Dim numDistributions As Integer Dim basicAmount As Long Dim remainingAmount As Long Dim i As Integer Dim distributions() As Long Dim index As Integer Set db = CurrentDb() Set rsMain = db.OpenRecordset("Tb_Main") Set rsTawzee = db.OpenRecordset("Tb_Tawzee") If Not rsMain.EOF Then rsMain.MoveFirst Do Until rsMain.EOF personID = rsMain!ID_Name personName = rsMain!Name_ totalAmount = rsMain!Price_ numDistributions = rsMain!Cou_Tawzee basicAmount = totalAmount \ numDistributions remainingAmount = totalAmount Mod numDistributions ReDim distributions(1 To numDistributions) For i = 1 To numDistributions distributions(i) = basicAmount Next i Randomize For i = 1 To remainingAmount index = Int((numDistributions * Rnd) + 1) distributions(index) = distributions(index) + 1 Next i For i = 1 To numDistributions rsTawzee.AddNew rsTawzee!ID_Name = personID rsTawzee!Name_ = personName rsTawzee!No_Tawzee = i rsTawzee!Price_Tawzee = distributions(i) rsTawzee.Update Next i rsMain.MoveNext Loop End If rsMain.Close rsTawzee.Close Set rsMain = Nothing Set rsTawzee = Nothing Set db = Nothing MsgBox "تم توزيع المبالغ بشكل عشوائي بنجاح!", vbInformation End Sub Tawzee.mdb

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

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

هل جربت الكود في مشاركتي قبل الأخيرة ولم ينجح؟!! عموما أنا حليت لك أكبر مشكلتين في الكود: أولهما مفتاح التكرار حيث بدلته من: checkCols = Array(1, 2, 3, 4, 5) إلى: checkCols = Array(1, 4, 5) وكذلك تبديل عملية الحذف بحيث تكون من الأخير إلى الأول وهنا لا تحتاج إلى ضبط متغير row1 بعد كل عملية حذف ولا نحتاج لمقاطعة حلقة التكرار. يفترض أنك تراعي تعبنا بدلا من أن تأخذ جزء من هنا وجزء من هناك ثم ترجع بعبارة رأيت المشكلة أو وجدت الحل. ميزة الحل السابق أن يحافظ على ترتيب الادخال. سؤال لك الخيار في الرد عليه: هل التعديلات من عملك أم هناك من تتواصل معه خارج المنتدى؟

انت بتقلب فى المنتدى يا فؤش وتطلع المرفقات القديمة... عاااااش انتظروا قريبا جدا بأمر الله كدت انتهى من تحضير هدية قيمة بمعنى الكلمة إن شاء سوف تكون طفرة بمعنى الكلمة فى موضوع التفقيط وحصريا فى منتدانا الحبيب لن تجدوا لها مثيل الا فى المكتبة العامرة 😄 لانه وصل بالسلامة للمكتبة

قم بحذف الارتباط الذي وضعته من قبل من الكومبوبوكس (rowsource moi) للحصول على أسماء الشهور كما سبق الذكر طريقة فلترة البيانات خاطئة حاول شرح ما تحاول فعله ربما نستطيع مساعدتك

كما قال الأخ @Foksh أو استخدم هذه الأداة للحصول على عنوان مربعات النص .. 🙂 🙂

وعليكم السلام ورحمة الله تعالى وبركاته بعد معاينة الملف اظن انك في حاجة الى اعادة النظر في طريقة جلب البيانات الى الليست بوكس اما بخصوص تنسيق الشهر يمكنك تجربة شيء كهدا سيوفي بالغرض Private Sub UserForm_Initialize() Dim cel As Range Set f = Sheets("2") ' For Each cel In f.Range("S4:S" & f.[S65000].End(xlUp).Row) 'OR For Each cel In Range("moi") If cel.Value <> "" Then ComboBox1.AddItem Format(cel, "mmmm") End If Next cel End Sub

أستاذنا الكبير Foksh كل التقدير والشكر والاحترام لسيادتكم الفكرة رائعة وأكثر من رائعة الحل في غاية الروعة أكرمكم الله وسدد خطاكم .. وجعل عملكم في ميزان حسناتكم شكرا جزيلا .. وجزاكم الله كل الخير

تسلم الايادي مهندسينا @Foksh و @ابو جودي على مجهودكم الرائع

مشاركة مع المهندس @ابو جودي ، وأسأل الله لك الشفاء العاجل من كل سقم ,, تفضل أخي @ahmadhurira هذا المديول الجديد البعيد عن مديولك في المرفق السابق في النموذج أدخل المبلغ كمثال:- 150.320 = مائة وخمسون دينار و 320 فلس لا غير. تسديد حساب ذمم.zip

شكرا على المرور @hanan_ms 🙂 .. الهدف من الموضوع كله هو توضيح الفكرة العامة والرئيسية للقائمة وكيفية تصميمها .. الأفكار كثيرة ولا يمكن احتوائها كلها في ملف عام واحد .. فلكل شخص توجهه .. والآن الملف كله بين أيديكم يمكنكم عمل أي إضافات تريدونها أو أي فنيات أو جماليات حسب أذواقكم .. القالب متاح للتعديل حسب رغباتكم 🙂

???🤣 🤣 انا معاك والله كلامك صحيح وانا عارف ده بس اعمل ايه ده والله اول عمل ليا وانا لسه بتعلم وان شاء الله تمشي اموري صح وطلبي للكود ده علشان عندنا بالاردن الشيكات تفقط بالطريقة التي طلبتها ويا استاذي الكريم فأذا احتاج الى اي تحسينات لا تبخل علي ههههه ولك جزيل الشكر

عليكم السلام اخي احمد .. اذا لم تطور نفسك ستبقى البرمجة عندك كألغاز .. ولن تتقدم في كسب المعرفة الافضل لك كطالب علم تطبيق التوجيهات والنصائح التي يبذلها الخبراء بداية الانطلاقة تكون من الجداول .. اتقان تصميم الجداول على الطريقة العلمية الصحيحة ................... نعود لمشكلتك السبب في عدم انضباط التصفية في حقل التاريخ هو ان قيمة الحقل فعليا تاريخ متكامل ( يوم/شهر/سنة ) وما تراه مختصرا ما هو الا تنسيق فقط لهذا يجب اختصار التاريخ في حقل منفرد ثم التصفية من خلاله INSTALLMENT4.rar

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

اخي الكريم الحل بسيط بما ان العمولة 2.5% فان الصافي يساوي 97.5% من الاجمالي ولاخراج الاجمالي نضرب الصافي × 100/ 97.5 معادلة للحل.xls

وعليكم السلام-بما انك لم تقم برفع ملف بالمطلوب بكل دقة -فكان عليك استخدام خاصية البحث بالمنتدى https://www.officena.net/ib/search/?q=تفقيط&quick=1&type=forums_topic&nodes=135

يا عم حرام عليك انت عامل ايه انت كل ما تلاقى موضوع بيتكلم عن التفقيط او تحويل الارقام لـ تيكست تضيف اكواده وخلاص ؟؟؟

مشكورين الى من كان عونا لنا في استرجاع الايميل وشكرا

freecompress-Recording 2024-08-05 120843.rarاتفضل الفيديو

وعليكم السلام تفضل أخي الكريم =IF(L40="";"";TEXT(L40;"yyyy/mm/dd")&" - "&M40) ثم اسحب نزولاً تقبل تحياتي العطرة. AA.xlsx

جرب التعديل واختبره جيدا توزيع الدفعات_03.xlsx

وهذا تنقيح للكود بطريقتي: Sub RemoveZeroDuplicates() Dim ws As Worksheet, count As Long Dim row As Long, lRow As Long Application.ScreenUpdating = False Sheets("Sheet3").Select Set ws = ActiveSheet With ws lRow = ActiveCell.SpecialCells(xlLastCell).row For row = lRow To 2 Step -1 If .Cells(row, 8) = "Yes" Then count = count + 1 .Rows(row).Delete Shift:=xlUp End If Next row End With Application.ScreenUpdating = True MsgBox "تم حذف " & count & " سجل" End Sub

اصدقائي الاعزاء السلام عليكم اضع بين ايديكم بالصوت والصورة طريقة وضع رقم سري لحماية نموذج الاكسس من التطفل واللعب بالمعلوما ت المهمة وخاصة سندات القبض والصرف حيث لا يستطيع أحد أن يضيف مبلغ الا بعد ادخال الرقم السري اتمنى لكم الفائدة والعلم لا يحتكر رابط الفيديو على اليوتيوب