تفضل بالتوفيق
استعلام تحديث
UPDATE tbbook
SET mookname = Trim(Left([mookname], InStr(1, [mookname], "/") - 1))
WHERE InStr(1, [mookname], "/") > 0;
تشغيله من نموذج
DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE tbbook SET mookname = Trim(Left([mookname],InStr(1,[mookname],""/"")-1)) " & vbCrLf & _
"WHERE InStr(1,[mookname],""/"")>0;"
DoCmd.SetWarnings True
library.accdb