Kod:
DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE KEFIL SET KEFIL.MESLEGI = Mid([ADSOYAD],InStr(1,[ADSOYAD],""("")+1), KEFIL.ADSOYAD = Left([ADSOYAD],InStr(1,[ADSOYAD],""("")-1); ", -1
DoCmd.SetWarnings True
DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE KEFIL SET KEFIL.MESLEGI = Mid([ADSOYAD],InStr(1,[ADSOYAD],""("")+1), KEFIL.ADSOYAD = Left([ADSOYAD],InStr(1,[ADSOYAD],""("")-1); ", -1
DoCmd.SetWarnings True