Rapor Açarken Sql Cümlesi İle Kayıt Kaynağını Değiştirmek

SELECT tPersonel.id, tPersonel.sicil, tPersonel.isim, tPersonel.cins, tPersonel.isgirtar, tPersonel.isyeri, tPersonel.bolum, tPersonel.yapis, tPersonel.posta, tPersonel.iskazasi

FROM tPersonel

WHERE (((tPersonel.id) Like "*" & [Formlar].[ifIsKazasi].[id] & "*") AND ((tPersonel.cins) Like "*" & [Formlar].[ifIsKazasi].[cins] & "*") AND ((tPersonel.isyeri) Like "*" & [Formlar].[ifIsKazasi].[isyeri] & "*") AND ((tPersonel.bolum) Like "*" & [Formlar].[ifIsKazasi].[bolum] & "*") AND ((tPersonel.yapis) Like "*" & [Formlar].[ifIsKazasi].[yapis] & "*") AND ((tPersonel.posta) Like "*" & [Forms].[ifIsKazasi].[posta] & "*") AND ((tPersonel.iskazasi) Like "*" & [Forms].[ifIsKazasi].[posta] & "*" And (tPersonel.iskazasi)<>"Hayır") AND ((Format([isgirtar],"mmmm") & "") Like "*" & [Forms].[ifIsKazasi].[girisay] & "*"))

ORDER BY tPersonel.isim;

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