区切り文字列を含む列の各項目に重複行を作成します。

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であり、誰のために、私は人々が実際に役立つだけではなくマーキングでしょう望んでいるだろう質問の尋ね方を修正することができます。