yanyana yazdırma sorunu

1 2 3 4 5
11/08/2014, 15:01

husem

Ben 2003 kullanıyorum.
o yüzden açamadım.
modülü akşam ekliyeyim. belki işine yarar.
11/08/2014, 15:42

mehmetdemiral

Bahsettiğiniz fonksiyonel durum sayın kadirdursun'un örneğinde var zaten. Ama ölçüt giremediği için tablodaki tüm satırlar geliyordu. Önce bir sorgu yapıp filtreli almak istediğimde de hata veriyordu. Bu nedenle çok da pratik olmayan bir yöntem kullandım. Yöntemin sıkıntısı, modüldeki tablo alanlarının değişken olmaması. Onu da fırsat bulursam çözmeye çalışacağım.
11/08/2014, 16:07

husem

sn üstadım,
ben dosyayı açamadığım için tam olarak bilmiyorum.
ölçüt olmazsa zaten benim bahsettiğim fonksiyon da bir işe yaramaz
çünkü ben sipariş kaydı yapıyorum,
bu siparişe ait ek işlem varsa ek işlemleri farklı bir tabloya kayıt yapıyorum, referans sipariş no.
raporda da sipariş noyu referans alarak hangi metin kutusuna yanyana gelmesi gerekiyor ise metin kutusu satır kaynağına formülü giriyorum,

Sn mehmetdemiral, çalışmalarınızda başarılar dilerim, örnek çalışmalarınızı inceliyorum, kendi çalışmalarıma da uyguluyorum, teşekkürler, kolay gelsin....
11/08/2014, 17:01

mehmetdemiral

Bu arada bir altforma getireceğiniz ve sorguyla filtrelenmiş verilerinizi bir metin kutusunda yanyana getirebilirsiniz. Bunun için bir döngüyle altformdaki tüm kayıtları gezdirip her bir kaydı metin kutusuna gönderebilirsiniz. Bunun için veriyi gönderirken

metinkutusu= mevcut veri & yeni veri


biçiminde yazmalısınız.
Size bir örnek hazırladım aşağıya. 2003 ile de açabilirsiniz. Onu inceleyin. Sanırım size uygun bir çözümdür.
12/08/2014, 02:04

husem

benim kullandığım fonksiyon
Public Function Yan_Yana(SORGU As String)

Dim rs As New Recordset

rs.Open SORGU, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
Yan_Yana = ""
i = 0

While Not rs.EOF
For Each Alan_Veri In rs.Fields
i = i + 1
If i = 1 Then
Yan_Yana = Alan_Veri.Value
Else
Yan_Yana = Trim(Yan_Yana) & " - " & Alan_Veri.Value
End If
Next
rs.MoveNext
Wend
rs.Close
Set rs = Nothing

Yan_Yana = Trim(Yan_Yana)

End Function


raporda metin kutusuna aşağıdakini yazıyorum, sipariş no rapordaki birmetin kutusu, aaa ise buda rapordaki bir metin kutusu.

=Yan_yana("SELECT EK_ISLEM_KISALTMA FROM EK_ISLEMLER WHERE SIPARIS_NO=" & [AAA])
12/08/2014, 08:00

kadirdursun

Sayın mehmetdemiral;
Örneğinizi açınca açılan kutu4 ile ilgili bir hata çıkıyor.

"Enter parametre value" yazan ve değer bekleyen bir kutu geliyor.


Sayın husem;
Kodu uyguladım fakat çalışmadı. 1. mesajda bulunan örneğime uygulayabilir misiniz?
1 2 3 4 5