Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
22/09/2010 16:54
Konu Sahibi
drummers
Yorumlar
3
Okunma
1910
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....
405
11/05/2009
125
İzmir
Ofis 2003
28/08/2017,11:37
Çözüldü 
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ı: 50)
drummers, 11-05-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla

ogulcan92

Aktif Üye
Kullanici Avatari
Aktif Üye
1.159
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....
405
11/05/2009
125
İzmir
Ofis 2003
28/08/2017,11:37
Çözüldü 
(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....
405
11/05/2009
125
İzmir
Ofis 2003
28/08/2017,11:37
Çö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
Çözüldü sütundaki Değere göre veri saydırma hegu 8 471 30/01/2017, 16:25 hegu
Çözüldü userform güncelleme hatası yok_06 3 656 18/06/2016, 15:09 atoz112
Çözüldü userform açıldığında excel kitaplarının kapanması bydogannn67 11 2.978 09/06/2016, 20:09 atoz112
Çözüldü Userform çalıştırma ve bilgileri denetimlerde gösterme yok_06 9 1.748 26/12/2015, 13:34 atoz112
Çözüldü Userform Adres ve Telefon Rehberi Listeleme meram42 9 2.135 13/05/2015, 10:39 meram42

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
Forum use Krzysztof "Supryk" Supryczynski addons.