AccessTr.neTMicrosoft AccessAccess Cevaplanmış Soruları

RowSource ile kaynak değiştirme

1 2
16/09/2011, 10:24

iscinar

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.
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
16/09/2011, 12:30

POWER

Ödenmiş cezalar hangi şartta gündeme gelecek belirtmeniz lazım...
16/09/2011, 12:46

iscinar

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.


16/09/2011, 13:15

POWER

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
16/09/2011, 14:11

assenucler

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.

16/09/2011, 14:17

iscinar

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
1 2