aşağıdaki fonksiyonları modüle ekleyip güncelleme için MslkGuncelle yordamını çağırmayı dener misiniz?
Sub MslkGuncelle()
CurrentDb.Execute "UPDATE Tablo1 SET Tablo1.meslek = MeslekAl([Tablo1]![bilgiler]), Tablo1.bilgiler = KAlan([Tablo1]![bilgiler]);"
End Sub
'_______________________________
Function MeslekAl(Mtn As String) As String
MeslekAl = ""
SonH = InStr(Mtn, "/")
If SonH > 0 Then MeslekAl = Left(Mtn, SonH - 1)
End Function
'_______________________________
Function KAlan(Mtn As String) As String
SonH = InStr(Mtn, "/")
KAlan = Trim(Mid(Mtn, SonH + 1))
End Function