Skip to main content

AccessTr.neT


RowSource ile kaynak değiştirme

RowSource ile kaynak değiştirme

Çözüldü #1
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
Toprağa her türlü kötü şey atılmasına rağmen
Topraktan hep güzel şeyler biter . (Akşemseddin)
Cevapla
Çözüldü #2
Ödenmiş cezalar hangi şartta gündeme gelecek belirtmeniz lazım...
Please return your positive or negative ...
Cevapla
Çözüldü #3
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)
Son Düzenleme: 16/09/2011, 12:46, Düzenleyen: iscinar.
Cevapla
Çözüldü #4
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
Çözüldü #5
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
Çözüldü #6
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

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da