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

وعليكم السلام 🙂 هناك العديد من المواضيع في المنتدى بهذا الخصوص ، ويمكنك ان تخبرنا الطريق التي اتبعتها في برنامجك ، لتحصل على آراء الاعضاء 🙂 الحماية ليست من تخصصي (يعني 99% من برامجي ليست فيها حماية) ، لهذا السبب فأنا أفضل ان يساعدنا بقية الاعضاء ذوي الخبرة 🙂 جعفر

و عليكم السلام و رحمة الله و بركاتة اخي العزيز يمكنك استخدام دالة Dcount

عزيزي ابوحسان انا عملت لك مطلوبك الذي هو عنوان الموضوع ، وطلبك الاخير مع ان الاصل فتح موضوع جديد به ، الا اني لم اتمكن من الوصول الى حل حسب التصميم الحالي فأنت مخير بين ان تنتظر لعل احد اخوتنا الأعضاء يتمكن من ايجاد حل لك ، وإما ان تفتح موضوعا جديدا بطلبك هذا

يمكن ان يكون المطلوب Sameh.xlsx

الكود المطلوب Option Explicit Sub del_rows() Dim My_sh As Worksheet Dim Tabl As Range Dim Rg_Del As Range Dim MotB, Motc, i% Set My_sh = Sheets("Data") MotB = My_sh.Range("B2") Motc = My_sh.Range("C2") Set Tabl = My_sh.Range("G3", Range("K2").End(4)) If Tabl.Rows.Count > 10000 Then Exit Sub For i = 1 To Tabl.Rows.Count If Tabl.Cells(i, 1) = MotB _ And Tabl.Cells(i, 2) = Motc Then If Rg_Del Is Nothing Then Set Rg_Del = Tabl.Cells(i, 1).Resize(, 5) Else Set Rg_Del = _ Union(Rg_Del, Tabl.Cells(i, 1).Resize(, 5)) End If End If Next i If Not Rg_Del Is Nothing Then Rg_Del.Delete End If End Sub Fouri.xlsm

السلام عليكم جرب المرفق بكود طباعة آخر مع بعض التعديلات على الملف (إضافة معادلات)... otokar.xlsm

