كيف اجعل اسم المستخدم يضاف الى السجل تلقائي

[hassan222]

السلام عليكم ورحمة الله وبركاته

احبائي الكرام

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

اقرب مثال لذلك البرنامج الذي عمله الأخ ابن مسقط صلاحيات المستخدم

ولكم جزيل الشكر

[السيد عبد العال]

اذا كان أدخال البيانات يتم عن طريق نموذج:

يتم إضافة اربعة حقول فى الجدول المنضم للنموذج كالتالى

Field name Type Size

FirstCreator Text 20

CreationDate Date/time

LastModifier Text 20

LastModifyDate Date/time

نستغل حدث BeforeInsert للنموذج لتخزين اسم المستخدم الذى قام بالإدراج والتاريخ

Private Sub Form_BeforeInsert(Cancel As Integer)
[FirstCreator] = CurrentUser()
[CreationDate] = Now()
End Sub

نستغل حدث BeforeUpdate للنموذج لتخزين اسم المستخدم الذى قام بالتعديل والتاريخ

Private Sub Form_BeforeUpdate(Cancel As Integer)
[LastModifier] = CurrentUser()
[LastModifyDate] = Now()
End Sub

تم تعديل أغسطس 4, 2004 بواسطه السيد عبد العال

[hassan222]

الله يفتح عليك اخوي عبد العال

راح اجرب الكود وربنا يوفق الجميع

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

مشكور حبيبي

[atikallah]

اخو الكريم حفظك الله ياريت تحط قاعدة بيانات كمثال

بارك الله فيك

تم تعديل أغسطس 6, 2004 بواسطه atikallah

[hassan222]

المشكلة اني ماعندي خاصية رفع الملفات والا كان رفعت لكم مثال

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

تحياتي لكم جميع