Küçük bi örnek hazırlamaya çalıştım.
kısaca anlatayım.Uygulamana 1 adet modül ekle ve kodlarını;

Public Declare Function GetUserNameA Lib "advapi32.dll" (ByVal lpBuffer As String, nSize As Long) As Long

Public Function GetUserName() As String

' Simple sub to get our windows username

   Dim UserName2 As String * 255

   Call GetUserNameA(UserName2, 255)

   GetUserName = Left$(UserName2, InStr(UserName2, Chr$(0)) - 1)

End Function

şeklinde değiştir.
Formuna 1 adet metin kutusu ekle ve denetim kaynağına;

=GetUserName()

yaz
Formundaki veri girdiğin alanların(ben demirbas alanı için yaptım) güncelleştirme sonrası olayına;

Private Sub Demirbas_AfterUpdate()

Me.KartiAcanKullanici.Value = Me.Metin0.Value

End Sub

kodunu yaz.Bu kodla bilgisayarın kullanıcı adını bulduğun fonksiyonun döndürdüğü değeri tablodaki alana kaydetmiş olacaksın.Örneğini istediğin alana göre düzenlersin.
Eklediğim resimde fonksiyonun döndürdüğü alanı çalışma anında gizlersin.


Örnek Ektedir Kolay Gelsin

Ek Dosyalar

cskn_windows user name.rar(24.53 KB)

Serkan Hocam Pardon;Örneği hazırlamaya başlamıştım eklemek istedim boşa gitmesin