الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

كيف يتم إظهار اسم اي مستخدم حذف سجل

مغلق
بدأه مصلح الحريصي في 26 ديسمبر 2001 · 3 رد · 699 مشاهدة · في مراجعة المواضيع
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

ياشباب هذا الموضوع مهم جداً

لدي جدول خاص بالموظفين ويحتوى على ما لا يقل عن 11 حقل من ضمنها اسم الموظف ورقمه وقد قمت بإنشاء جدول اسمه جدول السجلات المحذوفة وحقوله هي :

اسم الموظف0

رقم الموظف0

اسم القائم بحذف معلومات هذا الموظف 0

المطلوب:

كود بواسطته يتم نقل اسم الموظف ورقمه وتسجيل اسم الشخص الذي قام بحذف سجل هذا الموظف ثم حذف سجل الموظف بالكامل من جدول الموظفين وبدون إستخدام ما يخص إذونات المستخدمين0

أرجوا أن أكون قد استطعت أن أوصل لكم ما أريد 0

هذا الموضوع أنا في أمس الحاجة إليه بارك الله فيكم0

[gl]الرجاء الشرح بالتفصيل [/gl]

#2

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

اي ثلاثة حقول

والاضافة علية في حالة القيام بأي عمل الغاء او غيره

يمكن ان تضع كود يمكن استدعاؤه قبل الحذف

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

تحياتي

من سار على الدرب وصل

#3

الأخ 5060

إذا كان يحذف السجل من شريط الأدوات أو من القائمة فاستخدم الكود التالي :

Dim اسم_من_قام_بالحذف
DoCmd.Beep
اسم_من_قام_بالحذف = InputBox("أدخل اسمك لإتمام عملية الحذف :", "حذف سجل")
If اسم_من_قام_بالحذف <> "" Then
Response = acDataErrContinue
' استخدام استعلام إلحاق لإلحاق السجل المحذوف بجدول السجلات المحذوفة
DoCmd.RunSQL ("INSERT INTO [جدول السجلات المحذوفة] ( [رقم الموظف], [اسم الموظف], [اسم من قام بالحذف] ) " _
& " SELECT [جدول الموظفين].[رقم الموظف], [جدول الموظفين].اسمه, '" & اسم_من_قام_بالحذف & "' AS الحاذف" _
& " FROM [جدول الموظفين] WHERE ((([جدول الموظفين].[رقم الموظف])=[forms]![نموذج الموظفين]![رقم الموظف]));")
Me.Recalc
Else
Cancel = -1
End If

وإن كان يحذف عن طريق نقر زر أمر مثلا فالكود :

Dim اسم_من_قام_بالحذف
DoCmd.Beep
اسم_من_قام_بالحذف = InputBox("أدخل اسمك لإتمام عملية الحذف :", "حذف سجل")
If اسم_من_قام_بالحذف <> "" Then
' استخدام استعلام إلحاق لإلحاق السجل المحذوف بجدول السجلات المحذوفة
DoCmd.RunSQL ("INSERT INTO [جدول السجلات المحذوفة] ( [رقم الموظف], [اسم الموظف], [اسم من قام بالحذف] ) " _
& " SELECT [جدول الموظفين].[رقم الموظف], [جدول الموظفين].اسمه, '" & اسم_من_قام_بالحذف & "' AS الحاذف" _
& " FROM [جدول الموظفين] WHERE ((([جدول الموظفين].[رقم الموظف])=[forms]![نموذج الموظفين]![رقم الموظف]));")
' حذف السجل من جدول الموظفين
DoCmd.RunSQL ("DELETE [جدول الموظفين].[رقم الموظف], [جدول الموظفين].اسمه " _
& " FROM [جدول الموظفين] WHERE ((([جدول الموظفين].[رقم الموظف])=[forms]![نموذج الموظفين]![رقم الموظف]));")
Me.Requery
End If

الأسماء التي قد تحتاج إلى تغييرها في الكود :

اسم جدول الموظفين لديك

اسم حقل اسم الموظف

اسم حقل رقم الموظف

اسم جدول السجلات المحذوفة

اسم حقل رقم الموظف في جدول السجلات المحذوفة

اسم حقل اسم الموظف في جدول السجلات المحذوفة

اسم حقل الموظف الذي قام بالحذف في جدول السجلات المحذوفة

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

ولك تحياتي

#4

الأخ ابو/ حمود

الأخ / مفرح

بارك الله فيكم وأنا واثق بأنني سأجدكم وقت ما إحتاج لفزعتكم الله لا يحرمنا منكم0

هذا الموضوع مغلق.

مواضيع مشابهة