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)
Çerçeve Seçim Değerine Göre Sorgu Ve Rapor Açmak
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ı.
Bu kodlara gerek yok, Sorgudurum kodu ve sorgusu yerine direkt
kodu kullanılabilir. @mehmetdemiral hocamın dediği gibi if yerine select case daha uygun olur.
.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
Konuyu Okuyanlar: 1 Ziyaretçi