Tablodaki Alanın İçimdeki Değerin Baş Harflerini Almak.

1 2
06/12/2021, 10:39

SeferŞANLI

Tablomda bulunan bir alan (okulu) alanında bulunan değerlerin baş harflerini nasıl alırım.

Örneğin

Ankara Fen Lisesi olan metini A.F.L yapmak istiyorum.

=Mid([okulu];39;Len([okulu]))
=Left([Metin353];1)

bunları kullanıyorum ama tek tek saydırmak zor oluyor. Alanda kaç kelime varsa sadece baş harflerini aralarına nokta koyarak almak istiyorum.
06/12/2021, 10:54

berduş

Split(metin, " ") komutuyla metni bölüp ilk harflerini alabilirsiniz
07/12/2021, 09:46

SeferŞANLI

Public Function SplitVeriBul(GVeri As String, GSayi) As Variant
On Error Resume Next
Dim var As Variant
var = Split(GVeri, " ", -1)
SplitVeriBul = var(GSayi)
End Function




SELECT SplitVeriBul([okulu],0) AS ilksayi, SplitVeriBul([okulu],1) AS ikincisayi, SplitVeriBul([okulu],2) AS ucuncucisayi, SplitVeriBul([okulu],3) AS drtsayi, SplitVeriBul([okulu],4) AS besayi, SplitVeriBul([okulu],5) AS alsayi, SplitVeriBul([okulu],6) AS yedsayi, ([ilksayi]) & ([ikincisayi]) & Left([ucuncucisayi],1) & Left([drtsayi],1) & Left([besayi],1) & Left([alsayi],1) & Left([yedsayi],1) AS birlestir
FROM Tblogrenci;


SAyın hocam böyle bir yöntemle yaptım ama, birleştirme kısmında sonucun şöyle olması lazım; ama yapamadım
veri: Mimarsinan Meslek ve Teknik Anadolu Lisesi diyelim
sonuç:Mimarsinan M.T.A.L olması lazım
07/12/2021, 10:38

berduş

ilk mesajınızda sadece ilk harfleri almaktan bahsetmiştiniz ama son mesajınızda Mimarsinan kısmının hepsi alınmış. hangisi olacak?
07/12/2021, 10:43

SeferŞANLI

Hocam raporda alan kalmadı. Son haliyle şöyle diyeyim. M.M.v.T.A.L şeklinde olması gerek
07/12/2021, 11:35

berduş

fonksiyonu aşağıdaki gibi düzenleyip
Function IlkHrf(xOkul As String) As String
If Len(xOkul & "") = 0 Then Exit Function
Dim Dz As Variant
xOkul = Trim(xOkul)'<---Eklenen
Dz = Split(xOkul, " ")
  For Each Itm In Dz
      IlkHrf = IlkHrf & "." & Left(Itm, 1)
  Next Itm
IlkHrf = Mid(IlkHrf, 2)
End Function
sorgu kodunu da aşağıdaki gibi
SELECT IlkHrf([okulu] & "") AS Okul
FROM TbLogrenci;


fazladan boşlukları silme kodunu eklememişim onu ekledim
1 2