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