爲包含分隔字符串的列中的每個項目創建重複行

Question

我有一個表格，其中存儲了用分號分隔的時間塊（;）。我想創建一個行，每次塊，例如，給予

我想創建一個行，每次塊

請讓我知道如果這可能在Access中。

編輯

我嘗試使用此查詢

SELECT * INTO ImportedData 
FROM (
    SELECT [SourceData].[Time block], [SourceData].[Work History Id],[SourceData].[Operation Code] 
    FROM SourceData 
    WHERE InStr([SourceData].[Time block], ';') = 0 
    UNION ALL 
    SELECT Left([SourceData].[Time block], InStr([SourceData].[Time block], ';') - 1),[SourceData].[Work History Id], [SourceData].[Operation Code] 
    FROM SourceData 
    WHERE InStr([SourceData].[Time block], ';') > 0 
    UNION ALL 
    SELECT Mid([SourceData].[Time block], InStr([SourceData].[Time block], ';') + 1), [SourceData].[Work History Id], [SourceData].[Operation Code] 
    FROM SourceData 
    WHERE InStr([SourceData].[Time block], ';') > 0) AS CleanedUp; 

，我也試過這個VBA代碼，沒有運氣。

Public Sub addToTable() 
    Dim rstObj As DAO.Recordset, dbObj As DAO.Database 
    Dim InsertSQL As String 
    Set dbObj = CurrentDb() 
    Set rstObj = dbObj.OpenRecordset("Query1") 
    Do While Not rstObj.EOF 
     Dim memArr() As String 
     memArr = Split(rstObj.Fields("Time block"), ",") 
     For i = 0 To UBound(memArr) 
      InsertSQL = "SELECT*INTO ImportedData(Time block, Work History ID) VALUES(""" & rstObj.Fields("Time block") & """, """ & memArr(i) & """)" 
      DoCmd.RunSQL (InsertSQL) 
     Next 
     rstObj.MoveNext 
    Loop 
End Sub 

Answer 1

在這裏找到答案[此處輸入鏈接的描述] [1]

[1]：http://www.access-programmers.co.uk/forums/showthread.php?t=239727的人，可能B有相同的要求，我希望人們會真正幫助，而不是僅僅標記下來回答​​或糾正提問的方式。