Microsoft Access 掲示板

Microsoft Access 掲示板

テーブルにある１つのフィールドを＞区切りで別テーブルにしたい。 / 2

5 コメント
views
4 フォロー
2
hatena 2022/11/05 (土) 00:18:14

下記でどうでしょう。

Public Sub SplitRecord()
    Dim rs1 As DAO.Recordset, rs2 As DAO.Recordset
    Set rs1 = CurrentDb.OpenRecordset("テーブル1", dbOpenForwardOnly, dbReadOnly)
    Set rs2 = CurrentDb.OpenRecordset("テーブル2", dbOpenTable, dbAppendOnly)
    
    Dim ary As Variant, i As Long
    Do Until rs1.EOF
        ary = Split(rs1!タグ, vbCrLf)
        For i = 0 To UBound(ary)
            rs2.AddNew
            rs2!カッコリスト.Value = ary(i)
            rs2.Update
        Next
        rs1.MoveNext
    Loop
    
    rs1.Close
    rs2.Close
End Sub
通報 ...
  • 5
    laa 2022/11/07 (月) 09:24:56 36e20@ebc24 >> 2

    hatena様
    大変お世話になっています。
    無事思っていたようにテーブルにカッコリストを作る事が出来ました。

    いつも丁寧にお教えいただき本当に感謝しています。
    ありがとうございます。