Çerçeve Seçim Değerine Göre Sorgu Ve Rapor Açmak

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)

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ütun

Bu 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 Select

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