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..
nerede yan yana yazacak?
raporda mı?
Evet hocam raporda yan yana yazdırmak istiyorum.
ö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;
(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.
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