هل هذه الامكانية متاحة في اكسس

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

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

و يتم اضافة كود المستخدم الحالي الي الجدول الخاص بالبيانات لكل سجل عند الاضافة فى كود من أدخل السجل و فى كود من عدله فى حالة تعديل البيانات ( كلها أو المهم منها ) و يجب أن يتم ذلك بالكود

فلا توجد طريقة مباشرة فى أكسس علي حد علمي

و الله أعلم

اخي مصراوي اشكرك على الرد

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

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

الأخ fahadam

راجع هذا الرابط لعلك تجد به المفيد

http://arabteam.nicmatic.com/vb/showthread...light=%CD%D0%DD

أشرف خليل

الاخ اشرف اشكرك على الرد وهذا ماعهدناه عنكم

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

الا يوجد كود يظهر اسم مستخدم قاعدة البيانات

وتحياتي لك

تمكنت بحمدالله من حل المشكلة

وتحياتي لكم

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

مبروك علي حل المشكلة ، و لكن كيف

عموما هذان كودان للحصول علي اسم المستخدم علي الجهاز و اسم الدخول الي الشبكة

Task: Get logged in username using GetUserName API

Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
----
Private Sub Form_Load()
Dim cn As String
Dim ls As Long
Dim res As Long
cn = String(1024, 0)
ls = 1024
res = GetUserName(cn, ls)
If res <> 0 Then
MsgBox "You are logged in as " & " " & Mid(cn, 1, InStr(cn, Chr(0)) - 1)
Else
MsgBox "You are not logged in"
End If
End
End Sub

Task: Get network logged in username using WNetGetUser API

Private Declare Function WNetGetUser Lib "mpr.dll" Alias "WNetGetUserA" (ByVal lpName As String, ByVal lpUserName As String, lpnLength As Long) As Long

----

Private Sub Form_Load()
Dim b As String * 128
WNetGetUser "", b, 128
MsgBox "Username = " & b
End
End Sub

اخي مصراوي مشكور على الكود(f)

بالنسبة للمشكلة فحلي اياها كان بالتقاضي عنها :confused: