Skip to main content

AccessTr.neT


Raporda Alt Alta Çıkan Verileri Bir Kutu İçinde Yanyana Yadırmak

Raporda Alt Alta Çıkan Verileri Bir Kutu İçinde Yanyana Yadırmak

Çözüldü #1
Arkadaşlarım ve abilerim
Aşağıda ekte koyduğum programın form teslim fişi butonuna bastığımızda raporda alt alta çıkan verileri bir metin kutusu içinde aralarına tire "-" koyarak yan yana yazdırmak istiyorum yardım ederseniz çok memnun olurum..
.rar TESLIMFISI.rar (Dosya Boyutu: 24,47 KB | İndirme Sayısı: 7)
Son Düzenleme: 28/09/2022, 08:13, Düzenleyen: can1975m.
Cevapla
#2
nerede yan yana yazacak?
raporda mı?
Cevapla
#3
Evet hocam raporda yan yana yazdırmak istiyorum.
Cevapla
#4
önce çalışmanıza bir modül ekleyip aşağıdaki fonksiyonu yazın
Public Function xYanYana(xPartiNo As Long) As String
xYanYana = ""
xAyrac = " - "
xSQL = "SELECT  [Bidon Zimmet].[Bidon No] " & _
      "FROM [Bidon Zimmet] " & _
      "WHERE ((([Bidon Zimmet].parti_no)=" & xPartiNo & "));"

Set rs = CreateObject("adodb.recordset")
    rs.Open xSQL, CurrentProject.Connection, 3, 1
xYanYana = rs.Getstring(, , , xAyrac, "")
lnYan = Len(xYanYana & "")
lnAyr = Len(xAyrac & "")
xYanYana = Left(xYanYana, lnYan - lnAyr)
End Function
daha sonra da raporunuzun kayıt kaynağını aşağıdaki kodla değiştirin
SELECT xYanYana([Formlar]![Giris Çıkış]![Parti No]) AS [Bidon No] 
FROM [Bidon Zimmet]
GROUP BY xYanYana([Formlar]![Giris Çıkış]![Parti No]), [Bidon Zimmet].parti_no; 
Cevapla
#5
(28/09/2022, 10:25)berduş yazdı: önce çalışmanıza bir modül ekleyip aşağıdaki fonksiyonu yazın
Public Function xYanYana(xPartiNo As Long) As String
xYanYana = ""
xAyrac = " - "
xSQL = "SELECT  [Bidon Zimmet].[Bidon No] " & _
      "FROM [Bidon Zimmet] " & _
      "WHERE ((([Bidon Zimmet].parti_no)=" & xPartiNo & "));"

Set rs = CreateObject("adodb.recordset")
    rs.Open xSQL, CurrentProject.Connection, 3, 1
xYanYana = rs.Getstring(, , , xAyrac, "")
lnYan = Len(xYanYana & "")
lnAyr = Len(xAyrac & "")
xYanYana = Left(xYanYana, lnYan - lnAyr)
End Function
daha sonra da raporunuzun kayıt kaynağını aşağıdaki kodla değiştirin
SELECT xYanYana([Formlar]![Giris Çıkış]![Parti No]) AS [Bidon No] 
FROM [Bidon Zimmet]
GROUP BY xYanYana([Formlar]![Giris Çıkış]![Parti No]), [Bidon Zimmet].parti_no; 

hocam çok özür dilerim sizi uğraştırıyorum ama, eklediğim dosyada düzeltip ekleyebilirmisiniz? Çok teşekkür ederim.
Cevapla
#6
inanın bana doğrudan dosyanızı eklemek bunları yazmaktan daha kolay ama o durumda sizin elinizde hazır dosya olacağından anlamayacaksınız
oysa yönergeleri dikkatlice okursanız hem öğrenmiş de olacaksınız
o nedenle yönergeleri dikkatlice okuyun anlamadığınız kısmı sorun açıklayalım
yine de olmazsa dosyayı eklerim ama önce kendiniz uygulamaya çalışın
iyi çalışmalar
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da