كيفية ادخال اسم المستخدم في عامود بجدول تلقائيا

[Tarekfathallah]

السلام عليكم عندي قاعدة بيانات وبحاجة الى ادخال اسم المستخدم تلقائيا في عامود createuser تلقائيا في جدول لbarcodeir عند الدخول الى البرنامج

لم استطع تنفيذ الطريقة الرجاء الافادة وشكرا

-------------------------------------------------------- للرفع -------------------------------------------

اليوزر والباسورد في المرفقات

tito.rar

[jjafferr]

وعليكم السلام أخي طارق 

 

عملت وحدة نمطية fget_User_ID :

Option Compare Database

Public u_ID As Integer
'

Function get_User_ID()

    get_User_ID = u_ID
End Function

.

في نموذج دخول المستخدمين ، ارسلت قيمة u_ID الى الوحدة النمطية اعلاه:

Private Sub Command5_Click()
If [n2] = [كلمة السر] Then

    
    'assign this value to a Global variable in module fget_User_ID
    u_ID = Me.iduser

DoCmd.OpenForm "واجهة البرنامج", acNormal
[Forms]![واجهة البرنامج]![n1] = [Forms]![دخول المستخدمين]![الاسم الكامل]
DoCmd.Close acForm, "دخول المستخدمين"
Else
ms$ = "كلمة السر غير مطابقة"
ti$ = "كلمة السر خطأ"
re = MsgBox(ms$, 0, ti$)
End If

End Sub

.

فمن الآن وصاعدا ، كلما اردنا قيمة createuser ، فما علينا إلا ان ننادي الوحدة النمطية الاولى ،

لهذا وفي نموذج الادخال barcodeir ، اصبح حقل createuser هكذا:

.

وفي حدث الحقل barcode ، الحدث On Lost Focus ، استدعيت قيمة createuser من الوحدة النمطية fget_Used_ID ، هكذا:

Private Sub barcode_LostFocus()


    'only split is nfous is empty
    If Len(Me.nfousi & "") <> 0 Then Exit Sub
       
    Dim x() As String
    Dim p As Integer
    If Me.barcode <> "" Then
     
        'get the userID
        Me.createuser = get_User_ID()
     
     
x1 = Replace(Me.barcode, "*", "")
    Debug.Print x1
    x = Split(x1, "-")
    Debug.Print x(2)
    
    Me.nfousi = DLookup("[NoufousName]", "NoufousTable", "[Field]='" & x(0) & "'")
   ' Me.nfous_ID = DLookup("[NoufousID]", "NoufousTable", "[Field1]='" & x(0) & "'")
    Me.irsalieh = x(2)
    Me.createdate = Date
    
    Me.[a1] = x(1)
'    Me.[000000] = x(2)
 '   Me.[000] = x(3)
Me.[101] = x(3)
    End If
End Sub

.

 

جعفر

 

 

 

 

 

 

276.tito.accdb.zip

[Tarekfathallah]

الشكر الجزيل للأخ جعفر هل لي بسؤال آخر لو سمحت كيف يمكنني من اعطاء الصلاحيات من حيث  المشاهدة و الادخال والتعديل والحذف والطباعة

 

لو سمحت

----------------------------------- للرفع --------------------------