AccessTr.neT

Tam Versiyon: Tablodaki Alanın İçimdeki Değerin Baş Harflerini Almak.
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2
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.
Split(metin, " ") komutuyla metni bölüp ilk harflerini alabilirsiniz
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
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?
Hocam raporda alan kalmadı. Son haliyle şöyle diyeyim. M.M.v.T.A.L şeklinde olması gerekImg-cray
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
Sayfalar: 1 2