Kayıt Tarihi: 27.11.2019
Toplam 73 konu açtı.
Toplam 291 yorum yaptı.
Toplam
12
puanı bulunmakta.
Mevcut Office Sürümü:
Office 2013,
Office 2016,
Office 2019,
Beğeniler: 13 / 3
Selamlar;
Birden fazla alandaki veriyi sorguda alt alta nasıl birleştirebilirim. Ama bunu yaparken boş olan alandaki veri es geçecek. Ekte örnek tablo paylaştım. Tabloda sonuc diye bir alan açtım. Orada yapmak istediğim sonucu da gösterdim. Ama bunu sorguda yapmak istiyorum. Nasıl yapabilirim?
Şimdiden teşekkürler.
Eklenti Dosyaları
deneme1.rar (Boyut: 16,33 KB / İndirilme: 9)
Kayıt Tarihi: 24.03.2013
Toplam 23 konu açtı.
Toplam 8.495 yorum yaptı.
Toplam
816
puanı bulunmakta.
Mevcut Office Sürümü:
Office 2013,
Beğeniler: 40 / 181
Visual Basic
Public Function Son( V1, V2, V3, V4) As String
Dim Sayac As Long , AltAlta, Dsz As String
For Sayac = 1 To 4
Dsz = IIf( Sayac = 1, Nz ( V1, "| "), IIf( Sayac = 2, Nz ( V2, "| "), IIf( Sayac = 3, Nz ( V3, "| "), Nz ( V4, "| "))))
AltAlta = AltAlta & IIf( Dsz <> "", Dsz & vbNewLine , vbNullString)
Next Sayac
Son = Replace ( AltAlta, "| " & vbNewLine , vbNullString)
End Function
SQL
SELECT t_veri. deger1, t_veri. deger2, t_veri. deger3, t_veri. deger4, t_veri. sonuc, Son( [ deger1] , [ deger2] , [ deger3] , [ deger4] ) AS AltAlta
FROM t_veri;
Kayıt Tarihi: 27.11.2019
Toplam 73 konu açtı.
Toplam 291 yorum yaptı.
Toplam
12
puanı bulunmakta.
Mevcut Office Sürümü:
Office 2013,
Office 2016,
Office 2019,
Beğeniler: 13 / 3
(14-11-2023, 00:54) dsezgin demiş ki: Visual Basic
Public Function Son( V1, V2, V3, V4) As String
Dim Sayac As Long , AltAlta, Dsz As String
For Sayac = 1 To 4
Dsz = IIf( Sayac = 1, Nz ( V1, "| "), IIf( Sayac = 2, Nz ( V2, "| "), IIf( Sayac = 3, Nz ( V3, "| "), Nz ( V4, "| "))))
AltAlta = AltAlta & IIf( Dsz <> "", Dsz & vbNewLine , vbNullString)
Next Sayac
Son = Replace ( AltAlta, "| " & vbNewLine , vbNullString)
End Function
Visual Basic
SELECT t_veri. deger1, t_veri. deger2, t_veri. deger3, t_veri. deger4, t_veri. sonuc, Son( [deger1], [deger2], [deger3], [deger4]) AS AltAlta
FROM t_veri;
Hocam forumdaki samimi faydanıza çok çok teşekkür ederim. Ellerinize ve emeğinize sağlık.
Spesifik sorular sormaya ve herkesin faydasına olacak şekilde sormaya gayret ediyorum.
Ve sizlerde bu gayretin ötesinde ilginizle bu soruları cevaplıyorsunuz. Gönülden teşekkür ederim.
Kayıt Tarihi: 24.03.2013
Toplam 23 konu açtı.
Toplam 8.495 yorum yaptı.
Toplam
816
puanı bulunmakta.
Mevcut Office Sürümü:
Office 2013,
Beğeniler: 40 / 181
(18-11-2023, 02:49) adnnfrm demiş ki: Spesifik sorular sormaya ve herkesin faydasına olacak şekilde sormaya gayret ediyorum.
Sn adnnfrm, rica ederim. Paylaşımın birilerine faydası olsun, niyetiyle öneri sunmaktayız.