أريد أن أخزن تعديل حقول سجلات في جدول مستقل .. بمعنى إذا تم التعديل على حقل في سجل ما
أريد أن يظهر في الجدول المستقل مايلي:
* إسم الجدول
* الحقل قبل التغيير ــ الحقل بعد التغيير حتى وإن كان في أكثر من حقل
* من الذي قام بالإضافة ــ من الذي قام بالتغيير (( مهمه جداً لنفرض أن الصلاحيات هي لإبن مسقط ))
* تاريخ الإضافة ـــ وتاريخ التعديل
* وقت الإضافة ــ وقت التعديل
وقد بحثت في المنتدى ولكني وجدته في الارشيف والمثال الذي فية مشفر وغير مفتوح المصدر اريد التعلم ارجو الرد
أخى الكريم فهد
المرفق يعتبر (فى رأيى أنا) من أفضل ما تم التوصل إليه فى هذا الموضوع ... طبعاً لا يقلل ذلك من إبداعات أساتذتنا الكرام فى هذا الاتجاه .. ولكنه كان أفضل وأدق واحد لتطبيقى أنا.
وهو من إبداعات منتادنا الغالى ... تحياتى لكل من شارك.
فهو يقوم بتتبع من قام بإنشاء السجل ومن قام بالتعديل وعدد مرات التعديل وتاريخ كل مرة تم فيها التعديل وماهى القيمة قبل التعديل وماهى القيمة بعد التعديل ... ومن قام حتى بحذف السجل فى حالة الحذف.
عليك قراءة التعليمات جيداً وتطبيقها .. وستجد ما تبغى إن شاء الله.
فى انتظار ردك.
تحياتى
محمد ندا
تم تعديل هذه المشاركة بواسطة Mohamed Nada في 18 أبريل 2009 في 18:16
... بقمة السعادة .. أعود بإذن الله لصحبتكم الرائعة قريباً ...
اخي العزيز انا قليل الخبرة في الانكليزي والاكسز وابغي التعلم لوانك تسهل لي في تعليمه ارجو متابعة الموظوع
حاضر يا أخى ...
أولاً: كل نموذج لديك مبنى إما على جدول أو على استعلام (وإذا كان استعلام فهو مبنى على جدول).
ثانياً: أى بيانات ترغب فى تعقبها يجب أن يتم إدخالها فى النموذج.
ولذا يجب عليك أولاً أن تضيف لجدول البيانات المصدر لنموذجك الحقول التالية:
PrimaryKey ويجب أن يكون رقم أتوماتيكى Auto Number
DLU ويكون من نوع Date\Time
TLU ويكون من نوع Date\Time
ChngCount ويكون رقم
ويمكنك أخذهم من الجدول المرفق والمسمى tblTEST
ثم يجب عليك أن تقوم بنسخ الجدول الآخر لقاعدة بياناتك كما هو واسمه tblHistory وحذف البيانات الحالية منه.
ثم نسخ النموذج المسمى frmHistory_Updater كما هو
ثم نسخ الموديول (الوحدة النمطية) المسماة mdlHistory كما هى.
الآن كل شئ جاهز للعمل.
إذهب الآن إلى النموذج الذى ترغب تتبع التغييرات فيه.
إختار وضع التصميم وتأكد من أنك أظهرت به الحقول التى تم إضافتها لجدولك المصدر (تتذكر طبعاً).
إذهب إلى خصائص كل حقل تريد تتبعه فى خاصية بعد التحديث أو After Update وضع الكود التالى:
If Me.CurrentRecord <= Me.RecordsetClone.RecordCount And Me.CurrentRecord >= 1 Then Call ChangeHistory Exit Sub End If If Me.CurrentRecord = Me.RecordsetClone.RecordCount + 1 Then Call NewRecordHistory Exit Sub End If
وفى خصائص النموذج فى حدث عند الحذف أو On Delete ضع الكود التالى:
Call DeleteRecordHistory
الآن يجب أن تكون الأمور على مل يرام وأن كل تعديل أو إضافة جديدة على أى من الحقول التى تم وضع الكود لها يتم تسجيله فى جدول tblHistory
وعليك الآن التجربة .. والرد
فى انتظار ردك
تحياتى
محمد ندا
تم تعديل هذه المشاركة بواسطة Mohamed Nada في 19 أبريل 2009 في 00:08
... بقمة السعادة .. أعود بإذن الله لصحبتكم الرائعة قريباً ...
إذا كان كله تمام ...
يمكنك الآن بناء نموذج من جدول التتبع tblHistory ومتابعة مستخدميك من خلاله.
تحياتى
محمد ندا
... بقمة السعادة .. أعود بإذن الله لصحبتكم الرائعة قريباً ...
اخي اني جديد على برمجة الاكسس واريد اتعبك شوية لو تبسطهالي بمثال لو تعليم شوي ابسط
أخينا الغالي وأستاذنا الكبير محمد
لكن في الرابط الذي وظعته الصور غير موجود
وكذلك اني اشتغل على قواعد بيانات موظفيين واسماء اشخاص بموختلف انواع التعامل مع البيانات النصية ارجو تعليمي في ذلك
ليسمح لى أخونا وأستاذنا محمد فؤاد تركى.
أخى فهد ...
الرد السابق لى فى المشاركة رقم 4 لا يحتاج خبرة بالبرمجة ... وإنما يحتاج أن إلى من يقوم بمتابعة الشرح خطوة .... خطوة ... بمنتهى الهدوء وتنفيذ ما جاء به بالحرف دون أى إضافة أو نقص.
وكما تعلم ليس من المستحب أن أقوم بعمل مثال لك لأن هذا لن يضيف إليك شيئاً .. ولكن إما أن تأخذ ما جاء بالمشاركة وتطبقه على مثالك وإما أن ترفق أنت مثالك للتعديل عليه.
أضف إلى ذلك أن ما أرفقته لك فى المشاركة رقم 2 هو مثال عملى وبه كل ما تحدثنا عنه فى المشاركات التالية.
إذا كنت تحتاج أن أقوم بتعريب المثال لك فأنا حاضر لدى الطلب.
فى انتظار ردك
تحياتى
محمد ندا
تم تعديل هذه المشاركة بواسطة Mohamed Nada في 19 أبريل 2009 في 20:51
... بقمة السعادة .. أعود بإذن الله لصحبتكم الرائعة قريباً ...
الاخ الفاضل / محمد ندا
جزاك الله كل خير
مجهود في الشرح يستدعي ان ادعي لك
كما نشكر استاذنا / محمد فؤاد لمساعدته للجميع جزاه الله خير
أخى الكريم أبو شادى ..
وجزاك إن شاء الله .. نحاول أن نساعد كما تعلمنا.
تحياتى
محمد ندا
... بقمة السعادة .. أعود بإذن الله لصحبتكم الرائعة قريباً ...
اخ محمد ندا
وجزاك الله خيرا
اخي ارجو الملاحظة على الطلب الذي فوق
