مساعدة في حذف جزء من النص

[ازهر عبد العزيز]

السلام عليكم

في الجدول tbbook  احتاج حذف النص في كافة الحقول  الموجود بعد العلامة  /   مثلا      book3 and f / كتاب1           يصبح    book3 and f

ملاحظة ارجو ان يكون الحذف مع العلامة 

library.accdb

[محمد احمد لطفى]

تفضل بالتوفيق 
استعلام تحديث

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

تم تعديل فبراير 10 بواسطه محمد احمد لطفى