Erstellen Sie doppelte Zeile für jedes Element in der Spalte mit Trennzeichenfolge

Question

Ich habe eine Tabelle mit einer Spalte, die durch Semikolons getrennte Zeitblöcke (;) speichert. Ich möchte eine Zeile für jeden Zeitblock erstellen, beispielsweise gegeben

Ich möchte eine Zeile für jeden Zeitblock

Bitte lassen Sie mich wissen erstellen wenn dies in Access möglich ist.

bearbeiten

Ich habe versucht, diese Abfrage

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; 

mit und ich habe auch versucht, diese VBA-Code ohne Glück.

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

die Antwort hier gefunden [link Beschreibung hier eintragen] [1]

[1]: http://www.access-programmers.co.uk/forums/showthread.php?t=239727 für jeden, der die gleichen Anforderungen haben b können, würde ich die Menschen tatsächlich und nicht nur helfen, hoffen würde Markierung nach unten Antworten oder Korrektur der Art, wie die Frage gestellt wird.