Skip to main content

AccessTr.neT


Çapraz Sorgudan Alınan Veriler

Çapraz Sorgudan Alınan Veriler

Çözüldü #7
sayın esrefigit,
bu çözüm mü, yoksa soru mu?
yani hiç bir şey değişmemiş ben sizin örnek kodunuzu ekledim ki hata nerede çözümsüzlük söz konusu diye siz hiç bir şeyi değiştirmeden eklemişiniz yani yeni bir il ekliyorum ama sonuç =0

hala baştayız yani ilerleme yok bu konuda


lütfen help..
Çözüldü #8
ayhan merhaba. önerimi dikkate değer bulmadın galiba.;) tranformqueryiler başlı başına bir sorundur zaten. ben şahsen bu durumda subqery kullanıyorum. görsel gücü zayıf kalıyor tabi.

dediğim gibi bunlar özellikle reportlarda dinamik yapı isterler. uğraştırırlar adamı.senin çalışman üzerinde küçük bir deneme yaptım bir incele. beğenirsen beğeninini sevdiklerine, şikayetini bize söyle ama Img-grin
.rar syrup.rar (Dosya Boyutu: 38,22 KB | İndirme Sayısı: 40)
[Resim: image.php?s=df028e861d094075be82dfc55ca1...1225646923][Resim: mousey.gif]
Son Düzenleme: 03/11/2008, 02:43, Düzenleyen: syrup.
Çözüldü #9
sayın karaayhan rapor create edilirken bütün alanlar üstüste geldiğinden siz tek bir alan varmış gibi görüyorsunuz resimdeki gibi tutar kenara çekerseniz bütün alanların eklendiğini görürsünüz burdaki kutuların ve etiketlerişn raporda nereye hagi uzaklık ve boşluğa yerleşeceiği +10 veya + 100 gibi bir her alan eklenmesinde aratarak giderse düzelir

Option Compare Database

Dim ctlLabel As Control, ctlText As Control
Dim intDataX As Integer, intDataY As Integer
Dim intLabelX As Integer, intLabelY As Integer
Dim rst As New ADODB.Recordset
Dim fld As ADODB.Field




Sub yenicontroller()


intLabelY = 0

intDataY = 0

rst.Open "Tablo1_Çapraz", CurrentProject.Connection, adOpenKeyset, adLockOptimistic



DoCmd.OpenReport "Rapor1", acViewDesign

For Each fld In rst.Fields

intLabelY = intLabelY + 1700

intDataY = intDataY + 1700

Set ctlText = CreateReportControl("Rapor1", acTextBox, , fld.Name, fld.Name, _
intDataY, 0)

Set ctlLabel = CreateReportControl("Rapor1", acLabel, acPageHeader, , fld.Name, intLabelY, 0, 5, 5)

Next fld
DoCmd.Restore

DoCmd.OpenReport "Rapor1", acViewPreview


End Sub


bu şekilde bir miktar daha düzeltilmiş hali diğer metin kutularının vs vs çizgilerinin görünmesi metin kutularının içindeki verilerin sola yaslanması işi rapor açıldıktan sonra rapordaki bütün kontrolleri bul ve sola yasla şeklinde olacak sana gönderdiğim örneğin modülünü bununla değiştir.
meşhur çin atasözü  "ACCESS İLE YAPABİLECEKLERİNİZ HAYAL EDEBİLECEKLERİNİZ İLE SINIRLIDIR" siz ne kadar hayal edebiliyorsunuz
Çözüldü #10
sayın syrup dediğiniz gibi alan sayısı 14 ile sınırlı olsa fakat alan değerleri değişken olsa sizin yolunuzdan başka bir yol yoktur ancak benzeri olabilir ancak burda bahsedilen sınırsız demiyeyim yurt dışındaki illeri saymazsan 81 stun olacağı için ya her seferinde raporu yeniden yapacaksın bu kkod ile veya elle yada aklıma bir şey geliyor ama üzerinde çalışmadım bir alt rapor ve tek alan olacak her kayıt çin alt rapor yeniden recordsource değişecek ve kayıt sayısına göre de alt raporun boyu uzayıp yada kısalacak yani anlayacağın fikir güzel ama yapacak babayiğit yok
meşhur çin atasözü  "ACCESS İLE YAPABİLECEKLERİNİZ HAYAL EDEBİLECEKLERİNİZ İLE SINIRLIDIR" siz ne kadar hayal edebiliyorsunuz
Çözüldü #11
Excele vermeyi deneseniz? İstediğiniz kadar alan ekleyin. Çıktı almak isteyen seçip alsın.

Hatta 14 tane alan eklenmişse alan sayısı kontrol edilsin 14'den fazla ise excele versin,daha aşağı ise açsın raporu...

Hatta madem bu kadar uğraşıldı 2 tane rapor tasarlansın yatay ve dikey olarak. Atıyorum alan sayısı 7 ise dikey olan 7-14 arası ise yatay daha büyükse bi uyarı arkasından excel.... Bence en temiz çözüm bu olur. Bu kadar da uğraşılmamış olur!
Çözüldü #12
selam arkadaşlar :img-grin:

bende dedim ayhana. ama illa böyle olsun diyor baksanıza :img-grin:
ben bir sayfaya sığacak kadar olması için 14 yaptım. isterse 81 isterse 100 yapsın. birazda ayhan uğraşsın Img-grin

ama benim örnekte çok güzel oldu be Rayof

ayhan bak bilgisayarcının fikride benim kafama yattı. dene bence.

güzel fikir jimnastiği oluyor.
[Resim: image.php?s=df028e861d094075be82dfc55ca1...1225646923][Resim: mousey.gif]

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task