Bilgisayar adını metin kutusuna yazdırmak

13/01/2016, 01:59

misilak

Merhaba. Buna benzer başlıklarla bazı örnekler buldum sitede ancak yine tam cevap bulamadım. İki sorunum var:
  1. Ekte bulunan örneğimde formdaki "ilgili" kutusuna bilgisayar adınının otomatik eklenmesini istiyorum
  2. Bu ad ekleme işinin kriteri de formda bulunan diğer alanlardan herhangi birinin güncellenmesi sonrası olmasını istiyorum. Ama ince nokta şu ki kullanıcı bu alanlardan tesadüfen sadece herhangi birini güncellemiş olabilir.

Şimdiden teşekkürler
  
13/01/2016, 05:55

ozanakkaya

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.
13/01/2016, 10:05

misilak

Teşekkür ederim ozanakkaya hocam
Hocam bütün nesneleri ayrı ayrı seçerek güncelleştirme olayı mı girmem gerekecek? Yoksa başka bir yöntemi var mı?
13/01/2016, 18:04

atoz112

sayın misilak,

Alıntı:...Hocam bütün nesneleri ayrı ayrı seçerek güncelleştirme olayı mı girmem gerekecek?...

ifadenize yönelik olarak;
aslında cevabı hem sayın ozan bey

Alıntı:...Formdaki nesnelerin güncelleştirme sonrasında olayına ...

ifadesi ile hem de siz;

Alıntı:...formda bulunan diğer alanlardan herhangi birinin güncellenmesi sonrası olmasını istiyorum. Ama ince nokta şu ki kullanıcı bu alanlardan tesadüfen sadece herhangi birini güncellemiş olabilir...

ifadeniz ile konuyu açarken karşılıklı yanıtlamışsınız.

bilginize...iyi çalışmalar,saygılar.