A family of Microsoft relational database management systems designed for ease of use.
Try this:
SELECT Table1.Material
, [Material] Like '*-P*' AS IsCandidate
, InStr([Material],'-P') AS TrimStart
, Left$([Material],IIf(InStr([Material],'-P')>0,InStr([Material],'-P')-1,Len([Material]))) AS Result
FROM Table1;