كيف أحفظ سجلا معينا بعد حذفه

[Radwan0]

سلام اخواني

 

كيف ممكن احفظ سجل معين بعد الحذف ؟ 

 

على سبيل المثال انا ادخلت بيانات واريد عندما يقوم موظف معين بحذفها ان تذهب الى نموذج اخر لا يستطيع احد غيري رايته 

[sandanet]

اخي الكريم اولاً عنوان موضوعك مخالف وهذا سوف يهدد بغلق موضوعك ولن تستفيد شياً 

ثانياً الامر بسيط فقط قم بوضع كود sql قبل تنفيذ امر الحذف كالتالي

Dim strSQL As String
strSQL = ("INSERT INTO yourtblname ([field1] , [field2]) VALUES('" & Me!txtbox1 & "', '" & Me!txtbox2 & "')")
CurrentDb.Execute strSQL, dbFailOnError
Me.Requery

 

[Radwan0]

اخي ممكن مثال توضيحي 

 

اين يجب ان اضع الكود.. في النموذج ام ماذا 

[حسين العربى]

يعطيك العافية اخي sandanet

بعد اذنك ارفقت مثال لما تفضلت 

تسهيلا علي اخي radwan1991

 

 

test102.rar

تم تعديل أكتوبر 21, 2017 بواسطه حسين العربى

[Radwan0]

اخي ممكن تكون الصيغه accdb لان الملف لم يفتح معي

[حسين العربى]

اخي الفاضل صيغة الملف Mdb 

وللتاكيد حملته من الموقع اشتغل عندي ما في مشكله

[Radwan0]

مشكور اخي الكريم

 

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

 

 

[حسين العربى]

اليك المثال بعد التعديل 

ولتعديل اسم الجدول من الكود اسم الجدول tabol_2 u  عدله الي ما تريد

DoCmd.RunSQL "INSERT INTO tabol_2 (id_no,item_nem,item_cood)values(id_no,item_nem,item_cood)"

[Radwan0]

مشكور لكن للاسف مو هذا طلبي 

 

يمكن ما شرحت كيف لازم

 

انا عامل audit trial وعند التعديل او اضافه سجل جديد يتم عمل تقرير لكل شيء يحصل في النموذج

 

فاردت ان ادخل ايضا خاصيه الحذف اي عند حذف السجل يذهب لجدول ومن هناك يتم حذفه نهائيا 

 

طلبي هو كيف استطيع ان انفذ هكذا امر 

[sandanet]

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

تحياتي

[Radwan0]

تفضل اخي

 

مرفق قاعدة البيانات

ياريت لو امكن اضافه الكود والمساعدة

 

والف شكر لكم وجزاكم الله كل خير 

AccessAuditTrail_Detailed.zip

[Radwan0]

بانتظارك ياغالي 

[sandanet]

تفضل 

AuditTrail_Detailed.zip

[Radwan0]

اخي الكريم الف شكر لك

 

لكن للاسف لم يعمل لدي .. الاكسس عندي باللغه الانكليزية هل هنالك اي خطا في كتابة الكود ؟؟ 

 

عندما اضغط على حذف سجل يعطيني رسالة ان هنالك خطا

[sandanet]

اي اصدار تعمل عليه؟ انا اشتغلت عليه باصدار 2007 واللغة ليست المشكلة وانما غالبا الاصدارات الحديثة من الاكسس يكون فيها عدم توافق

واذا امكن وضع صورة من رسالة الخطأ التي تظهر لديك

تم تعديل أكتوبر 21, 2017 بواسطه sandanet

[Radwan0]

اعمل على 2016

[sandanet]

اخي الكريم اغلب الاخوة والاساتذة هنا يعملون على اصدارات 2007 او 2010 وقليلا على 2003 وهذه الاصدارات هي الاكثر شيوعاً فانصحك بالتعامل مع اكسس 2007 او 2010 لان الاصدارات الاحدث فيها عدم توافق بعض الدوال البرمجية مع الاصدارات القديمة

 

تحياتي

[Shivan Rekany]

استأذن من استاذنا @sandanet

اتفضل استاذ @radwan1991 

الیك تعديل بسيط على المثال الاعلاه للسيد ساندانيت

AuditTrail_Detailed (1).zip

[sandanet]

استاذي الكبير @Shivan Rekany اشكرك على مساهمتك في هذا الموضوع فهو موضوع شيق ويحتاج الى خبراء امثالكم لتطويره بالشكل الذي يناسب عمل الجميع

استاذي الكريم بعد الاطلاع على الملف المعدل من قبلك اعتقد ان هنالك مشكلة بسيطة ربما لم تتنبه لها وهي كما في الصورة المرفقة

اعتقد انه يجب تنفيذ امر استدعاء الدالة قبل تنفيذ امر sql والا فلن يتم تخزين اسم المستخدم الذي قام بعملية الحذف في جدول البيانات المحذوفة

 

تحياتي

[Shivan Rekany]

شكرا لك انا ما انتبهت على ذلك استاذ @sandanet

[sandanet]

عفواً استاذي الكبير فأنا تلميذك .. تحياتي لك

[Shivan Rekany]

17 دقائق مضت, sandanet said:

عفواً استاذي الكبير فأنا تلميذك .. تحياتي لك

نحن ھناک لکی نستفید من البعض
تحیاتی لک
اخوک شفان ریکانی 

[Radwan0]

اخي الكريم Shivan Rekany

الف شكر لك المرفق اشتغل جيدا لكن بقيت مشكلة

الا وهي عند حذف السجل فهو لا يحذف السجل المحدد انما يحذف المعرف رقم 1 .. وعند تحديد سجل اخر وحذفه فهو يقوم بحذف معرف رقم 2

 

ما الحل اخي 

[Shivan Rekany]

27 دقائق مضت, radwan1991 said:

الا وهي عند حذف السجل فهو لا يحذف السجل المحدد انما يحذف المعرف رقم 1 .. وعند تحديد سجل اخر وحذفه فهو يقوم بحذف معرف رقم 2

 

ما الحل اخي 

انت على الحق
فقط عليك ان تغير موقع هذا السطر
 

Me.Requery

من قبل حذف السجل الى اخر الكود
اي انقل الى اخر سطر من الكود

تحياتي

[Radwan0]

اقسم بالله لا اعرف كيف اشكرك اخي الكريم

 

بقيت لدي مشكلة واحدة واخيرة في الجدول tblAuditTrail وهي عندما اقوم بحذف السجل المفروض في الحقل RecordID يظهر لي رقم المعرف المحذوف .. هو فعلا يظهر لي ذلك لكن ايضا يظهر لي رقم معرف اخر 

 

ومرة اخرى الف الف شكر لك وجزاك الله كل الخير ياغالي