RowSource ile kaynak değiştirme
Tarih
16/09/2011 10:24
Konu Sahibi
iscinar
Yorumlar
6
Okunma
2450
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
iscinar
İsmail ÇINAR
Kullanici Avatari
Uzman
İ.... Ç....
857
30/05/2011
275
İstanbul
Ofis 2007
Çözüldü 
Forumda açılmış önceki konulardan faydalanarak hazırladığım "Cezaacilan" adlı açılan kutudan "Liste186" adlı liste kutusunun kaynağını iki seçenekli olarak değiştiriyorum. Ancak 3. bir seçenek ekleme ihtiyacı hasıl oldu

"Ödenmiş Cezalar" olarak üçüncü bir seçenek koymak istersek aşağıdaki kodda nasıl bir değişiklik veya ilave yapmamız lazım.

SQL Code
1
2
3
4
5
6
7
8
Private Sub Cezaacilan_AfterUpdate()
If [Cezaacilan] = "Zimmet" Then
Me.Liste186.RowSource = "Tbl_Zimmet"
Else
Me.Liste186.RowSource = "Ödenmemiş Cezalar"
End If
Me.Liste186.Requery
End Sub


Toprağa her türlü kötü şey atılmasına rağmen
Topraktan hep güzel şeyler biter . (Akşemseddin)
Cevapla

POWER
Uzman
Kullanici Avatari
Uzman
U.... Ö....
1.859
02/04/2010
İzmir
Ofis 2003
Bugün,00:50
Çözüldü 
Sponsor Reklam
Ödenmiş cezalar hangi şartta gündeme gelecek belirtmeniz lazım...
Please return your positive or negative ...
Cevapla

iscinar
İsmail ÇINAR
Kullanici Avatari
Uzman
İ.... Ç....
857
30/05/2011
275
İstanbul
Ofis 2007
Çözüldü 
Hayırlı Cumalar

"Cezaacilan" kutusunun seçimi
Zimmet ise Liste186 nın kaynağı "Tbl_Zimmet"
Ödenmiş Cezalar ise Liste186 nın kaynağı "Ödenmiş Cezalar"

Ödenmemiş Cezalar
ise Liste186 nın kaynağı "Ödenmemiş Cezalar"

Kısacası seçime göre kayıt kaynağı. İki seçimde bu kod ile oluyor ama ben üçüncü seçeneğe göre ayarlayamadım.

"Switch" veya "IIf" olabilirmi diye onu araştırıyorum ama sanırım cumadan sonraya kalacak.



Toprağa her türlü kötü şey atılmasına rağmen
Topraktan hep güzel şeyler biter . (Akşemseddin)
Cevapla

POWER
Uzman
Kullanici Avatari
Uzman
U.... Ö....
1.859
02/04/2010
İzmir
Ofis 2003
Bugün,00:50
Çözüldü 
Sponsor Reklam

Visual Basic Code
1
2
3
4
5
6
Private Sub Cezaacilan_AfterUpdate()
If [Cezaacilan] = "Zimmet" Then Me.Liste186.RowSource = "Tbl_Zimmet"
If [Cezaacilan] = "Ödenmiş Cezalar" Then Me.Liste186.RowSource = "Ödenmiş Cezalar"
If [Cezaacilan] = "Ödenmemiş Cezalar" Then Me.Liste186.RowSource = "Ödenmemiş Cezalar"
Me.Liste186.Requery
End Sub


Please return your positive or negative ...
Cevapla

assenucler

Kullanici Avatari
Onursal
A.... S.... Ş....
2.053
31/10/2008
63
İstanbul
-
22/03/2017,13:18
Çözüldü 
Sayın iscinar,

Merhaba ve hayırlı Cuma'lar.

Acaba dosyanızın son halini ekleyebilir misiniz?

Sevgiler.

İlgi ve yanıtınız için önceden teşekkürler.


Cevapla

iscinar
İsmail ÇINAR
Kullanici Avatari
Uzman
İ.... Ç....
857
30/05/2011
275
İstanbul
Ofis 2007
Çözüldü 
Sponsor Reklam
End Sub 'da takılıyor fakat henüz hatam nerede diye bakamadım.
Cuma sonrası masada bekleyen işleri bitirip hatayı arayacağım daha sonra geri dönüş yapacağım

Toprağa her türlü kötü şey atılmasına rağmen
Topraktan hep güzel şeyler biter . (Akşemseddin)
Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  Yapmış Olduğum Dosyanın Simgesini Değiştirme ? pelitt 9 164 10/05/2017, 10:35 atoz112
  Liste kutusu sütün hizlama ve biçim değiştirme hakkında nightashes 13 373 07/12/2016, 20:10 nightashes
  Şifre değiştirme sorunu m_demir 2 190 18/10/2016, 11:51 m_demir
  Combobox'ın kayıt Kaynağı'nı değere göre değiştirme hasanak2 13 764 12/09/2016, 10:55 atoz112
Çözüldü Formda koşullu icon değiştirme umuttk 4 469 30/03/2016, 20:42 umuttk


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