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..
Çapraz Sorgudan Alınan Veriler
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
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
Son Düzenleme: 03/11/2008, 02:43, Düzenleyen: syrup.
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.
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
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
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!
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!
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.
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.
Konuyu Okuyanlar: 1 Ziyaretçi