+- 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ığı: Raporda Alt Alta Çıkan Verileri Bir Kutu İçinde Yanyana Yadırmak (/konu-raporda-alt-alta-cikan-verileri-bir-kutu-icinde-yanyana-yadirmak.html)
Sayfalar:
1
2
Raporda Alt Alta Çıkan Verileri Bir Kutu İçinde Yanyana Yadırmak - can1975m - 27/09/2022
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..
RE: Raporda Alt Alta Çıkan Verileri Bir Kutu İçinde Yanyana Yadırmak - berduş - 27/09/2022
nerede yan yana yazacak?
raporda mı?
RE: Raporda Alt Alta Çıkan Verileri Bir Kutu İçinde Yanyana Yadırmak - can1975m - 28/09/2022
Evet hocam raporda yan yana yazdırmak istiyorum.
Re: Raporda Alt Alta Çıkan Verileri Bir Kutu İçinde Yanyana Yadırmak - berduş - 28/09/2022
ö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 FunctionSELECT xYanYana([Formlar]![Giris Çıkış]![Parti No]) AS [Bidon No]
FROM [Bidon Zimmet]
GROUP BY xYanYana([Formlar]![Giris Çıkış]![Parti No]), [Bidon Zimmet].parti_no; RE: Raporda Alt Alta Çıkan Verileri Bir Kutu İçinde Yanyana Yadırmak - can1975m - 28/09/2022
(28/09/2022, 10:25)berduş yazdı: önce çalışmanıza bir modül ekleyip aşağıdaki fonksiyonu yazın
daha sonra da raporunuzun kayıt kaynağını aşağıdaki kodla değiştirinPublic 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
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.
RE: Raporda Alt Alta Çıkan Verileri Bir Kutu İçinde Yanyana Yadırmak - berduş - 28/09/2022
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