لتفعيل النسخ الإحتياطي التلقائي ، قم بما يلي: أولاً : إعدادت إختيار قواعد البيانات لعمل النسخ الإحتياطى التلقائي لها 1) انقر على الزر "إعداد النسخ الإحتياطي التقائي". أدخل المسار الكامل لقواعد البيانات التي ترغب في النسخ الاحتياطي لها.بإستخدام الزر "استعراض لإختيار قواعد البيانات" 2)انقر على الزر "إضافة قاعدة بيانات إلي القائمة" لإضافة قاعدة بيانات جديدة. 3) انقر مرتين على أي قاعدة بيانات في القائمة للتعديل أو الحذف. ــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ ثانياً : إعدادات مسار تخزين النسخ الإحتياطى التلقائي حدد المسار الكامل الذي تريد حفظ قواعد بيانات النسخ الاحتياطي.فيه عن طريق النقر على الزر "تحديد مسار التخزين" وهذا المسار يجب بالفعل أن يكون موجوداً أو سوف يتم إحباط العملية. ــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ ثالثاً : إعدادات وقت النسخ الإحتياطي التلقائي تحديد وقت بدء النسخ الإحتياطي التلقائي هام جداً جداً جداً أدخل الوقت بهذا التنسيق (HH:MM:SS AM / PM) شرح التسيق HH الساعة MM الدقيقة SS الثانية AM / PM أو ص / م وهذا يشير لتحديد الساعة صباحا او مساءً ويظهر هذا التنسيق فقط عندما تكون إعدادت نظام التشغيل تم تحديد الوقت فيه على نظام 12 ساعة مثال عندما نريد نسخ تلقائى فى تمام الساعة الواحدة ظهراً تكون بهذا الشكل (01:00:00 م ) وفي حالة ضبط إعدادت الوقت فى نظام التشغيل 24 ساعة يكون التسيق (HH:MM:SS) مثال عندما نريد نسخ تلقائى فى تمام الساعة الواحدة ظهراً تكون بهذا الشكل (13:00:00) ــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ ملاحظـــــة هامــــــــة ـــــــــــــــــــــــــــــــــــ لكى يتم عمل النسخ التلقائي لقواعد البيانات بشكل تلقائي طبقاً للإعدادت المسبقة 1- يجب فتح النموذج المسئول عن النسخ الإحتياطي التلقائي من خلال النقر على الزر "بدء النسخ الاحتياطي التلقائي" وإلا لن يتم النسخ الاحتياطى تلقائيا فى الوقت المحدد طبقاً للإعدادت المحددة 2- فى حالة إستخدام شاشة التوقف أو شاشة حماية إذا كنت ترغب فى الحصول على السرية والحماية للجهاز الخاص بك فى غيابك لن يؤثر ذلك على النسخ التلقائي ☺ ملاحظة هامة جدا جدا جدا يتم تحديد قاعدة بيانات أو أكثر لعمل نسخ احتياطى لها وضغط واصلاح مرة واحدة فقط من الاعدادت يتم تحديد المسار المراد حفظ النسخ الاحتياطى مرة واحدة فقط وقمت بعمل طريقة تجعل البرنامج يقوم كل يوم بعمل مجلد باسم وتاريخ اليوم دون اى تدخل من المستخدم فقط غير فتح النموذج "frmTimer" مشكلة لو تم وضع باسورد لحماية قاعدة البيانات المراد عمل نسخ احتياطى لها عند فتحها فلن يكتمل النسخ التلقائى الالى بسبب كلمة السر هذه ولن يتم عمل اى نسخ احتياطى لباقى قواعد البيانات الاخرى للامانة العلمية : هذا البرنامج حصلت عليه من احد المنتديات الاجنبية ولكن قمت بتعديلات كثيرة جدا للوصول الى هذه النتيجة المثمرة ان شاء الله واضعها بين أيديكم حتى تعم الفائدة AutoBackup.rar

وعليكم السلام-لك ما طلبت قوائم الفصل 2.xlsm

السلام عليكم ورحمة الله نعم و رقم 7 يدل على عدد الصفوف الخاصة بالمنتجات الستة + صف الاجمالى فى كل مرة ارجو ان تكون قد وصلت الفكرة استخدم المعادلة التالية و اسحبها طولا و عرضا =INDEX($C$2:$G$29;MATCH(K$2;$B$2:$B$28;0)+($L$1-1)*7;MATCH($J3;$C$1:$F$1;0))

تفضل اخي الكريم .. أتمنى ان يكون هذا طلبك بالنسبة لسؤالك فهو يعتمد على درجة تعقيد برنامجك وطريقة تنفيذ الافكار فيه والاكواد التي تستعملها وما الى ذلك من امور .. فنقل الاكواد بشكل عام الى وحدة نمطية لايؤثر بحد ذاته على شيء تحياتي b (2).accdb

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

في الدالة PN_All لم نذكر كيفية التعامل مع القيمة صفر ، وحتى اذا كتبناها ، ففي التقرير لما نجمع ، بنحصل على اصفار !! الطريقة التالية تعطيك كل الارقام ، ولكن لما تحصل على صفر ، فهي تخفية ، لجميع الحالات All و Positive و Negative . وهذا مجرد تنسيق ، من اليسار الى اليمين: القيمة الموجبة ، القيمة السالبة ، القيمة صفر ، القيمة Null : #;\-#;"";""

من فضلك اخى الكريم عليك قبل رفع اى مشاركة لابد من استخدام خاصية البحث بالمنتدى ... لمعرفة ما اذا تم مناقشة وتناول موضوعات مشابهة لطلبك ام الله , وذلك تجنباً لإهدار واضاعة وقت الأساتذة فى موضوعات ومشاركات تم تكرارها كثيراً ؟ !!! ومنها كشف حساب

