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

إذا تطابق اللون والوصف والمقاس سيتم ألغاء الإضافة Private Sub CommandButton1_Click() Application.ScreenUpdating = False Application.EnableEvents = False Application.Calculation = xlCalculationManual Dim WS As Worksheet, rng As Range Dim lastRow As Long Set WS = Sheet1 If Me.TextBox4 = "" Then: Exit Sub '======= lastRow = WS.Cells(WS.Rows.Count, "A").End(xlUp).Row For i = 2 To lastRow ' äÈÏà ãä ÇáÕÝ 2 assuming ÇáÕÝ ÇáÃæá ÚäÇæíä If WS.Cells(i, 2).Value = Me.TextBox1.Value _ And WS.Cells(i, 3).Value = Me.TextBox7.Value _ And WS.Cells(i, 4).Value = Me.TextBox2.Value _ Then MsgBox "ÇáÈíÇäÇÊ ÇáÊí ÊÍÇæá ÃÖÇÝÊåÇ ãæÌæÏÉ ãä ÞÈá", vbOKOnly, "ÈíÇäÇÊ ãßÑÑÉ" Exit Sub End If Next i '======= Set rng = WS.Range("a2100").End(xlUp).Offset(1, 0) rng.Offset(0, 0).Value = Me.TextBox4.Value rng.Offset(0, 1).Value = Me.TextBox1.Value rng.Offset(0, 3).Value = Me.TextBox2.Value rng.Offset(0, 5).Value = Me.TextBox3.Value rng.Offset(0, 6).Value = Me.TextBox5.Value rng.Offset(0, 7).Value = Me.TextBox6.Value rng.Offset(0, 2).Value = Me.TextBox7.Value For i = 1 To 7 Controls("textbox" & i).Text = Empty Next i Application.ScreenUpdating = True Application.EnableEvents = True Application.Calculation = xlCalculationAutomatic End Sub

ابشر العمل قيد التنفيذ إن شاء الله سأطرح عملا مختصرا احترافيا لفكرة الحضور والانصراف لك ولغيرك ممن يهمه الأمر

المنتدى الجميل أرفع ملف يتم ربطه بقاعدة البيانات المرفقة وهو مفتوح المصدر وهو عباره عن برنامج لمتابعة حركة السيارات وصياناتها وقطع الغيار وصرف الوقود ومعدلات الصرف وحركة السيارت أرجو أن ينال إعجابكم ويجعله نافعا لمن يستخدمه أسألكم الدعاء بظهر الغيب CARV.7.5.rar CARV.7.5_be.rar

أخواني وأساتذتي ومعلمينا ( دون استثناء ) في هذه الأداة والتي وظيفتها إزالة التكرارات من الجداول ، قمت بتنفيذ فكرتها بناءً على مشكلة واجهت أحد منتسبي مجتمع اكسس جروب على الواتس اب . حيث كل ما على المستخدم هو نقل النموذج لمشروعه ، واختيار الجدول الذي يريد حذف التكرارات منه . المزايا التي تم تأمينها في الأداة :- 1️⃣ التعرف على أسماء الجداول في قاعدة البيانات الحالية عند فتح الأداة . 2️⃣ التعرف على عدد السجلات في الجدول عند اختيار أي جدول بسرعة فائقة . ( تمت التجربة على الملف المرفق بعدد سجلات = 1886169 سجل ) ولا تحتوي على بيانات شخصية أو سرية . 3️⃣ إمكانية إيقاف العملية أثناء الفحص ( في حال استطاع المستخدم اللحاق بها 😅 ) . 4️⃣ نموذج تفاعلي لكل مرحلة من مراحل التصفية والتنقية ، والمرحلة الحالية التي هي قيد العمل حالياً . 5️⃣ لا حاجة لاختيار الحقول في أي جدول ، فقط اسم الجدول ، وستتم المقارنة بين السجلات على جميع الحقول دون تحديد أسمائها . 6️⃣ تجاوز حقل الترقيم التلقائي من المقارنة بين السجلات واجهة الإداة البسيطة :- صورة توضيحية لأداء الأداة :- لاحظ أخي الكريم أن الزمن المستغرق تقريباً 18 ثانية لفلترة سجلات تتكون من أكثر من مليون و 880 ألف سجل في الجهاز الحالي وفي جهاز آخر استغرق الأمر على نفس عدد السجلات تقريباً 9 ثواني فقط لا غير .😮. حجم الملف المرفق تقريباً 23 ميجا ، وذلك ليس حجم الأداة ، بل حجم الجدول الذي يحتوي 1,886,169 سجل 😁 . ملف الأداة مفتوح المصدر مع الجدول :- Smart Fillter.zip ملف الأداة مفتوح المصدر بدون الجدول :- Smart Fillter No TBL.zip تحديث جديد للتعامل مع الحقول المحسوبة :- Smart Fillter Fix Calc.zip

وعليكم السلام ورحمة الله وبركاته .. جرب هذا التعديل بعد التعديل.zip

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

Microsoft Access 2019 Programming by Example with VBA, XML, and ASP https://www.mediafire.com/file/ommdwpjia97lgrq/Microsoft+Access+2019+Programming+by+Example+with+VBA,+XML,+and+ASP.pdf/file

وعليكم السلام ورحمة الله وبركاته الشرط '01'!O$7:O$1020="محول إلى" مكرر مرتين الشرط الاول اتركه كما هو ومحول الى الثانية غيرها الى محولة إلى =IFERROR(INDEX('01'!C$7:C$1020; SMALL(IF(('01'!O$7:O$1020="محول إلى")+('01'!O$7:O$1020="محولة إلى"); ROW('01'!O$7:O$1020)-ROW('01'!O$7)+1); ROWS($A$1:A1))); "") ويمكن تحسين المعادلة الى =IFERROR(INDEX('01'!C$7:C$1020; SMALL(IF(('01'!O$7:O$1020={"محول إلى","محولة إلى"}); ROW('01'!O$7:O$1020)-ROW('01'!O$7)+1); ROWS($A$1:A1))); "") اذا كان اصدار الاكسل 2021 او 365 استخدم المعادلة التالية =FILTER('01'!C$7:C$1020; ('01'!O$7:O$1020="محول إلى") + ('01'!O$7:O$1020="محولة إلى"); "") ان لم تؤدى المعادلة طلبك ارفق ملف به بعض البيانات

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