+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Rapor Açarken Sql Cümlesi İle Kayıt Kaynağını Değiştirmek (/konu-rapor-acarken-sql-cumlesi-ile-kayit-kaynagini-degistirmek.html)
Rapor Açarken Sql Cümlesi İle Kayıt Kaynağını Değiştirmek - accessman - 08/05/2020
iyi günler rapor taslağım var buna Vba kodları ile Sql cümlesi gönderip çıktı almak istiyorum
nasıl yapmalıyım
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;
RE: Rapor Açarken Sql Cümlesi İle Kayıt Kaynağını Değiştirmek - ozanakkaya - 08/05/2020
Bu kodu raporun kayıt kaynağına yazsanız olmuyor mu?
RE: Rapor Açarken Sql Cümlesi İle Kayıt Kaynağını Değiştirmek - accessman - 08/05/2020
oluyor ama farklı formlardan farklı Sql cümlesi ile raporu kullanmak istiyorum
RE: Rapor Açarken Sql Cümlesi İle Kayıt Kaynağını Değiştirmek - ozanakkaya - 08/05/2020
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
RE: Rapor Açarken Sql Cümlesi İle Kayıt Kaynağını Değiştirmek - accessman - 08/05/2020
Çok teşekkürler @ozanakkaya