Sayin hturkavci03 ;

Sayin jon206'un modul1 icindeki vba kodunu asagidaki gibi degistirip sonuca ulasabilirsiniz.

Public Function jn(VeriDz)
On Error Resume Next
Dim i As Integer, veri As String
veri = Replace(VeriDz, ", ", ",")
For i = 0 To UBound(Split(veri, ","))
z = z & Left(Trim(Split(veri, ",")(i)), 1) & IIf(InStr(1, Split(veri, ",")(i), " ", vbTextCompare) > 0, Mid(Split(veri, ",")(i), InStr(1, Split(veri, ",")(i), " ", vbTextCompare) + 1, 1), Null) & "."
Next
z = Left(z, Len(z) - 2)
jn = z
End Function

Sayın dsezgin83260, bu sefer de Serbest Yüzme = SY. olurken, Basketbol = BY. oldu. Sinema = SY. oldu. İlk hobinin ikinci kelimesinin baş harfi tekrarlanıyor sanırım. Sorgu sonucu aşağıdaki gibidir.

Hobileri
Serbest Yüzme, Basketbol, Sinema, SY.BY.SY.

Kaç tane daha sorun çıkaracağım bilemiyorum ama umarım bu son olur. Örnekteki NOTLAR isimli rapor açıldığında üyeliği devam eden üyeleri listeliyor ve kişiler hakkında Not alanına yazılmış küçük notlar da listeleniyor. Yapmak istediğim rapor açıldığında not alanına not yazılmış satırlar yukarıdan aşağıya Not 1, Not 2 şeklinde isim alarak numaralanarak sıralansın ve bunların karşılıkları sayfanın sonunda 1, 2 şeklinde içerikleri raporlansın. Örnek ve olması gereken halini gösteren resim ektedir.

(23-07-2013, 22:47)hturkavci03 demiş ki: Sorgu sonucu aşağıdaki gibidir.
Hobileri
Serbest Yüzme, Basketbol, Sinema, SY.BY.SY.

Sayin jon206 vba kodunu degistirdik.

Sayın dsezgin83260, olay budur, çok teşekkür ederim. Tüm aramalarıma rağmen modülde, sorguda veya tablonun hobileri alanı özelliklerinde bir değişiklik bulamadım. Ne değişti ki durum düzeldi.

Son olarak 27. mesajımdaki sorunumu hala çözemedim. Raporda üye bitiş tarihi boş satırlara istediğim kelimeyi (Sayın Taruz'un öğretisi ile) yazdırıyorum ancak not 1, not 2, not 3, ..... şeklinde yapamıyorum tabi sayfa sonuna da aynı sırayı 1, 2, 3, ..... şeklinde içerik açıklamalarıyla listeleyemedim.

sayın dsezgin83260 tşk.ler çözümü için;

bende şu şekilde sonuca ulaştım alternatifler iyidir.. uygulanmış hali ektedir..