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