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

وعليكم السلام 🙂 مثل ما قال اخوي عمرو ، هناك عدة طرق للوصول الى طلبك ، ومن الخطأ وضع DCount واخواتها في استعلام ، والافضل استعمال الاستعلام للحصول على النتيجة المطلوبة (وليس عن طريق استعلام المجاميع ، لأنه بطيء كذلك) ، وحتى الدالة Dcount يمكن جعلها تعمل اسرع ، هكذا ، نستعمل * بدل اسم الحقل : بدل A = DCount("[Salary]","Table_Name","[ID]=" & myID) استعمل A = DCount("*","Table_Name","[ID]=" & myID) جعفر

تفضل تعديل فاتورة (1).xlsm

جرب هذا الملف Shibl_Find.xlsm

Dim rst As Recordset Set rst = Me.RecordsetClone rst.MoveFirst Do Until rst.EOF If rst![رقم العملية] = Me![T4] Then MsgBox " السجل مكرر ", , " تنبيه" Me.Undo DoCmd.CancelEvent Exit Do End If rst.MoveNext Loop rst.Close F05.rar

السلام عليكم ورحمة الله وبركاته هناء : * برنامج يقوم بحساب ( تكلفة البناء ) مصمم على أوفيس 2003 * المعطيات أصحاب الشأن * أمل ان يكون عملا موفق ونافع والله من وراء القصد الشكر الجزيل لمن قدم لنا معلومة في هذا المنتدى ولمن ترك معلومة في المنتديات الأخرى واستفدنا منها Building.rar

سيدي الفاضل 🙂 هذا تسلسل بالصباحي والمسائي ، والتسلسل لجميع الايام : استعملنا هذا الحقل لنحصل على التسلسل على اساسه : . . وهذا تسلسل للصباحي والمسائي مع اليوم ، كل يوم بتسلسل مستقل : وهنا ضيقنا الخناق ، فاستعملنا هذين الحقلين (واذا تريد ، فممكن تضيف حقول اخرى مع هذين الحقلين) لنحصل على التسلسل اليومي : . . ومثل ما قال اخوي ابوخليل ، مافي داعي تحفظ هذه الارقام في جدول ، فيمكنك استعمال هذه الدالة في جميع استعلاماتك 🙂 جعفر 1342.Count if.accdb.zip

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

تفضل تم التعديل 2.xlsb

المشكلة فى طريقة استخدامها وليس فى الدالة نفسها .. مثال اذا استخدمتها فى استعلام Query قد تسبب بطء شديد فيه على حسب عدد السجلات .. مثال اخر اذا استخدمتها فى نموذج Datasheet نفس المشكلة .. طيب الحل ايه ؟ فيه حلول كتير الحل الابسط على مثالك السابق تقوم بوضع الدالة فى حدث قبل التحديث Before Update للحقل المراد اختبار تكرار القيمة فيه ووضع رسالة تحدير فى حالة التكرار .. بالطريقة السابقة هتكون الدالة قامت بدورها دون كتابة نتيجتها فى اى مكان غير الذاكرة فقط .. والله اعلم .. بالتوفيق

نعم هذا صحيح ، والوضع لايزال مستمر في صيغة accde كذلك ، والسبب وبكل بساطة ، اننا لا نستطيع ان نفتح النموذج في وضع التصميم في تلك الصيغ ، ناهيك عن اضافة الكود 🙂 ولكن ، المرفق الذي اشرت اليه في الرابط اعلاه ، يعمل برنامج خارجي بصيغة mdb او accdb ، وفيه هذا النموذج الجديد المعمول برمجيا ، ومن ثم نستطيع فتحه من برنامجنا mde اذا اردنا !! والشيء اللازم معرفته هو ، ان عمل نموذج برمجيا يكون بطيء بعض الشيء ، ولما يكمل تكوينه ويتم حفظه ، يكون فتحه بنفس سرعة النموذج العادي 🙂 جعفر

حبيبى أشكرك و اسف على سوء الفهم بارك الله فيكم

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

وعليكم السلام-يمكنك استخدام هذه المعادلة =IFERROR($G3*VLOOKUP($A3,'نسب العمولة'!$D$3:$G$800,2,0),"") Test1.xlsx

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

فقط يمكنك استخدام هذه المعادلة لتلبية طلبك فأول جزء المعادلة هو lookup ثم فتح القوس وكتابة الرقم 1 ثم علامة ثم 0 وهذا كود ثابت بالمعادلة ثم علامة / وكتابة الجزء الخاص بالبحث بالعمود الأول بالصفحة التى تريد جلب البيانات منها ثم الجزء الأخر بالمعادلة وهو Offset ثم ذكر رقم الخلية التى نود البحث من خلالها وأخيراً الجزء الأخير من المعادلة وهو ذكر العمود الثانى من الصفحة التى نريد جلب البيانات منها وهى النتيجة التى نريد اظهارها بالمعادلة =IFERROR(LOOKUP(1,0/MATCH("*"&Sheet2!$A$1:$A$45&"*",OFFSET(C69,,,COUNTIF(F:F,F69)),0),Sheet2!$B$1:$B$45),"") New Microsoft Excel 97-2003 Worksheet.xls

اضف هذا السطر للكود في الزر المسمى "تعديل" If TextBox6 = "" Then MsgBox "المرجو ادخال الرمز في المربع الاصفر ": Exit Sub الصورة

نعم أخي الكريم يمكن عمل ذلك عن طريق الكود التالي DoCmd.OutputTo acOutputForm, "yourform", acFormatPDF, CurrentProject.Path & "\" & Format(Date, "dd-MM-yyyy ") & ".pdf", False تضع الكود السابق تحت زر امر على النموذج .. ستجد انه قام بحفظ الفورم بصيغة pdf في نفس مسار البرنامج لديك ملاحظة: اذا اردت ان يفتح الملف بعد الحفظ غير false الى true كما بامكانك تصدير الفورم يدوياً كما في الصورة تحياتي

السلام عليكم ورخمة الله تم استخدام Sheet3 كورقة مساعدة يمكنك اخفاءها اذا اردت و قد تركت ظاهرة ليمكنك التعديل عليها اليك الملف كشف بأسماء العاملين بالوحدة.xlsx

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

وعليكم السلام 🙂 اولا ، قوانين المنتدى تمنع مخالفة حقوق الملكية الفكرية ، ومنها كسر حماية برنامج محمي !! ثانيا ، وبما انك لا تعرف الاكواد الموجودة في البرنامج ، فما الفائدة منها ، حيث ان الاكواد موجودة في كل مكان !! ثالثا ، ليش ما تستفيد من البرنامج كما هو وبدون مقابل ، واذا اردت تعديل ، فالمبرمج يستاهل ان يحصل له مردود على عمله اللي عجبك 🙂 يُغلق جعفر

السلام عليكم مرفق مثال منقول اتمناه ان يفيدك و هو مظبط على يوم 18/2/2021 ممكن تدخل على عرض التعليمات البرمجيه و تعدل على كيفك . تحياتي اغلاق البرنامج بعد فترة محدد.rar

وعليكم السلام ورحمة الله وبركاته،،، اضغط على لوحة المفاتيح Ctrl+H (بحث واستبدال) بخانة البحث اضغط على المفتاح SHIFT والنقر على مفتاح الحرف التاء مرة واحدة، وفي خانة الاستبدال اتركها فارغة، واضغط على استبدال الكل، ستجد أن كل المسافات قد أُزيلت. دمتم بخير