Thanks for the guidance Micron. I'm able to understand the code from databasedev.co but for some reason or another my edits cause the code to concatenate. The data is inserted into one field instead of 3. I'm still working on it, but if you see something in my version of the code that catches your attention, please let me know.
Code:
Private Sub RawMaterial_NotInList(NewData As String, Response As Integer)
' This procedure allows us to create a new value, using the NotInList event
' It passes multiple field values to the table.
Dim strSQL
Dim NewData1 As String
Dim NewData2 As String
Dim SpacePosition As Integer
Dim lngNextID As Long
' Find the highest Actor ID in the Actors table and add 1
lngNextID = DMax("[BID]", "tbl_BulkItems") + 1
NewID = lngNextID
' Find the space in the two fields
' to allow us to split the entry into two fields.
SpacePosition = InStr(NewData, "-")
' Trim the data into first and last name using the space position.
NewData1 = Trim(Left(NewData, SpacePosition - 1))
NewData2 = Trim(Mid(NewData, SpacePosition + 1))
' If new entry includes First and Last Names create new Actor record
' if the new entry does not exist.
strSQL = "Insert Into tbl_BulkItems ([BID], [Item], [Descr]) " & _
"values ('" & NewID & "','" & NewData1 & _
"','" & NewData2 & "');"
CurrentDb.Execute strSQL, dbFailOnError
Response = acDataErrAdded
End Sub