Bluemind قام بنشر ديسمبر 22, 2011 مشاركة قام بنشر ديسمبر 22, 2011 اخواني الكرام كنت قد اجبت على موضوع لاحد الاعضاء في منتدى اخر بالامس وهو كيف نقوم بتعقب التعديلات على السجلات من حيث القيمه الاساسية و الجديده و تاريخ و وقت التعديل على السجل و اسم الحقل و رقم السجل و اسم المستخدم الذي قام بالتعديل.ونظرا لوجود كثير من الاستفسارات عن عمل جدول لتعقب التعديلات، اضع لكم هذا المثال لاثراء هذا الصرح العظيم ، منتدنا ، منتدى اوفيسنا بالتوفيق Log File.zip رابط هذا التعليق شارك More sharing options...
lordring قام بنشر ديسمبر 22, 2011 مشاركة قام بنشر ديسمبر 22, 2011 شكرا اخي لكن ممكن توضح اكثر اي اجد هذه التعقبات في التغييرات داخل البرنامج وشكرا رابط هذا التعليق شارك More sharing options...
أبو آدم قام بنشر ديسمبر 22, 2011 مشاركة قام بنشر ديسمبر 22, 2011 شكرا لك أخي Bluemind : مثال جميل وجهد طيب أخي Lordring : قم باظهار الجدوال المخفية ليظهر لك الجدول tblAudit الذي يحمل معلومات التعقب رابط هذا التعليق شارك More sharing options...
Bluemind قام بنشر ديسمبر 22, 2011 الكاتب مشاركة قام بنشر ديسمبر 22, 2011 توجد في جدول اسمه tblAudit ويتم تسجيل هذه التعديلات عن الضغط على زر الخروج الموجود في النموذج رابط هذا التعليق شارك More sharing options...
أبو آدم قام بنشر ديسمبر 23, 2011 مشاركة قام بنشر ديسمبر 23, 2011 لعموم الفائدة ... وكون الموضوع ذو أهمية يثبت لفترة ................ رابط هذا التعليق شارك More sharing options...
lordring قام بنشر ديسمبر 23, 2011 مشاركة قام بنشر ديسمبر 23, 2011 شكرا اخي على الاجابة طيب الان فقط اقوم بنقل الوحدات النمطية الى برنامجي لكي افعل هذه العملية ام احتاج الى خطوات اخرى ؟؟ تحياتي رابط هذا التعليق شارك More sharing options...
Bluemind قام بنشر ديسمبر 24, 2011 الكاتب مشاركة قام بنشر ديسمبر 24, 2011 شكرا اخي على الاجابة طيب الان فقط اقوم بنقل الوحدات النمطية الى برنامجي لكي افعل هذه العملية ام احتاج الى خطوات اخرى ؟؟ تحياتي عليك استيراد الوحدات النمطية وكذلك يوجد جدول مخفي اسمه tblAudit ثمة بعد ذلك قم بانشاء زر على النموذج وسمه اغلاق cmdClose وضع الكود التالي مع تغير اسم الحقل حسب الموجود لديك في النموذج Dim x As Integer If Not IsNull(Me!ID) Then x = WriteAudit(Me, Me!ID) End If DoCmd.close اسم الحقل هو ID قم بتغييره في الكود اعلاه الى اسم الحقل الموجودلديك مع مراعاه اخفاء زر الاغلاق من خصائص شاشه النموذج(زر X) رابط هذا التعليق شارك More sharing options...
lordring قام بنشر ديسمبر 24, 2011 مشاركة قام بنشر ديسمبر 24, 2011 اخي انا الحقل لدي اسمه التسلسل قمت باستيراد الوحدات النمطية ووضعت الكود بالشكل التالي على زر الاغلاق Dim x As Integer If Not IsNull(Me!التسلسل) Then x = WriteAudit(Me, Me!التسلسل) End If DoCmd.Close ولكن عند الضغط على زر الاغلاق تظهر الرسالة التالية وشكرا رابط هذا التعليق شارك More sharing options...
lordring قام بنشر ديسمبر 24, 2011 مشاركة قام بنشر ديسمبر 24, 2011 هل ممكن تطبيقه على الملف المرفق لكي اجد اين الخلل لدي في التطبيق مع التقدير Database1.rar رابط هذا التعليق شارك More sharing options...
Bluemind قام بنشر ديسمبر 25, 2011 الكاتب مشاركة قام بنشر ديسمبر 25, 2011 اخوي لم تقم باضافه مربع النص التسلسل الى النموذج لذلك تظهر رساله الخطاء تفضل المرفق Database1.rar رابط هذا التعليق شارك More sharing options...
lordring قام بنشر ديسمبر 25, 2011 مشاركة قام بنشر ديسمبر 25, 2011 والله يا اخي الموضوع جدا مهم التعديل الذي ارفقته حضرتك تمام اشتغل معي 100% في المثال المرفق لكن عند نقله لبرنامجي لاتزال نفس المشكلة كما في الصورة رابط هذا التعليق شارك More sharing options...
Bluemind قام بنشر ديسمبر 26, 2011 الكاتب مشاركة قام بنشر ديسمبر 26, 2011 والله يا اخي الموضوع جدا مهم التعديل الذي ارفقته حضرتك تمام اشتغل معي 100% في المثال المرفق لكن عند نقله لبرنامجي لاتزال نفس المشكلة كما في الصورة اخوي اذا نفس رساله الخطاء ، يعني ان اسم الحقل الموجود في الكود لا يوجد في النموذج تاكد من وجود الحقل تسلسل او اسم الحقل الموجود لديك في الكود في النموذج اي قم باضافته في النموذج اوارفق برنامجك لتعديل علية رابط هذا التعليق شارك More sharing options...
khaled-acc قام بنشر ديسمبر 26, 2011 مشاركة قام بنشر ديسمبر 26, 2011 شكرا لكم على هذا العمل الجميل المريح جداً , لكن هل بالإمكان إضافة اسم النموذج إلى جدول تعقب التعديلات رابط هذا التعليق شارك More sharing options...
lordring قام بنشر ديسمبر 26, 2011 مشاركة قام بنشر ديسمبر 26, 2011 والله يا اخي الموضوع جدا مهم التعديل الذي ارفقته حضرتك تمام اشتغل معي 100% في المثال المرفق لكن عند نقله لبرنامجي لاتزال نفس المشكلة كما في الصورة اخوي اذا نفس رساله الخطاء ، يعني ان اسم الحقل الموجود في الكود لا يوجد في النموذج تاكد من وجود الحقل تسلسل او اسم الحقل الموجود لديك في الكود في النموذج اي قم باضافته في النموذج اوارفق برنامجك لتعديل علية اخي قمت باضافة الحقل التسلسل وكما تلاحظ في الصورة هو موجود ومؤشر بالسهم تحياتي لك رابط هذا التعليق شارك More sharing options...
الصمت المتحدث قام بنشر ديسمبر 26, 2011 مشاركة قام بنشر ديسمبر 26, 2011 مثال رائع مشكور يا غالي هذا ما كنت أبحث عنه لإحداث جدول للهيستوري إلا أن النتائج التي توصلت لها في تلك التجربة لم تكن بتلك المثالية التي كنت أتوخاها رغم التوصل الى المطلوب إلا أنه كان لها تأثير جانبي على استقرار النماذج عموما جاري تجربة ما تفضلت به أخي وقبل ذلك أود القول هل يكفي وضع جدول واحد لمجموعة نماذج مرتبطة بجداول مختلفة أم من المفترض وضع جدول تخزن فيه التعديلات لكل نموذج على حدة أي لكل جدول جدول خاص بتخزين التعديلات ؟ إن كان وضع جدول واحد يكفي يجب مراعاة تحديد الجدول الذي وقع فيه التعديل ومن تم الحقل اضافة الى تاريخ انشاء القيمة الأصلية وتاريخ التعديل عليها وشكرا رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر يناير 3, 2012 مشاركة قام بنشر يناير 3, 2012 شكرا لك أخي Bluemind : مثال جميل وجهد طيب رابط هذا التعليق شارك More sharing options...
magid_o قام بنشر يناير 5, 2012 مشاركة قام بنشر يناير 5, 2012 يظهر لي خطأ type mismatch رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر مارس 10, 2013 مشاركة قام بنشر مارس 10, 2013 هل يكفي وضع جدول واحد لمجموعة نماذج مرتبطة بجداول مختلفة أم من المفترض وضع جدول تخزن فيه التعديلات لكل نموذج على حدة أي لكل جدول جدول خاص بتخزين التعديلات ؟ إن كان وضع جدول واحد يكفي يجب مراعاة تحديد الجدول الذي وقع فيه التعديل ومن تم الحقل اضافة الى تاريخ انشاء القيمة الأصلية وتاريخ التعديل عليها وشكرا هنا تكملة للموضوع http://www.officena.net/ib/index.php?showtopic=45823#entry271553 رابط هذا التعليق شارك More sharing options...
basher.m قام بنشر أغسطس 12, 2017 مشاركة قام بنشر أغسطس 12, 2017 هل يمكن ان اجعل حفظ التعديلات في جدول اخر ويكون الجور خارجي وليس محلي بحيث استطيع ان اتعقب التعديلات التي يقوم بها كافة المسنخدمين المتصلين قاعدة البيانات (D.B) رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.