I have a database of plants and wish to generate a code through a query for each plant by identifying the first 2 letters of the first name, first letter of the second name. That is the easy part.
PlantCode: Left([Plant_Name],2) & IIf(InStr(1,[Plant_Name],"
")<>0,"") & Mid([Plant_Name],InStr(1,[Plant_Name]," ")+1,1)
I then need to find the First letter of the 3rd and 4th names if they exist ignoring either the apostrophe or quotation marks.
An example of the list is below
ACER PALMATUM ATROPUREUM
ACER PALMATUM BEN OTAKI
ACER PALMATUM BLOODGOOD
ACER PALMATUM ‘BURGUNDY LACE’
ACER PALMATUM CRIMSON KING
ACER PALMATUM DISS VIRIDIS
ACER PALMATUM ‘DISS. VIRIDIS’
ACER PALMATUM FIREGLOW
ACER PALMATUM KATSURA
ACER PALMATUM MIRTE