Merhaba, modüle aşağıdaki kodu ekle.

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

Alttaki kodu da sorgunun Sql kaynağına ekle. Sorguyu çalıştırdığında tablodaki alan güncellenir.

UPDATE Tablo1 SET dogum_yili = Left(Right(SplitVeriBul([kisi],2),8),4);