ابوخليل

الموضوع هنا بارك الله فيك

الحقيقة انها صعبة وغير ممكن الحصول عليها بكود مباشر لأن القيمة الأساسية التي تم عليها التغيير هي فعلا رقم وأكسس يأخذ هذا الرقم في الذاكرة OldValue ونحن سنتعامل مع هذا الرقم فقط بينما القيمة الجديدة الحالية (بعد التغيير ) سنتعامل مع Object له خصائصه فنجلب منه ما نريد . لذا انا ريحت راسي وتعاملت مع الرقم الناتج لاستخراج الاسم بناء على جدوله الذي يتم جلبه ايضا في الحدث الآن لمعرفة النص الذي تم تغييره انقر نقرا مزدوجا على الرقم ملحوظة : اخذت بالاحتياط فيما لو كان مربع التحرير يحتوي على عمود واحد فقط هذا المرفق ادناه ولاحقا بعد الاطلاع والتقييم سوف اضمه الى اول مشاركة في الموضوع Database4.rar

لإغلاق جميع النماذج المفتوحة : Do While Forms.Count > 0 DoCmd.Close acForm, Forms(0).Name Loop لإغلاق قاعدة البيانات : docmd.Quit

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

المرفق الأخير فيه الحل سبحان الله .. قلت ربما اني رفعت المرفق الخطأ نزلته وجربته كل شيء تمام الازرار تعمل سواء كان المؤشر خارجل التفصيل او كان داخل الأعمدة اليس هذا طلبك ؟

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

هذا النموذج خارج الاهتمام .. المسألة تدور حول البيانات التي ترصد في الجداول .. سواء كانت من نموذج مفرد منفصل او نموذج فرعي ، وهذه البيانات قابلة للتعديل من خلال هذه النماذج

انا اعتبر ردودك هذه فيها نوع من البخل بالأفكار .. وليس عجز وقصور في التعبير اعتذر عن المواصلة ...

اخي وحبيبي الله يحفظك فكرتي اختصرتها في هذا السطر (( انا عالجت المسألة ووصلت الى حل ولكن بطريقة مطولة )) انا اذا لم احصل على حل احترافي مختصر فسوف اضطر الى رفع مثالي الآخر والذي يحتوي على معالجة مربع التحرير بطريقتي

سرعة القراءة عندك عالية جدا هذا ما كتبته انا في ذيل موضوعي :

تفضل Dim vSearch As String vSearch = Me.Search.Text Me.Search1.Value = vSearch Me.Requery New.rar

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

على كل حال تفضل الحل حسب طلبك 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

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

السلام عليكم هذا الجزء في التصميم تم التطرق اليه في هذا المنتدى ومن يبحث يجد الكثير .. علما اني قد استفدت واخذت من تلك المواضيع فما انا الا ناقل .. والعلم تراكمي ينتقل ويتزايد . وحتى يكون هذا الموضوع مرجع مختصر يتم نقله فقط الى برنامجك .. لذا عملت على اعداد مثال صغير وهو عبارة عن جدول ونموذج ووحدة نمطية ويتم من خلاله رصد التالي : - معرف السجل - اسم الحقل - اسم النموذج - القيمة الأساسية ( قبل التعديل ) - القيمة الجديدة (بعد التعديل ) - اسم المستخدم - تاريخ ووقت التعديل مع امكانية التصفية والبحث بين تاريخين -------------------------------------------------------------- كل ما عليك عمله هو : اولا : نقل الكائنات التالية (جدول/نموذج/وحدة نمطية) الى برنامجك : 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

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

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

عليكم السلام نعم بعد التقسيم

ايضا تم التعديل حسب الطلب color5.rar

حسب الطلب color4.rar

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

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

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