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

Ödenmiş cezalar hangi şartta gündeme gelecek belirtmeniz lazım...

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.

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

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.

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