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
  

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.

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ı?

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.