AccessTr.neTMicrosoft ExcelExcel Cevaplanmış Soruları

Userform Kullanıcı Giriş Saydırma

22/09/2010, 16:54

drummers

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
22/09/2010, 17:46

ogulcan92

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
22/09/2010, 20:39

drummers

(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..
22/09/2010, 21:09

drummers

Yok Yok becerdim... Tamamdır ve teşekkürler