Skip to main content

AccessTr.neT


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

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

Çözüldü #1
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;
listboxta böyle bir Sql cümlesi var O anda listboxda görünen verileri yazdırmak istiyorum. Listbox Sql cümlesini raprdada kullanmak istiyorum
@benbendedeilem
Son Düzenleme: 08/05/2020, 14:17, Düzenleyen: accessman.
Cevapla
#2
Bu kodu raporun kayıt kaynağına yazsanız olmuyor mu?
Cevapla
#3
oluyor ama farklı formlardan farklı Sql cümlesi ile raporu kullanmak istiyorum
@benbendedeilem
Cevapla
#4
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
Cevapla
#5
Çok teşekkürler @ozanakkaya
@benbendedeilem
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task