Option Compare Database

Public Function İsimEkiniBul(geçici2 As String)

    Dim i As Integer

    For i = 1 To 3

        İsimEkiniBul = UCase(Left(Right(Trim(geçici2), i), 1))

        If InStr(1, "AIEİOUÖÜ", İsimEkiniBul) Then Exit For

    Next i

    If Asc(İsimEkiniBul) = 253 Or Asc(İsimEkiniBul) = 73 Then

      geçici2 = "ı"

    Else

      Select Case İsimEkiniBul

        Case "E", "İ": geçici2 = "i"

        Case "O", "U": geçici2 = "u"

        Case "Ö", "Ü": geçici2 = "ü"

        Case Else: geçici2 = "ı"

      End Select

    End If

    İsimEkiniBul = "'n" & geçici2 & "n"

    If i > 1 Then İsimEkiniBul = "'" & geçici2 & "n"

End Function

kullanımı ise;
İsimEkiniBul([Soyadı])