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

Derecelendirme: 0/5 - 0 oy



iscinar
İsmail ÇINAR
Kullanici Avatari
Uzman
İ.... Ç....
856
30/05/2011
272
İstanbul
Ofis 2007
17/11/2016,11:19
Çö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.848
02/04/2010
İzmir
Ofis 2003
Bugün,23:04
Çözüldü 
Ödenmiş cezalar hangi şartta gündeme gelecek belirtmeniz lazım...
Please return your positive or negative ...
Cevapla


iscinar
İsmail ÇINAR
Kullanici Avatari
Uzman
İ.... Ç....
856
30/05/2011
272
İstanbul
Ofis 2007
17/11/2016,11:19
Çö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.848
02/04/2010
İzmir
Ofis 2003
Bugün,23:04
Çözüldü 

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.052
31/10/2008
63
İstanbul
-
29/11/2016,00:04
Çö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
İ.... Ç....
856
30/05/2011
272
İstanbul
Ofis 2007
17/11/2016,11:19
Çözüldü 
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
  Liste kutusu sütün hizlama ve biçim değiştirme hakkında nightashes 13 118 3 saat önce nightashes
  Şifre değiştirme sorunu m_demir 2 109 18/10/2016, 11:51 m_demir
  Combobox'ın kayıt Kaynağı'nı değere göre değiştirme hasanak2 13 592 12/09/2016, 10:55 atoz112
Çözüldü Formda koşullu icon değiştirme umuttk 4 395 30/03/2016, 20:42 umuttk
Çözüldü Liste kutusunun kaynak kodunu optionboxa bağlı değiştirme mehmetb84 2 302 27/01/2016, 19:26 mehmetb84


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