اختار Top Left ، اما الباقين فهي لأمور اخرى ، انظر : جعل برنامجك يتحجم تبعاً لاختلاف الشاشات - responsive design - قسم الأكسيس Access - أوفيسنا (officena.net) جعفر

وعليكم السلام-وكيف يمكن ذلك بدون الملف ؟!!! لابد من رفع الملف حتى نعلم بوظيفة هذه المعادلة فلا يمكن العمل على التخمين !!!

وعليكم السلام 🙂 اختار احد الخيارات ، انت الآن خلطت بينهم 🙂 . جعفر

إليكم أيها الزملاء برنامج كنترول Control2021pro لكنترول هذا العام البرنامج للمرحلتين الابتدائية و الاعدادية: البرنامج سهل وبسيط ويشمل على : للترمين- لكشوف للنتيجة بعد انهاء الرصد للترمين - شهادات للترمين - كشوف الجان بالاضافة إلى سرعة عالية جدا فى اداء العمليات الحسابية والمعالجات المختلفة و يمكن التحكم فى كل وظائف البرنامج بواسطة لوحة التحكم ارجو منكم تجربته وأنتظر تعليقاتكم ... تـــم رفع أخر تعديلات للبرنامج هنا 161502775899311.rar

وعليكم السلام 🙂 تم حذف هذه الميزة من اكسس 2013 ، ولكن هناك اداة من مايكروسوفت لتقوم بنفس العمل اسمها SSMA ، ويمكنك انزالها من هذا الرابط : https://www.microsoft.com/en-us/download/confirmation.aspx?id=54255 جعفر

محاولة بسيطة للمطلوب لآن المعلومات الموجودة بالجدول غير متانسقة فالإسم تجده متكرر لكن رقم التعريف الوطني غير مطابق، للوصول للمطلوب بالصبط يجب أن تكون البيانات متاسقة للبحث عن السجلات المطVisitors_3.mdbررة أكثر من مرة على الأقل بتطابق حقلين مثلا الاسم و المعرف الوطني

وعليكم السلام-تفضل النتائج1.xlsx

نزل الملف المرفق من طرف الأستاذ جعفر و طبق عليه التعديلات، و لا تنسى تعديل الدوال حسب ما اقترحه الأستاذ، و لن تخلط الأمور فالحل المقترح من طرفه احترافي و يوفر لك الثبات و الدقه في تنفيذ المطلوب،

ونصيحة ، ابدا لا تستخدم هذه الخاصية في الجدول : . وانما اعمل جدول خاص بقيم هذا الحقل ، ثم في الاستعلام تربط هذا الحقل بحقل الجدول الآخر. لاحظ ان جوابي في المشاركة السابقة لم يتطرق لهذا الحقل ، لأنه لا يوجد طريقة لمعرفة استخدامك لهذه الخاصية إلا بفتح الجدول في وضع التصميم ومعرفة القيم !! عليه ، الدوال يجب تغييرها الى: Function TR_Check(str_N As String) As Boolean If str_N = "^" Or str_N = "#^" Or str_N = "@^" Then TR_Check = True End If End Function Function Type_Check(str_N As String) As Long If IsNumeric(str_N) Or str_N = Chr(34) & "^" & Chr(34) Or str_N = Chr(34) & "*" & Chr(34) Then Type_Check = 1 ElseIf str_N = "@^" Or str_N = "@" Then Type_Check = 2 ElseIf str_N = "^" Then Type_Check = 3 ElseIf str_N = "#^" Or str_N = "#" Then Type_Check = 4 End If End Function جعفر

غير معيار التصفية إلى الكود التالي Like '"*"' Or '"^"' Or >="0"

محاولة بواسطة دالة لتنفيذ الإستعلامات بواسطة زر على النموذج، MZtab2(1).accdb

السلام عليكم اهلاً بك فى المنتدى -بسيطة يمكنك استخدام هذه المعادلة =SUBTOTAL(3,$G$3:$G$1000) 1معادلة اظهار عدد عند عمل فلتر ممكن 500 صف مع 20 جنسية.xlsx

