A family of Microsoft relational database management systems designed for ease of use.
UPDATE YourTable
SET YourField = Trim(Left([YourTable].[YourField],Instr(1,[YourTable].[YourField],"-")-1))
WHERE YourField Like "*-*"
The expression you need to put in the Update to is
Trim(Left([YourTable].[YourField],Instr(1,[YourTable].[YourField],"-")-1))
The criteria is
Like "*-*"
John Spencer Access MVP 2002-2005, 2007-2010 The Hilltop Institute University of Maryland Baltimore County