Skip to main content

AccessTr.neT


Çapraz Sorgudan Rapor Hazırlamak

Çapraz Sorgudan Rapor Hazırlamak

Çözüldü #7
Eklenti
Cevapla
Çözüldü #8
(23/11/2011, 22:48)orka80 yazdı: Satırlarda Sorular, Sütunlarda öğrenci isimleri olacak şekilde bir çapraz sorgu oluşturdum. Bu çapraz sorgudan Bir rapor hazırladım. Buraya kadar sorun yok.
Öğrenci isimlerinden biri değişse Çapraz sorgu çalışıyor fakat Rapor çalışmıyor.
Bu durum normal mi? Yoksa Çapraz Sorgudan rapor hazırlarken bir ayrıntıyı gözden mi kaçırıyorum?
Office 2003 kullanmam gerekiyor. Tablomda 40 Öğrenci ve 40 soru var.

Dosya ekledim. Sanırım dosya indirilebiliyor. Yardımlarınızı bekliyorum.
Cevapla
Çözüldü #9
Öğrenci isimleri değişecek Öğrenci noları değişmeyecekse sütünları Öğrencino alanından oluşturunuz.
Atıyorum Öğrenci Adı mehmet ise oluşturduğunuz raporda Mehmet adında bir alan oluşuyor ve verileri sorgunuzdaki Mehmet alanından alıyor. Ama siz Mehmet' i Ahmet yapınca sorgunuzda Mehmet alanı Ahmet oluyor ama rapordaki Mehmet alanı aynen kalarak açıldığında Sorgunuzda Mehmet alanını arıyor bulamayınca da hata veriyor.
Bir diğer seçenekte Gözlem Sorularını Sütün Başlığı olarak ayarlamak Öğrenci adlarını Satır başlığı olarak ayarlamak olabilir.
Kaplumbağa ya dikkat et...
Sadece  başını çıkartıp risk aldığında ilerleyebiliyor...
Cevapla
Çözüldü #10
Teşekkür ederim Sayın Puletin
Sorun tam anlattığınız gibi.

Tablodaki öğrenci isimleri, öğrenci numaraları ve sorular değişebilecektir.
Bu yüzden O Tabloya SıraNo adında bir alan ekleyip özelliğini otomatik sayı yaptım.
Çapraz sorguda ve raporda Sütun başlıklarını bu SıraNo alanından aldım.
(Sorguya Sabit sütun isimleri de ekleyebilirim.)

Rapora isim1, isim2, isim3, … adında yeteri kadar metin kutusu ekledim.
Aşağıdaki kod çalışınca “Bu nesneye bir değer atayamazsınız” uyarısı alıyorum.

Private Sub Report_Open(Cancel As Integer)
Me.isim1 = Dlookup ("OgrenciAdi", "hb_RaporSorgusu", "OgrenciNo = 1")
'Me.isim2 = Dlookup ("OgrenciAdi", "hb_RaporSorgusu", "OgrenciNo = 2")
End Sub
Cevapla
Çözüldü #11
Private Sub SayfaÜstbilgisiBölümü_Format(Cancel As Integer, FormatCount As Integer)
Me.isim1 = Dlookup ("OgrenciAdi", "hb_RaporSorgusu", "OgrenciNo = 1")
'Me.isim2 = Dlookup ("OgrenciAdi", "hb_RaporSorgusu", "OgrenciNo = 2")
End Sub

Şeklinde deneyiniz. Çünkü eklediğiniz metin kutuları Raporun SayfaÜstBilgisiBölümünde yer alıyor.

Kolay gelsin
Kaplumbağa ya dikkat et...
Sadece  başını çıkartıp risk aldığında ilerleyebiliyor...
Cevapla
Çözüldü #12
Teşekkür ederim. Sayın Puletin
Belirtiğiniz gibi yaptım. Sorun çözüldü.
Ellerin dert görmesin.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task