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

السلام عليكم و رحمة الله ضع المعادلة التالية فى عمود الاسماء =IFERROR(INDEX(ورقة1!$B$2:$C$12;SMALL(IF((ورقة1!$C$2:$C$12>=$F$1)*(ورقة1!$C$2:$C$12<=$E$1)>0;ROW(ورقة1!$C$2:$C$12));ROW(A1))-1;1);"") ثم اضغط CTRL+ SHIFT + ENTER و اسحب نزولا حتى آخر خلية كرر نفس المعادلة فى عمود التاريخ و غير الرقم الاخير فى المعادلة و هو 1 الى 2

وعليكم السلام ورحمة الله وبركاته تفضل أخي الكريم ex1.xlsx

جرب محاولتي: حساب ضريبة كسب العمل_03.xlsx

السلام عليكم ورحمة الله بما أن القوائم في كل الشيتات: "قائمة ب"، "غياب ب"، "قوائم لعب"، "استلام طفل حضانة" ، "قوائم بالميلاد"، تستمد عناصرها من القائمة الموجودة في شيت "بيان ب" فقد قمت بإضافة كود الترتيب حسب العمودين D (عمود المجموعات) و B (عمود الأسماء) بهذا الترتيب... وضعت هذا الكود داخل كود "استبدال الهمزات والتاء" ويكون تنفيذه مباشرة بعد الاستبدالات... ملاحظة: أضفت بعض النطاقات بالتسمية لأجل الترتيب (Rng_2، Rng_1، Rng)... بالنسبة للإحصائيات فقد أضفت المعادلات اللازمة لذلك في الجدول في شيت "إحصاء ب"... واعذرني على التأخير لأني بدأت العمل على الملف بالأمس (كما وعدتك) غير أني نسيت جهازي عند مغادرة مقر عملي... أخوك بن علية حاجي برنامج أبو عزيز تحديث رواق.rar

أخي محمد البرناوي الحبيب 🙂 مما لاحظته على هذا الكود أنه بمجرد الانتقال للسجل الجديد يقوم بتفعيله .. فإذا قرر المستخدم عدم إضافة السجل سيبقى فارغا .. مما سينتج العديد من السجلات الفارغة في الجدول مع تكرار نفس العملية .. لذلك أقترح أن تضيف الكود الخاص بك في حدث ( قبل الإدراج Before Insert ) أو استخدام الكود الذي أدرجته سابقا : في حدث عند الفتح .. وهذا سيحل الإشكال 🙂

وعليكم السلام ورحمة الله تعالى وبركاته Private Sub TextBox2_Change() On Error Resume Next Diff_n = DateDiff("n", TextBox1, TextBox2) Diff_h = Diff_n \ 60 Diff_m = Diff_n - (Diff_h * 60) TextBox3 = Format(Diff_h, "00") & ":" & Format(Diff_m, "00") On Error GoTo 0 End Sub test.xlsm

راجع هذا الاستعلام هل النتائج صحيحة كالتي تريد ؟؟؟؟؟

حياك الله اخي العزيز اليك ماطلبت بطريقة مختصرة جدا IF(A2>=3750;(A2-2031.25)*20%;IF(A2>=2500;(A2-1458.33)*15%;IF(A2>=1250;(A2-937.5)*10%;0))) ضريبة كسب العمل.xlsx

وعليكم السلام اكتب الكود بعد التحديث...هكذا Private Sub xx_AfterUpdate() If Nz(DCount("[Key]", "dfg", "[xx]=[nmber]"), 0) = 0 Then Else MsgBox "هذا الرقم مكرر", vbInformation, "رسالة تنبيه" DoCmd.CancelEvent Me.xx = "" End If Me.الاسم.SetFocus End Sub

آمين يارب العالمين 🤲 ولكم بمثل ما دعوتم أخي الكريم

@محمد حسن المحمدانا شاكر جدا لحضرتك ولوقتك المبذول لمساعدتى. ربنا يزيدك من فضله ويحفظك من كل سوء.

حياكم الله أخي الكريم تفضل أرجو أن ينال إعجابكم Ex2.xlsx

@محمد حسن المحمدشكرا لحضرتك. تم إرفاق الملف أسفل التعليق. Ex2.xlsx

نعم اخي الغالي كلامك صحيح ..... بارك الله فيك بارك الله فيك ... نحن في الخدمة .... لم نتواجد هنا سوى للتعلم والافادة ....

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

جرب المرفق ...... test (17).accdb

ألف 100 مليون شكر لحضرتك ا/ ابراهيم ربنا يباركلك

انا شاكر جداً لحضرتك وربنا يجعله فى ميزان حسناتك.

تفضل لاحظ التغيير في علاقات الجداول لانه لايصلح العلاقة تكون في الاسم وانما الاصح ان تكون في المعرف ، لانه منطقيا يمكن حصول تشابه تماما في الاسماء وهذا يقع كثيرا fmmm3.rar

السلام عليكم استاذ موسى ان شاء الله بالف خير تم معالجة الامر باذن الله لكني وجدت شي اخر في ملفك عند اضافة مقدم للقسط تظهر اعشار للمبلغ (باقي) كما في الصورة قمت بحسب معرفتي بوضع دالة round اما الكود Me.SubFrm.Form![QstAmount] = Fix(i) + Round(f, 0) تحياتي لك البرنامج هنا بعد التعدلات يارب يكون تمام برنامج الأقساط - موسى.accdb

ممكن ده يظبط معاك برضوا Rename Files.xlsm

وهذا كود لإنهاء مهمة أكسس، من جلبي وتصرفي: Sub Kill_msAccess() Dim oServ As Object Dim cProc As Variant Dim oProc As Object Set oServ = GetObject("winmgmts:") Set cProc = oServ.ExecQuery("Select * from Win32_Process") For Each oProc In cProc 'Rename MSACCESS.EXE in the line below with the process that you need to Terminate. 'NOTE: It is 'case sensitive If oProc.Name = "MSACCESS.EXE" Then MsgBox "KILL" 'used to display a message for testing pur oProc.Terminate 'kill exe End If Next End Sub