+- 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ığı: Çapraz Sorgudan Alınan Veriler (/konu-capraz-sorgudan-alinan-veriler.html)
Cvp: forma çapraz sorgudan alınan veriler - karaayhan - 02/11/2008
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..
Cvp: forma çapraz sorgudan alınan veriler - syrup - 03/11/2008
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
Cvp: forma çapraz sorgudan alınan veriler - esrefigit - 03/11/2008
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.
Cvp: forma çapraz sorgudan alınan veriler - esrefigit - 03/11/2008
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
Cvp: forma çapraz sorgudan alınan veriler - Bilgisayarcı - 03/11/2008
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!
Cvp: forma çapraz sorgudan alınan veriler - syrup - 03/11/2008
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
ama benim örnekte çok güzel oldu be
ayhan bak bilgisayarcının fikride benim kafama yattı. dene bence.
güzel fikir jimnastiği oluyor.