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()
yazFormundaki 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
Serkan Hocam Pardon;Örneği hazırlamaya başlamıştım eklemek istedim boşa gitmesin