try:
Code:
Public Sub ParseData2Tbl()
Dim vCode, vKey, vWord
Dim sSql As String
Dim rst
Dim i As Integer
DoCmd.SetWarnings False
sSql = "select * from tbl_xTPS"
Set rst = CurrentDb.OpenRecordset(sSql)
With rst
While Not .EOF
vKey = .Fields("Track_ID").Value & ""
vWord = .Fields("pSplit_IDs").Value & ""
i = InStr(vWord, ",")
While i > 0
vCode = Left(vWord, i - 1)
vWord = Mid(vWord, i + 1)
GoSub Add1Rec
Wend
GoSub Add1Rec 'add last key
.MoveNext
Wend
End With
set rst = nothing
DoCmd.SetWarnings True
DoCmd.OpenTable "tbl_PartySplit"
Exit Sub
Add1Rec:
sSql = "insert into tbl_PartySplit ([Track_ID], [pSplit_ID]) values (" & vKey & "," & vCode & ")"
DoCmd.RunSQL sSql
Return
End Sub