عندي اشتغلت عادي سوف اراجع الملف و اخبرك للتأكد MZtab2(1).accdb

جرب المعيار التالي حسب التجربة يقوم بتحدث الحقل الذي فيه رقم ="*" Or "^" Or >="0"

وعليكم السلام-بسيطة اجعل المعادلة هكذا =IF(OR($A2="",$B2=""),"",DATEDIF($A$2,$B$2,"d")) ‫معادلة حساب تاريخين - 1نسخة.xls

السلام عليكم لا اعلم متى تستغني عن ارقام الصفحات ، فوجوده في اكسس لا معنى له وهي سبب المشكلة تفضل تعديل بسيط على مرفق اخي احمد DATA14.rar

جوابا عن الجزء الأول من السؤال بواسطة استعلام تحديث MZtab.accdb

جرب هذه المعادلة =IFERROR(LOOKUP(1,0/(Sheet1!$B:$B=$G5)/(Sheet1!$C:$C=$C5),Sheet1!$E:$E),"") m h1.xlsb

عليك برفع الملف الذى يحدث به خطأ معك ... فالملف عندى يعمل بكل كفاءة حتى مع زيادة اى إدخلات جديدة وراجع الملف من فضلك مرة أخرى وهذه هى المعادلة المستخدمة بالتنسيقات الشرطية -مع ضبط تنسيقات اليوم داخل التقويم =MATCH(A5,BSD,0)

فكما ترى بنفسك يعمل معى بكفاءة ولا يوجد به اى مشكلة

وعليكم السلام-عليك بضبط اللغة العربية لديك ... وبما انك لم تقم برفع الملف فكان عليك استخدام خاصية البحث بالمنتدى-تفضل مشكلة في اللغة العربية

بارك الله فيك استاذ مجدى وزادك الله من فضله

وعليكم السلام-تفضل لك ما طلبت =CONCATENATE(TEXT(B5,"dddd"),CHAR(10),TEXT(B5,"b2dddd")) 1 Microsoft Excel Worksheet (2).xlsx

بارك الله فيك استاذ محمد فؤاد يمكنك استخدام هذا الكود أستاذ حسن للطباعة بدون فراغات Sub Macro4() Range("A1:e350").Select Selection.AutoFilter Selection.AutoFilter Field:=1, Criteria1:="<>" Columns("A:e").Select Range("A1").Activate Selection.PrintOut Copies:=1, Preview:=True, Collate:=True On Error Resume Next Sheet2.ShowAllData On Error GoTo 0 End Sub كشف حساب.xlsm

تفضل يا غالى كشف حساب.xlsx

وعليكم السلام-تفضل لك ما طلبت بالتنسيقات الشرطية بعد ضبط تنسيق التواريخ بصفحة التقويم Training Plan - Master - Final 2021.xlsx

أ.abouelhassan يبدو أن عدد السجلات المراد لصقها اكبر من 9500 سجل ولذا يجب زيادتها عن طريق مايلي وكنت افضل لو تمت هذه العملية عن طريق إستعلام الحاق فهى أسرع وأدق بالتوفيق

عمل ممتاز أستاذ محمد جعله الله فى ميزان حسناتك

ان قمت بالتدقيق فى الرابط الذى رفعته لك لوجدت طلبك به وهذه هى المعادلة المطلوبة =IFERROR(MID($A3,LEN($A3)-(COLUMNS($B2:B2)-1),1),0)+0 فصل الرقم القومى1.xlsm

تم عمل المطلوب في صفحة Stock حيث تتلون باللون الأصفر في حال انتهاء الكمية ويتم تحديث الجدول تلقائي بواسطة كود تحديث الـ Pivot table لذلك تم تغيير امتداد الملف ليتضمن كود vba بالتوفيق IT-2.xlsb

بارك الله فيكى وجزاكى الله خير الثواب-والحمد لله الذى بنعمته تتم الصالحات