+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Userform Kullanıcı Giriş Saydırma (/konu-userform-kullanici-giris-saydirma.html)
Userform Kullanıcı Giriş Saydırma - drummers - 22/09/2010
Userform2 ile dosyamı açmaktayım. Seçtiğim kullanıcı adı "Yetkiler" sekmesinde "AA2" hücresine atanmakta ve kaç sefer girdiği sayılmaktadır.
Kullanıcı adını userform1 de label37 ye yamakta
Kaç sefer açıldığınıda label243 e yazmaktadır.
İsteğim şudur: Girişteki userform2 den seçilen kulanıcı adı userfom1 deki label37 ye yazılsın ve bu kaçıncı girişi olduğuda label243 e yazılsın. Kullanıcı değişir ise onuda aynı şekilde ilgili label e yazısın fakat giriş sayılarını ayrı ayrı tutsun
Örnek:
Diyelim Admin programı 10 kez açtı
label37= Admin label243= 10
iyelim User programı 14 kez açtı
label37= User label243= 14
Teşekkürler
Kullanıcı Adı:Admin Şifre:1
Kullanıcı Adı: User Şifre:2
Cvp: Userform Kullanıcı Giriş Saydırma - ogulcan92 - 22/09/2010
Sn:drummers
Aşağıdaki kodu kendi projenize göre düzenleyiniz.
Private Sub UserForm_Initialize()
Label1.Caption = [Sayfa1!A1]
If Label1.Caption = "Admin" Then
Label2.Caption = [Sayfa1!B2]
End If
If Label1.Caption = "User" Then
Label2.Caption = [Sayfa1!B3]
End If
End SubCvp: Userform Kullanıcı Giriş Saydırma - drummers - 22/09/2010
(22/09/2010, 17:46)ogulcan92 yazdı: Sn:drummers
Aşağıdaki kodu kendi projenize göre düzenleyiniz.
Private Sub UserForm_Initialize()
Label1.Caption = [Sayfa1!A1]
If Label1.Caption = "Admin" Then
Label2.Caption = [Sayfa1!B2]
End If
If Label1.Caption = "User" Then
Label2.Caption = [Sayfa1!B3]
End If
End Sub
Üzgünüm beceremedim..
Cvp: Userform Kullanıcı Giriş Saydırma - drummers - 22/09/2010
Yok Yok becerdim..
. Tamamdır ve teşekkürler