Subform recordsource değiştirme
#1
Merhaba,
Bir ajanda hazırladım, daha doğrusu yapılacak işler listesi. Bir ana form var ve üzerinde hiçbir data giriş alanı yok. Bu formun içerisine bir subform ekledim. Tüm yapılacak işlerin listesini bu subform üzerinden görebiliyoruz. Ana form ve subform birbirine bir data alanı ile bağlı değil.
Subform bilgileri query den çekiyor. 2 query var;Biri açık işleri filtreleyen open_to_do_list, diğeri kapanmış işleri de içeren full_to_do_list. Bu durumda yapmak istediğim şu.

1- Checkbox (Show Full List) a tıklayınca subform recordsource değişsin ve full_to_do_list query sine, thick i kaldırınca open_to_do_list e dönsün.
Me.Recordsource = "Query_Full_to_do_list"
kodunu denedim; recordsource değişiyor ama "continuous" form single form formatına dönüyor. Form view aslında hala continuous gözüküyor ama gerçekte öyle değil. Formview = continuous kodunu da denedim ama yemedi. Geçici olarak 2 subform hazırladım (open jobs ve all jobs); checkbox işaretlenince visible=true koduyla kullanıyorum.

2- Neden recordsource değiştiriyorsun, tek query olsun checkbox a tıklayınca status sütunundaki "open" ve "close" bilgisine göre istediğin gibi filtrelesin (value=-1 ise "all", else "open" filtrele)diyen arkadaşlar varsa hayhay kabul. Ama ben beceremedim. Anaform ve subform birbirine bağlıysa problem değil benimkinde bağlı olmadığı için birtürlü yapamadım.

Yardımlarınızı bekliyorum. Teşekkürler

Not: Recordsource design görünümünde değiştirilip çalıştırılınca istediğim gibi çalışıyor. Checkbox ile olmuyor.


Eklenti Dosyaları
.jpg   To_do_list.JPG (Boyut: 176,59 KB / İndirilme: 87)



  Alıntı
Bu mesajı beğenenler:
#2
Merhaba..

İki türlüde çözüm üretebiliriz ama bence mantıklı olan 2. yöntem.. Sorgunuzun(open_to_do_list tercihimdir Wink) SQL görünümünü buraya eklerseniz gerekli kriter düzenlemeleri konusunda size yardımcı olabilirim..



  Alıntı
Bu mesajı beğenenler:
#3
Selam Taruz,
Ekte ne yapmak istediğimi anlatmaya çalıştım. Yardımcı olabilir misin?
.jpg   filtre.JPG (Boyut: 164,9 KB / İndirilme: 70)
.jpg   open_jobs.JPG (Boyut: 106,59 KB / İndirilme: 52)



  Alıntı
Bu mesajı beğenenler:
#4
tablo ve alanları görmeden sql yazmak zor iş. Bu nedenle oraya check box yerine bir toggle button (değiştir button) koyman ve aşağıdaki örneğe benzer yapman en iyisi. Örnek olsaydı daha iyi olurdu.

Private Sub Değiştir57_Click()
On Error GoTo Err_Değiştir57_Click

If Değiştir57 = True Then
Değiştir57.Caption = "TÜMÜ"
Form_frmSiparisalt.RecordSource = "SELECT TblSiparis.SipNo,TblSiparis.Tahsilat, TblSiparis.Mno, TblSiparis.IslemTarih, TblSiparis.OdeSekli, TblSiparis.HesapAdi, TblSiparis.Vade, TblSiparis.Vadetarihi, TblSiparis.Fatno, TblSiparis.FisNo, TblSiparis.Tutar, TblSiparis.KDV, TblSiparis.isAciklama, TblSiparis.arsiv FROM TblSiparis " & _
"WHERE TblSiparis.arsiv = No ORDER BY TblSiparis.IslemTarih"
Else
Değiştir57.Caption = "FİLTRELİ"
Form_frmSiparisalt.RecordSource = "SELECT TblSiparis.SipNo,TblSiparis.Tahsilat, TblSiparis.Mno, TblSiparis.IslemTarih, TblSiparis.OdeSekli, TblSiparis.HesapAdi, TblSiparis.Vade, TblSiparis.Vadetarihi, TblSiparis.Fatno, TblSiparis.FisNo, TblSiparis.Tutar, TblSiparis.KDV, TblSiparis.isAciklama, TblSiparis.arsiv FROM TblSiparis " & _
"WHERE TblSiparis.arsiv = Yes ORDER BY TblSiparis.IslemTarih"

End If
Exit_Değiştir57_Click:
Exit Sub

Err_Değiştir57_Click:
MsgBox Err.Description
Resume Exit_Değiştir57_Click
End Sub
kırmızı olan yere kendi alt formunun adını yaz
sql kısmınıda dilediğin şekilde yaz
İyi çalışmalar
Teşekküre gerek yok, Taş atın yeter!!!



  Alıntı
Bu mesajı beğenenler:
#5
Verdiğiniz örnekten anladığım kadarıyla filtrelenen alan aynı tablo içinde. Yani tek tablo var, filtreleyip getiriyor.
TblSipariş tablosu. Ben bunu query uzerinden yapmak istersem değişen birşey olur mu? Query_To_do_list gibi bir isim versem bir sorun olur mu?
Şu anda evde değilim. Bu nedenle deneme yanılma ile sonucu göremiyorum.



  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
access-sql-11 [FORM] access ıcon değiştirme oosmaner 5 808 08-02-2024, 12:43
Son Mesaj: BeyTor
  Aktarım Yaparken Dosya Adını Değiştirme zimbit 4 113 04-02-2024, 00:42
Son Mesaj: zimbit
  [RAPOR] Rapor Fontunu Değiştirme ates2014 6 151 25-01-2024, 15:15
Son Mesaj: ates2014
  [VBA] Pc. Tarih Formatını Değiştirme ates2014 8 211 09-01-2024, 09:18
Son Mesaj: ates2014
  Rapor üzerinde önizleme öncesi Etiket Ve Metin Kutularının Yerlerini Değiştirme Hk. adnnfrm 4 162 26-12-2023, 03:42
Son Mesaj: adnnfrm
  Metin Kutusu Adı Değiştirme Hk. snapper 9 227 08-11-2023, 01:12
Son Mesaj: dsezgin
  Etiket Isimlerini Toplu Değiştirme hedefkaya 1 116 24-10-2023, 21:06
Son Mesaj: dsezgin
  Sadece Geçerli Kayıtta Kenarlık Rengi Değiştirme Hk. adnnfrm 25 508 13-09-2023, 00:00
Son Mesaj: halily

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar): 1 Ziyaretçi