AccessTr.neT

Tam Versiyon: RowSource ile kaynak değiştirme
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2
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
Sayfalar: 1 2