+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Çerçeve Seçim Değerine Göre Sorgu Ve Rapor Açmak (/konu-cerceve-secim-degerine-gore-sorgu-ve-rapor-acmak.html)
Sayfalar:
1
2
Cvp: Çerçeve Seçim Değerine Göre Sorgu Ve Rapor Açmak - SeferŞANLI - 28/03/2020
Elinize Sağlık. Teşekkür ederim. Birde açılan kutuda alandaki değer adeti bir gelse (Yani birimine göre sorgudan aldığı veriyi örn: Muhasebe-Muhasebe diye sıralıyor). Sadece Farkı olanları listelese)
Cvp: Çerçeve Seçim Değerine Göre Sorgu Ve Rapor Açmak - ozanakkaya - 28/03/2020
Açılan kutunun satır kaynağına eklenen sorguları düzenlemeniz gerekli, açılan kutuda gösterilecek veri sorguda ilk sütun olmalı ve ilişkili sütun 1 olmalı.
.RowSource = "Sorgudurum" 'sorgu kaynağı
.ColumnCount = 2 'sütun sayısı
.BoundColumn = 2 'ilişkili sütunBu kodlara gerek yok, Sorgudurum kodu ve sorgusu yerine direkt
.rowsource = "SELECT durum FROM tbl_personel GROUP BY tbl_personel.durum;"kodu kullanılabilir. @mehmetdemiral hocamın dediği gibi if yerine select case daha uygun olur.
Select Case cerceverapor
Case 1
Me.acrapor.Enabled = False
Me.etrapor.Caption = "Tüm Personel Listesi"
Case 2
Me.acrapor.Enabled = False
Me.etrapor.Caption = "Tüm Personel Listesi"
Me.acrapor.RowSource = "SELECT durum FROM tbl_personel GROUP BY durum;"
Case 3
Me.acrapor.Enabled = True
Me.etrapor.Caption = "Kaldığı Yer"
Me.acrapor.RowSource = "SELECT kaldigiyer FROM tbl_personel GROUP BY kaldigiyer;"
Case 4
'......
Case 5
'......
Case 6
'......
Case 7
'......
End SelectCvp: Çerçeve Seçim Değerine Göre Sorgu Ve Rapor Açmak - SeferŞANLI - 28/03/2020
Teşekkür ediyorum emekleriniz için. Düzelttim ve dosyayı ekledim Umarım başkalarına da faydalı olur. Konu çözülmüştür.
private Sub btnyazdir_Click()
Select Case cerceverapor
Case 1
DoCmd.OpenReport "tümkayıtlar", acViewPreview
Case 2
DoCmd.OpenReport "rpr_durum", acViewPreview
Case 3
DoCmd.OpenReport "rpr_yer", acViewPreview
Case 4
DoCmd.OpenReport "rpr_birim", acViewPreview
Case 5
DoCmd.OpenReport "rpr_santiye", acViewPreview
Case 6
DoCmd.OpenReport "rpr_isegiris", acViewPreview
Case 7
DoCmd.OpenReport "rpr_istencıkıs", acViewPreview
End Select
End Sub
Private Sub cerceverapor_AfterUpdate()
Select Case cerceverapor
Case 1
Me.acrapor.Enabled = False
Me.etrapor.Caption = "Tüm Personel Listesi"
Case 2
Me.acrapor.Enabled = True
Me.etrapor.Caption = "İş Durumu"
Me.acrapor.RowSource = "SELECT durum FROM tbl_personel GROUP BY tbl_personel.durum;"
Case 3
Me.acrapor.Enabled = True
Me.etrapor.Caption = "Kaldığı Yer"
Me.acrapor.RowSource = "SELECT kaldigiyer FROM tbl_personel GROUP BY tbl_personel.kaldigiyer;"
Case 4
Me.acrapor.Enabled = True
Me.etrapor.Caption = "Kaldığı Birim"
Me.acrapor.RowSource = "SELECT birimi FROM tbl_personel GROUP BY tbl_personel.birimi;"
Case 5
Me.acrapor.Enabled = True
Me.etrapor.Caption = "Kaldığı Şantiye"
Me.acrapor.RowSource = "SELECT santiyeadi FROM tbl_personel GROUP BY tbl_personel.santiyeadi;"
Case 6
Me.acrapor.Enabled = True
Me.etrapor.Caption = "İşe Giriş Tarihine Göre"
Me.acrapor.RowSource = "SELECT ise_giris_tarihi FROM tbl_personel GROUP BY tbl_personel.ise_giris_tarihi;"
Case 7
Me.acrapor.Enabled = True
Me.etrapor.Caption = "İşten Çıkış Tarihine Göre"
Me.acrapor.RowSource = "SELECT isten_cıkıs_tarihi FROM tbl_personel GROUP BY tbl_personel.isten_cıkıs_tarihi;"
End Select
End Sub