AccessTr.neT

Merhabalar,

Tabloya bir kayı girildiğinde yine o tablodaki bir fielde otomatik olarak o bilgisayarın kullanıcı adını girmesini istiyoum. Bunu nasıl yapabilirim. Yardımcı olursanız çok sevinirim. Teşekkürler.

Aşağıdaki konuda bilgi bulabilirsiniz.
<a href="https://accesstr.net/konu-kullanici-ve-bilgisayar-adi-bulduruyoruz.html">Kullanıcı ve Bilgisayar Adı Bulduruyoruz</a>

Daha fazla yardımcı olmamız için lütfen örnek ekleyiniz.

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

Cevabınız için çok teşekkür ederim. eke tıkladığımda resim.accesstr.net adresine yönlendiriyor ve indir dediğimde sayfa açılamıyor. O siteye farklı bir kayıtmı yapmam gerekiyor?

siteden indirmek için üye olmanıza gerek yok.

örneği indirip inceleyebildiniz mi? sorunuz ile ilgili geri dönüşte bulunurmusunuz?