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

السلام عليكم هذا الجزء في التصميم تم التطرق اليه في هذا المنتدى ومن يبحث يجد الكثير .. علما اني قد استفدت واخذت من تلك المواضيع فما انا الا ناقل .. والعلم تراكمي ينتقل ويتزايد . وحتى يكون هذا الموضوع مرجع مختصر يتم نقله فقط الى برنامجك .. لذا عملت على اعداد مثال صغير وهو عبارة عن جدول ونموذج ووحدة نمطية ويتم من خلاله رصد التالي : - معرف السجل - اسم الحقل - اسم النموذج - القيمة الأساسية ( قبل التعديل ) - القيمة الجديدة (بعد التعديل ) - اسم المستخدم - تاريخ ووقت التعديل مع امكانية التصفية والبحث بين تاريخين -------------------------------------------------------------- كل ما عليك عمله هو : اولا : نقل الكائنات التالية (جدول/نموذج/وحدة نمطية) الى برنامجك : modAudit / frmAudit / tblAudit ثانيا : اي نموذج في مشروعك ترغب في تتبع التعديلات التي تجري عليه .. فقط الصق فيه هذا الكود في حدث قبل التحديث Private Sub Form_BeforeUpdate(Cancel As Integer) Dim x As Integer If Not IsNull(Me!ID) Then x = WriteAudit(Me, Me!ID) End If End Sub ID يمثل الحقل الفريد داخل النموذج هذا كل شيء ... ---------------------------------------------------------------------------------------------------------------------------------------- نأتي للتفاصيل التي استبعدتها وهي محل النقاش لمن اراد المشاركة . وهي ان الوظيفة تخص تتبع الحقول النصية فقط ، واريد ضم مربع التحرير وكما هو ظاهر في المثال المرفق .. قيمة مربع التحرير "رقمية" والمطلوب اظهار القيمة "النصية" الأساسية ( التي تم تغييرها) ، اظهارها في جدول التتبع اما بالنسبة للقيمة الجديدة فلا اشكال فيها انا عالجت المسألة ووصلت الى حل ولكن بطريقة مطولة فنريد الاستفادة من الخبراء الأفاضل حول هذه النقطة و لأخي @Moosak خاصه تعقيبا على تعليقه هنا ------------------------------------------------------------------------------------ وقد اجاب الاستاذ موسى والاستاذ فادي وأجادا بمثالين احترافيين شاملين فجزاهما الله خيرا 1- المرفق Database2 وهو خاص بالحقول النصية 2- المرفق Track Changes - Moosak شامل الحقول النصية ومربعات التحرير 3- المرفق Database5 شامل الحقول النصية ومربعات التحرير بقي الاختيار لك فاختر ما يناسبك . Track Changes - Moosak.accdb Database2.rar Database5.accdb

السلام عليكم ورحمة الله وبركاته ، أخواني وأساتذتي ومعلمينا ( دون استثناء ) اليوم جئتكم ببرنامج المنبه الذكي هدية بسيطة لأعضاء منتدانا الغالي وصف البرنامج :- إمكانية تغيير الثيم من داخل الساعة . إمكانية تغيير نغمة رنين المنبه . نغمة تنبيه كل ساعة . دعم للغفوة كما في أجهزة الموبايل . إمكانية تعديل مدة العفوة حسب الحاجة . إمكانية عمل تنبيه متكرر حسب اليوم ، أو التنبيه لأيام محددة . صور من المنبه الذكي :- عند فتح المنبه لأول مرة لوحة التحكم بالإعدادات واجهة المنبه شاشة وقت التنبيه شاشة ضبط المنبه شاشة عرض المنبهات الفعالة والآن مع التحميل بدايةً النسخة 64 ، وقريباً النسخة الثانية بإصدار 32 إن شاء الله :- 64.zip ملاحظة:- تم حفظ البرنامج بصيغة Accde كونه قيد التطوير والتعديل حالياً وعدناكم بإضافة جديدة وهي إضافة حالة الطقس في شاشة المنبه الذكي ، والحمد لله الذي قدرني على توظيف هذه الميزة داخل التطبيق . وكما ذكرت سابقاً الخدمة تحتاج إتصال إنترنت . من الإعدادات > قم باختيار البلد > ثم تطبيق . وسيتم الإتصال بالسيرفر تلقائياً وإدراج درجة الحرارة في شاشة المنبه الرئيسية . ملاحظة :- درجة الحرارة التي يتم عرضها حالياً هي للعواصم العربية فقط ، وسيتم العمل على إدراج معظم المدن في الدول العربية في تحديثات لاحقة . الملف مفتوح المصدر ، وأطلب منكم فقط الدعاء لوالديّ Smart Alarm.zip وباب الحوار مفتوح للمناقشة

السلام عليكم ورحمة الله وبركاته مبارك عليك اخي الحبيب @محمد احمد لطفى الترقية الى قائمة الخبراء .. تستاهل اكثر زادك الله علما ونفع بك

بارك الله فيك وزادك من علمه ورزقه

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

شكرا استاذ Foksh تعبتك معي تحياتي لك

``` =UNIQUE(FILTER(A:A, (B:B>=تاريخ1)*(B:B<=تاريخ2)*(C:C="اسم المكتب"))) ``` 1. قم بتنسيق البيانات في ورقة العمل بحيث تكون الأرقام في العمود A، تواريخ التاريخ في العمود B، وأسماء المكاتب في العمود C. ``` حيث تحتاج إلى استبدال "تاريخ1" و "تاريخ2" بالتواريخ المرغوبة، و "اسم المكتب" بالاسم المناسب. 3. اضغط على Enter لتطبيق الصيغة. هذه الصيغة ستقوم بجلب الأرقام بدون تكرار حسب التاريخين المحددين واسم المكتب.

على كل حال تفضل الحل حسب طلبك Private Sub countAjza() Dim ctlC As Control Dim i As Integer Dim x As String For Each ctlC In Me.Controls If TypeOf ctlC Is CheckBox Then If ctlC.Value = True Then i = i + 1 x = x & "," & ctlC.Name End If End If Next ctlC c1 = i c2 = x End Sub أجزاء القرآن2.rar

تفضل استاذ @سامر محمود أخر ماتوصلت اليه راجع وقول ملاحظاتك وطلباتك . DDTest481-2.rar

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

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

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

جرب هذا . Private Sub مستندات_القضية_AfterUpdate() Me.AllowEdits = False Me.AllowDeletions = False Me.Requery End Sub Private Sub مستندات_القضية_DblClick(Cancel As Integer) Me.AllowEdits = True End Sub Private Sub مستندات_القضية_Exit(Cancel As Integer) Me.AllowEdits = False Me.AllowDeletions = False Me.Requery End Sub