basic string manipulation

[trevor40]

Hi all,


A simple one here, i have several strings of employee names, they are first name and last name this is combined with an underscore inbetween them no spaces. eg trevor_smith.
i need to extract both parts of the name only without the underscore, first name into a text box and last name into another text box.
i am shure this is very simple but i don't have much exp in string manipulation and i am out of time with this db design.

hope you can help.

[June7]

Left([fieldname], InStr([fieldname],"_")-1)

Mid([fieldname], InStr([fieldname],"_")+1)

http://www.databasedev.co.uk/access-...functions.html

https://msdn.microsoft.com/en-us/library/dd789093.aspx

[trevor40]

Left([fieldname], InStr([fieldname],"_")-1)

Mid([fieldname], InStr([fieldname],"_")+1)

http://www.databasedev.co.uk/access-...functions.html

https://msdn.microsoft.com/en-us/library/dd789093.aspx

thanks but in the mean time i did this, all to convert the sheet name into seperate first and last names and put the result in cells

Current_Worksheet.Range("Q1").Value = Excel_Workbook.Worksheets(sheet_count).Name
Current_Worksheet.Range("R1").Formula = "=Left(Q1, (Find(""_"", Q1) - 1))"
Current_Worksheet.Range("S1").Formula = "=Len(Left(Q1,(Find(""_"", Q1))+1))"
Current_Worksheet.Range("T1").Formula = "=MID(Q1,S1,100)"
Current_Worksheet.Range("G1").Value = Current_Worksheet.Range("R1").Value
Current_Worksheet.Range("M1").Value = Current_Worksheet.Range("T1").Value