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