Yeni bir modül oluşturup modül içeriğine aşağıdaki kodları ekle ve modülü kaydet.

Option Compare Database



Option Explicit

#If VBA7 Then

Private Declare PtrSafe Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" _

                    (ByVal IpBuffer As String, nSize As Long) As Long

#Else

Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" _

                    (ByVal IpBuffer As String, nSize As Long) As Long

#End If

Function BilgisayarAdi() As String

    Dim LngBufLen As Long

    Dim strUser As String

 

    strUser = String$(15, " ")

    LngBufLen = 15

 

    If GetUserName(strUser, LngBufLen) = 1 Then

        BilgisayarAdi = Left(strUser, LngBufLen - 1)

    Else

        BilgisayarAdi = "Bilinmiyor"

    End If

End Function

Formdaki nesnelerin güncelleştirme sonrasında olayına 

Me.İLGİLİ = BilgisayarAdi

kodu ekle.

Ayrıca, formdaki denetim isimlerini İLGİLİ adında kaydetmeyiniz. Türkçe karakter kullanmayınız. Metin kutusunun denetim kaynağı "ilgili" ise, metin kutusunun adı "mtn_ilgili" olmalıdır.