معرفة المستخدم

هل من توضيح اكثر؟

يعني مثلا هل تريد طباعة اسم المستخدم على التقرير مثلاً

ولو ارفقت مثالا تجد سهولة اكثر في حل مشكلتك والله المستعان

باسمه تعالى

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

وشكرا على سرعة الاجابة

اليك الحل

افتح موديول جديد و ظع الكود التالي (تأكد من مسح كل شي في الموديول الجديد قبل لصق هذه الكود )

و بالتوقيق

Option Compare Database
Option Explicit
Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpbuffer As String, nSize As Long) As Long
Function UserName() As String
    Dim Buffer As String * 512, length As Long
    If GetUserName(Buffer, Len(Buffer)) Then
        length = InStr(Buffer, vbNullChar) - 1
        UserName = Left$(Buffer, length)
    End If
End Function

Sub TestUserName()
MsgBox UserName
End Sub

باسمه تعالى

سوف اجربه غدا على الشبكة وشكرا