yanyana yazdırma sorunu - Baskı Önizleme +- 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ığı: yanyana yazdırma sorunu (/konu-yanyana-yazdirma-sorunu.html) |
Cvp: yanyana yazdırma sorunu - husem - 11/08/2014 Ben 2003 kullanıyorum. o yüzden açamadım. modülü akşam ekliyeyim. belki işine yarar. Cvp: yanyana yazdırma sorunu - mehmetdemiral - 11/08/2014 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. Cvp: yanyana yazdırma sorunu - husem - 11/08/2014 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.... Cvp: yanyana yazdırma sorunu - mehmetdemiral - 11/08/2014 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. Cvp: yanyana yazdırma sorunu - husem - 12/08/2014 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]) Cvp: yanyana yazdırma sorunu - kadirdursun - 12/08/2014 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? |