Userform Kullanıcı Giriş Saydırma
Tarih
22/09/2010 16:54
Konu Sahibi
drummers
Yorumlar
3
Okunma
1683
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



drummers
Omur Can
Kullanici Avatari
Destek
O.... C....
400
11/05/2009
125
İzmir
Ofis 2003
Dün,13:59
Çözüldü 
Sponsor Reklam
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


Ek Dosyalar
.rar   drmkayıt v1.rar (Dosya Boyutu: 271,71 KB / İndirme Sayısı: 39)
drummers, 11-05-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla

ogulcan92
Aktif Üye
Kullanici Avatari
Aktif Üye
1.160
06/05/2009
477
İzmir
Ofis 2003
07/08/2015,11:50
Çözüldü 
Sn:drummers
Aşağıdaki kodu kendi projenize göre düzenleyiniz.

Visual Basic Code
1
2
3
4
5
6
7
8
9
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


Cevapla

drummers
Omur Can
Kullanici Avatari
Destek
O.... C....
400
11/05/2009
125
İzmir
Ofis 2003
Dün,13:59
Çözüldü 
Sponsor Reklam
(22/09/2010, 17:46)ogulcan92 Adlı Kullanıcıdan Alıntı: Sn:drummers
Aşağıdaki kodu kendi projenize göre düzenleyiniz.

Visual Basic Code
1
2
3
4
5
6
7
8
9
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..Img-cray


drummers, 11-05-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla

drummers
Omur Can
Kullanici Avatari
Destek
O.... C....
400
11/05/2009
125
İzmir
Ofis 2003
Dün,13:59
Çözüldü 
Yok Yok becerdim..Img-grin. Tamamdır ve teşekkürler
drummers, 11-05-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  sütundaki Değere göre veri saydırma hegu 8 118 30/01/2017, 16:25 hegu
  userform güncelleme hatası yok_06 3 495 18/06/2016, 15:09 atoz112
  userform açıldığında excel kitaplarının kapanması bydogannn67 11 2.400 09/06/2016, 20:09 atoz112
Çözüldü Userform çalıştırma ve bilgileri denetimlerde gösterme yok_06 9 1.035 26/12/2015, 13:34 atoz112
Çözüldü Userform Adres ve Telefon Rehberi Listeleme meram42 9 1.796 13/05/2015, 10:39 meram42


Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya