Me.kendi_istegi = DCount("Sicili", "TblPersonel", strWhere & " AND [PasifNedeni]='İsteğiyle Emekli'")
Me.yas_haddi = DCount("Sicili", "TblPersonel", strWhere & " AND [PasifNedeni]='Yaş Haddinden Emekli'")
kodlarını
Me.FilterOn = True
kodunun altına taşıyınız.