Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
26/12/2008 00:49
Konu Sahibi
derebeyi
Yorumlar
38
Okunma
15985
Konuyu Oyla:
  • Derecelendirme: 5/5 - 1 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 5/5 - 1 oy

derebeyi

Aktif Üye
Kullanici Avatari
Aktif Üye
148
06/11/2008
0
Samsun
Ofis 2007
30/01/2017,21:39
Çözüldü 
Çarpraz sorgudan bir rapor oluşturdum. Fakat çarpraz sorgunun en kötü tarafı sütun sayısını kontrol edememek tahmininiz. Bunla ilgili olarak nasıl bir çözüm üretilebilir?


Cevapla

Bilgisayarcı

Atçalı
Kullanici Avatari
Aktif Üye
657
29/01/2008
410
Antalya
Ofis 2003
01/11/2011,15:17
Çözüldü 
Soru çok güzel. Öncelikle onun için teşekkür ederim
bu konu zaman zaman forumlarda karşıma çıkıyor.
Sütun sayısını sabitlemek için bir ara tablo kullanılabilir. 10-20 tane sütun olsun diye bir sınır koyulabilir.

Ama kesin çözüm isteniyorsa raporun excele dökülmesi her zaman için tercihimdir. Kontrol tamamen sizde olduğu için istenilen formatta kayıtlar gönderilmiş olur. Örneğin ilk 10 sütun üstte ikinci 10 sütun altta olacak şekilde bir format, sütunlar harici ana bilgiler için (adı soyadı gibi) ayrılan alanlar satır sutun birleştirme ile birleştirilir. Tam olarak istenen formata uydurulabilir.

Access raporlarına gömülmektense kodla çözmeyi daha çok seviyorum. Ne yazıkki Access çalışma anında control yaratamadığı için raporlarda bu esnekliği sağlamak zor oluyor...


Bana işe yarayan bir müdür göster,sana dünyayı yerinden oynatayım.
                                                                                        Descartes


Cevapla

Seruz

Uzman
Kullanici Avatari
Uzman
S.... U....
1.550
7
30/10/2008
814
Tekirdağ
Ofis XP
17/10/2017,17:32
Çözüldü 
Evet güzel ve sık karşılaşılan bir problem.

Bununla ilgili çözümlerden birisi
Sn. Bilgisayarcı'nın anlattığı gibi sorguyu excel'e göndermek.

Benim kullandığım diğer çözümler ise kodlama ile sağlanabiliyor.
Crosstab Query'de kaç tane alan olduğunu ve hangi alan isimlerinin olduğunu Kod yazarak alabiliyorsunuz.

Internet'te yaptığım bir araştırmada,
Bununla ilgili bir çözüm bulmuştum.
Biraz ingilizceniz varsa çözebilirsiniz.
Yapılan şey özetle şu;
Raporda önceden sabit alanlar oluşturup,
kodla çapraz sorgudan alınan değerlere göre sırasıyla atamak.

----------------------
Title: Crosstab Query Report - asked by dhemple on 06/08/2004 12:16PM PDT
http://www.experts-exchange.com/Database...18004.html

I have a report that is populated with a crosstab query. The Column headings will change depending on the criteria selected by the user, but there will always be 5 columns.

Sample1:Product Desc 1Qtr03 2Qtr03 3Qtr03 4Qtr03
Sample2:Product Desc 3Qtr03 4Qtr03 1Qtr04 2Qtr04

------------------------------------------------------------------------------
Quote from Nic’s really old thread:
“When the selected field for the Column value can have different value's, you'll need some code to fill the columns as the value from the fields becomes the NAME of the field for the report.

Checkout this code / comment I created for another Q:

Making the columnheader and detaildata flexible is possible, but needs some Vba code in the OpenReport event.

To start, doing this you need to place the fields "coded" in the report.
The Column headings should be called "lblCol1", "lblCol2", "lblCol3", etc.
The "detail" fields should be called "Col1", "Col2", "Col3", etc.

The report query has two rowheader columns and a Total column, therefor the first field is effectively Column 4 (count starts at 0 so I used intI=3) but this could differ for you.

Make sure that the number of Columns is not bigger as the number placed. The programcode has no protection against that !

The OpenReport code:

---------------------------------------------------------------------------
Private Sub Report_Open(Cancel As Integer)
Dim intI As Integer
Dim intR As Integer

Dim rs As Recordset

Set rs = CurrentDb.OpenRecordset(Me.RecordSource)

'Place headers
For intI = 3 To rs.Fields.Count - 1
Me("lblCol" & intI - 1).Caption = rs.Fields(intI).Name
Next intI

'Place correct controlsource
For intI = 3 To rs.Fields.Count - 1
Me("Col" & intI - 1).ControlSource = "=SUM([" & rs.Fields(intI).Name & "])"
Next intI

'Place Total field
Me.ColTotal.ControlSource = "=SUM([" & rs.Fields(2).Name & "])"

