Merhaba. Buna benzer başlıklarla bazı örnekler buldum sitede ancak yine tam cevap bulamadım. İki sorunum var:
- Ekte bulunan örneğimde formdaki "ilgili" kutusuna bilgisayar adınının otomatik eklenmesini istiyorum
- 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.