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