Skip to main content

AccessTr.neT


yanyana yazdırma sorunu

yanyana yazdırma sorunu

#19
Ben 2003 kullanıyorum.
o yüzden açamadım.
modülü akşam ekliyeyim. belki işine yarar.
husem, proud to be a member of AccessTr.neT since 08-03-2009.
Cevapla
#20
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.
İnadına, ille de Accesstr.net...
Cevapla
#21
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....
husem, proud to be a member of AccessTr.neT since 08-03-2009.
Cevapla
#22
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.
.rar YANYANA YAZ.rar (Dosya Boyutu: 36,3 KB | İndirme Sayısı: 17)
İnadına, ille de Accesstr.net...
Cevapla
#23
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])
husem, proud to be a member of AccessTr.neT since 08-03-2009.
Cevapla
#24
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?
Hayat bu
ölsende yaşamaya mecbursun!
UNUTMA!!!



(hafta sonu mesai olmadığından mesajlardaki çözümleri ancak hafta içi uygulayabiliyorum)
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da