Dim GRaporAdi As Report



DoCmd.OpenReport "Rapor1", acViewDesign



Set GRaporAdi = Reports!Rapor1

GRaporAdi.RecordSource = "SELECT id, sicil, isim, cins, isgirtar, isyeri, bolum, yapis, posta, iskazasi FROM tPersonel WHERE (((id) Like ""*"" & [Forms].[ifIsKazasi].[id] & ""*"") And ((cins) Like ""*"" & [Forms].[ifIsKazasi].[cins] & ""*"") And ((isyeri) Like ""*"" & [Forms].[ifIsKazasi].[isyeri] & ""*"") And ((bolum) Like ""*"" & [Forms].[ifIsKazasi].[bolum] & ""*"") And ((yapis) Like ""*"" & [Forms].[ifIsKazasi].[yapis] & ""*"") And ((posta) Like ""*"" & [Forms].[ifIsKazasi].[posta] & ""*"") And ((iskazasi) Like ""*"" & [Forms].[ifIsKazasi].[posta] & ""*"" And (iskazasi) <> 'Hayır') And ((Format([isgirtar], ""mmmm"") & """") Like ""*"" & [Forms].[ifIsKazasi].[girisay] & ""*"")) ORDER BY tPersonel.isim;"

DoCmd.OpenReport "Rapor1", acViewPreview