Skip to main content

AccessTr.neT


Bilgisayar adını metin kutusuna yazdırmak

Bilgisayar adını metin kutusuna yazdırmak

Çözüldü #1
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
  
.rar Database1.rar (Dosya Boyutu: 20,16 KB | İndirme Sayısı: 3)
misilak, 08-02-2010 tarihinden beri AccessTr.neT üyesidir.
Cevapla
#2
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.
Cevapla
#3
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ı?
misilak, 08-02-2010 tarihinden beri AccessTr.neT üyesidir.
Cevapla
#4
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.
Herkes, kendisinin AR-GE'cisidir...


Konulara eklenen Uygulama içeriğine yönelik Tavsiyeler
Alt Form Denetim Değerlerine ulaşma ve Alt Form Güncelleme
Kapatırken Düzenle (Compact On Close) Seçeneğinin İşaretlenmesi Hakkında
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da