مشكلة في معرفة اسم مستخدم الذي قام باءضافة تسجيل جديد في الجدول

[sofiane05552]

السلام عليكم 

طلب مساعدة في  قاعدة بيانات فيه اعضاء كثيرة  اريد وضع طريقة لكي اعرف من قام باءدخال بيانات في الجدول  قصدي هو من اضافة تسجيل  جديد اعرف  اسم المستخدم الدي قام باادخال البيانات في الجدول  

[Shivan Rekany]

2 ساعات مضت, sofiane05552 said:

السلام عليكم 

طلب مساعدة في  قاعدة بيانات فيه اعضاء كثيرة  اريد وضع طريقة لكي اعرف من قام باءدخال بيانات في الجدول  قصدي هو من اضافة تسجيل  جديد اعرف  اسم المستخدم الدي قام باادخال البيانات في الجدول  

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

[sofiane05552]

49 دقائق مضت, Shivan Rekany said:

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

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

my projet 2018..rar

تم تعديل نوفمبر 28, 2017 بواسطه sofiane05552

[Shivan Rekany]

2 ساعات مضت, sofiane05552 said:

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

my projet 2018..rar

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

Private Sub sOK_Click()
    Dim MyPassword As String
    Dim MyUName As String
        MyPassword = Nz(DLookup("password", "Users", "[username]='" & Me.UName & "'"), "")
        MyUName = Nz(DLookup("username", "users", "[username]='" & Me.UName & "'"), "")
    If Me.UPassword = MyPassword Then
            GetUserName.UserName = Nz(DLookup("username", "users", "username = Forms!frmlogin!UName"))
            DoCmd.Close acForm, Me.Name
            DoCmd.OpenForm "com", acNormal
    End If
End Sub

في هذا ... الجزء المهم لمامنا هو هذا السطر من الكود
 

            GetUserName.UserName = Nz(DLookup("username", "users", "username = Forms!frmlogin!UName"))

وايضا تم اضافة هذا فانكشن 
 

    Public UserName As String
Public Sub GetUserName(FrmName As String)
    Forms(FrmName).Caption = UserName
End Sub

وفي النموذج التسجيل البيانات تم كتابة هذا الكود عند اضافة السجل
 

Private Sub Form_AfterInsert()
    Me.UserNameIns = UserName
End Sub

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

Database1.rar

[sofiane05552]

20 ساعات مضت, Shivan Rekany said:

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

Private Sub sOK_Click()
    Dim MyPassword As String
    Dim MyUName As String
        MyPassword = Nz(DLookup("password", "Users", "[username]='" & Me.UName & "'"), "")
        MyUName = Nz(DLookup("username", "users", "[username]='" & Me.UName & "'"), "")
    If Me.UPassword = MyPassword Then
            GetUserName.UserName = Nz(DLookup("username", "users", "username = Forms!frmlogin!UName"))
            DoCmd.Close acForm, Me.Name
            DoCmd.OpenForm "com", acNormal
    End If
End Sub

في هذا ... الجزء المهم لمامنا هو هذا السطر من الكود
 

            GetUserName.UserName = Nz(DLookup("username", "users", "username = Forms!frmlogin!UName"))

وايضا تم اضافة هذا فانكشن 
 

    Public UserName As String
Public Sub GetUserName(FrmName As String)
    Forms(FrmName).Caption = UserName
End Sub

وفي النموذج التسجيل البيانات تم كتابة هذا الكود عند اضافة السجل
 

Private Sub Form_AfterInsert()
    Me.UserNameIns = UserName
End Sub

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

Database1.rar

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

[sofiane05552]

Database1.zip

[sofiane05552]

2.zip معرفة اسم مستخدم الذي قام باءضافة تسجيل جديد في الجدول لدي مشكلة  اريد اضافة الخاصية ذي لكن لم تنجح معي في مشروع ذا  ارجو مساعدة لدي login اسم دخول 0 رقم السري 0 وبعدها تضهر فورم فيها زرين  زر اول  مخصص للفورم  1 و زر ثاني مخصص للفورم 2 اريد اضافة خاصية معرفة مستخدم  من قام بتعبئة بيانات في فورم الي اسمها  D'elimination و 

De versement

تم تعديل ديسمبر 20, 2017 بواسطه jjafferr
تم دمج الموضوعين

[Shivan Rekany]

13 ساعات مضت, sofiane05552 said:

2.zip معرفة اسم مستخدم الذي قام باءضافة تسجيل جديد في الجدول لدي مشكلة  اريد اضافة الخاصية ذي لكن لم تنجح معي في مشروع ذا  ارجو مساعدة لدي login اسم دخول 0 رقم السري 0 وبعدها تضهر فورم فيها زرين  زر اول  مخصص للفورم  1 و زر ثاني مخصص للفورم 2 اريد اضافة خاصية معرفة مستخدم  من قام بتعبئة بيانات في فورم الي اسمها  D'elimination و 

De versement

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

    Public UserName As String
Public Sub GetUserName(FrmName As String)
    Forms(FrmName).Caption = UserName
End Sub

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

            GetUserName.UserName = Nz(DLookup("username", "users", "username = Forms!frmlogin!UName"))

غير اسم الجدول و اسم الحقل اذا كان اسم الجدولك و اسم الحقل مختلف 
وبعدين

في بعد اضافة اي سجل اي بعد انسيرت اي سجل اكتب هذا
 

Private Sub Form_AfterInsert()
    Me.UserNameIns = UserName
End Sub

UserNameIns غير باسم الحقل للجدول المصدر النموذج
 

[sofiane05552]

38 دقائق مضت, Shivan Rekany said:

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

    Public UserName As String
Public Sub GetUserName(FrmName As String)
    Forms(FrmName).Caption = UserName
End Sub

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

            GetUserName.UserName = Nz(DLookup("username", "users", "username = Forms!frmlogin!UName"))

غير اسم الجدول و اسم الحقل اذا كان اسم الجدولك و اسم الحقل مختلف 
وبعدين

في بعد اضافة اي سجل اي بعد انسيرت اي سجل اكتب هذا
 

Private Sub Form_AfterInsert()
    Me.UserNameIns = UserName
End Sub

UserNameIns غير باسم الحقل للجدول المصدر النموذج
 

جزاك الله خيرا استاذ ولله جربت مراحل  ذي عندما اسجل دخول وادخل للفورم  الخانة تبع UserNameIns الاقيها فاضية هاذو هو المشروع ياليت تجرب عليه  أستاذ 

Database1.rar

[Shivan Rekany]

في 12/20/2017 at 09:48, sofiane05552 said:

جزاك الله خيرا استاذ ولله جربت مراحل  ذي عندما اسجل دخول وادخل للفورم  الخانة تبع UserNameIns الاقيها فاضية هاذو هو المشروع ياليت تجرب عليه  أستاذ 

Database1.rar

تم تعديل على مسميات الحقول والمربعات النصية للنموذج De versement 
وتم اضافة كود عند الدخول 
انت اعمل تعديلات لاسماء وليبلات نماذج اخرى

 

Database1.rar

تم تعديل ديسمبر 21, 2017 بواسطه Shivan Rekany
تجديد المرفق

[sofiane05552]

2 ساعات مضت, Shivan Rekany said:

تم تعديل على مسميات الحقول والمربعات النصية للنموذج De versement 
وتم اضافة كود عند الدخول 
انت اعمل تعديلات لاسماء وليبلات نماذج اخرى

Database1.rar

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