Sayın @berduş hocamın verdiği kodu kullanarak aşağıdaki şekilde iki aşamalı bir sorguyla sanırım sorunuza cevap bulunabilir.

Function TcAl(Mtn As String) As String

On Error Resume Next

 Mtn = Trim(Mtn)

xBas = InStr(Mtn, ("/ T"))

TcAl = Left(Mtn, xBas - 1)

End Function

'_______________________________

Function TcAl1(Mtn As String) As String

On Error Resume Next

 Mtn = Trim(Mtn)

xBas = InStr(Mtn, ("/ T"))

TcAl1 = Left(Mtn, xBas)

End Function

'_______________________

Private Sub degistir()

DoCmd.RunSQL "UPDATE Tablo1 SET Tablo1.meslek = TcAl([Tablo1]![bilgiler]);"

DoCmd.RunSQL "Update Tablo1 SET Bilgiler = REPLACE(bilgiler, TcAl1([Tablo1]![bilgiler]),'' ) WHERE Kimlik = [Kimlik];"

End Sub