ابوخليل

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

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

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

تفضل 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

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

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

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

تم عمل اللازم حفظ البيانات في الجدول والتطبيق على الحقل في النموذج الآن يمكنك التطوير كما تحب color3.accdb

للفائدة : Long Text = Memo وبالعربي : مذكرة أو مفكرة

في الصورة نموذج مستمر يحتوي على حقول عدة .. وفي المثال نموذج مفرد يحتوي على حقل واحد وترغبين بنقل النص مع مواصفاته الى الجدول ثم ماذا بعد ذلك ؟ حتة حتة لا يصلح .. لان الحلول تختلف حسب الرؤية والتصور لا بد ان افهم جيدا يجب شرح الفكرة كاملة .. وما هي النتيجة النهائية لهذه الفكرة ساساعدك في الابتداء من الفورم المنفصل .. color2.accdb

عملت لك السطر الأعلى من حقول الألوان من اجل تكملي الباقي اذا العمل الحالي موافق لطلبك .. يمكننا نقل النتيجة الى الجدول اكملي كتابة احداث بقية الألوان اذا يمكنك الانتظار يمكن ان نجد حدثا واحدا لكافة حقول الألوان color.accdb

في مثالك الموظف له اكثر من كتاب ثلاثة او اكثر ترقيمك للكتب لا يصلح .. لا بد ان يكون رقم الكتاب فريدا يجب ان يكون رقم الكتاب = ( رقم الموظف + رقم خاص بالكتاب ) من اجل تمكن اكسس من البحث عنه

نيابة عن اخي موسى استبدل السطر الاخير من الكود بهذا لإدراج السنة ضمن الشرط : DoCmd.OpenForm "Frm_VermLoans", , , "month([Auto_Date]) & year([Auto_Date])=" & Month([TxtMonth]) & Year([TxtMonth])

ايضا للعلم : يمكنك جعل جميع المرفقات والمجلدات ( ايقونات ، شعارات ، صور ، مستندات ) في مكان واحد بجانب قاعدة الجداول مشترك للجميع

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