End Sub
---------------------------------------------------------------------------
The report query has two rowheader columns and a Total column, therefor the first field is effectively Column 4 (count starts at 0 so I used intI=3) but it could differ for you. PRC_Cross Nic;o)”


Bildiğini bilenin arkasından git, bildiğini bilmeyeni uyar, bilmediğini bilene öğret, bilmediğini bilmeyenden kaç.
Konfüçyüs
Cevapla

Bilgisayarcı

Atçalı
Kullanici Avatari
Aktif Üye
657
29/01/2008
410
Antalya
Ofis 2003
01/11/2011,15:17
Çözüldü 
Sayın Sruz bu yöntem de güzel bir yöntem. Fakat sutun sayısını sabitlemekte hala bir sıkıntı olabilir bu durumda. Örneğin ben Col ve lblCol olarak 20 tane attım. 5 alanlık bir sorgu gönderdim sıkıntı çıkmaz. Mantık olarak 20 taneye kadar sorun çıkmaz. Sorun bunları forma sıkıştırmakta çıkıyor.
Sizin yöntemle tek bir rapor yerine iki tane hazırlamak daha temiz bir yöntem olur. Biri yatay diğeri dikey olacak sekilde.Sayıya göre kendisi yatay ya da dikeyliğe karar versin. Ya da daha temizi içeriklerine göre kendisi karar versin. (2 alanlı bir rapor olabilir ama Fieldlerde 250 karekterlik bilgiler varsa dikey yerine yataya kendisi karar versin gibi..) Bu yöntemle bile sonuç olarak accessin raporlarına kodla müdahale etmek gerekiyor.
Bu kadar kodlamadan sonra excele vermek bence daha güzel. Çünkü excelin esnekliğini de kullanabilir oluyoruz.


Ama sizin yöntem hoş. Yukarıdakileri içeren modifiyeyi de içeren örneği eklemeye çalışayım. Benim istediğim alıntılar yerine her zaman bizden bişilerin olması. Raporda kullanılan lbl mantığının benzerini ben labelleri buton haline getiriken kullanıyorum. Onu biraz değiştirerek rapora da uygularız sanırım...


Bana işe yarayan bir müdür göster,sana dünyayı yerinden oynatayım.
                                                                                        Descartes


Cevapla

Seruz

Uzman
Kullanici Avatari
Uzman
S.... U....
1.550
7
30/10/2008
814
Tekirdağ
Ofis XP
17/10/2017,17:32
Çözüldü 
Dim RS As New ADODB.Recordset
Dim I, SutunSayisi As Integer

'---------------------------------------------------------------------------------------------------------
'Query açılıyor
'---------------------------------------------------------------------------------------------------------
RS.open "KK_HATA_RAPORU_GUNLUK_Crosstab", CurrentProject.Connection, adOpenKeyset, adLockReadOnly

'Sütun Sayısı
SutunSayisi = RS.Fields.Count

'Sütun Başlıkları
For I = 1 To SutunSayisi
MsgBox I & ": " & RS.Fields(I - 1).Name
Next I


Bildiğini bilenin arkasından git, bildiğini bilmeyeni uyar, bilmediğini bilene öğret, bilmediğini bilmeyenden kaç.
Konfüçyüs
Cevapla

Seruz

Uzman
Kullanici Avatari
Uzman
S.... U....
1.550
7
30/10/2008
814
Tekirdağ
Ofis XP
17/10/2017,17:32
Çözüldü 
Söylediğiniz gibi mesela raporda 20 sütun varsa
ve çapraz sorguda 20'den fazla sütun varsa,
benim önerebileceğim ve daha önce bir kez kullandığım bir metot var.

20. sütuna "Diğer" gibi bir isim atamak ve 19. sütundan sonraki alanlardaki tüm sütunları kodla toplamak ve bu alana yazdırmak.

Tabii rapora ve önemine göre kullanılabilir bu.


Bildiğini bilenin arkasından git, bildiğini bilmeyeni uyar, bilmediğini bilene öğret, bilmediğini bilmeyenden kaç.
Konfüçyüs
Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
Çözüldü Açılan İlişikli Kutular Rapor Alanında Sadece Sayı Olarak Gözüküyor whelkshell 8 322 10/10/2017, 14:36 ozanakkaya
Çözüldü Rapor Açılırken Yazıcı Ve Kağıt Boyutu Seçme burhanb 2 131 25/09/2017, 08:18 burhanb
Çözüldü Sql İle İlişkili Combobox Oluşturma tsots 8 344 09/09/2017, 04:13 ozanakkaya
Çözüldü Cari baş harfine göre firma kodu oluşturma hakkında Gokcen Akan 25 1.072 14/07/2017, 08:32 Gokcen Akan
Çözüldü Firma Cari Hesap Listesi Oluşturma Hk. ALTANs 2 211 09/06/2017, 12:16 ALTANs

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
Forum use Krzysztof "Supryk" Supryczynski addons.