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

[sofiane05552]

السلام عليكم 

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

[Shivan Rekany]

  في 28‏/11‏/2017 at 19:22, sofiane05552 said:

السلام عليكم 

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

Expand  

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

[sofiane05552]

  في 28‏/11‏/2017 at 21:47, Shivan Rekany said:

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

Expand  

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

my projet 2018..rarFetching info...

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

[Shivan Rekany]

  في 28‏/11‏/2017 at 22:37, sofiane05552 said:

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

my projet 2018..rarFetching info...

Expand  

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

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]

  في 29‏/11‏/2017 at 00:44, 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.rarFetching info...

Expand  

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

[sofiane05552]

Database1.zip

[sofiane05552]

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

De versement

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

[Shivan Rekany]

  في 20‏/12‏/2017 at 14:02, sofiane05552 said:

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

De versement

Expand  

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

    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]

  في 20‏/12‏/2017 at 16:54, 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 غير باسم الحقل للجدول المصدر النموذج
 

Expand  

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

Database1.rar

[Shivan Rekany]

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

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

Database1.rarFetching info...

Expand  

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

 

Database1.rar

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

[sofiane05552]

  في 21‏/12‏/2017 at 14:07, Shivan Rekany said:

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

Database1.rarFetching info...

Expand  

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