特定の文字列で列を区切るには？

質問

Ａｃｃｅｓｓ２００３を使用しています。

列Aに以下のような値があります。

列A
1111-222
3333-444-55
6666-777-88-99

これをハイフン毎に列を分けて以下のような形に整形したいのです。

列Ｂ 　 ｜列Ｃ 　 ｜列Ｄ　　｜列Ｅ
1111　 ｜222 　 ｜　　　　 ｜
3333　 ｜444　　｜55　　　｜
6666　 ｜777　　｜88　　　｜　99

クエリなどで一発で実行できるコマンド等があればご教示いただきたく思います。
説明下手ですみませんが、よろしくお願いします。

回答No.5

nicotinism · ベストアンサー

クエリで出来るのかな？出来たとしても難解なものになるのでは？
あの御方なら可能かもしれません・・
直感的に分かりやすいレコードセットを操作する方に決定
説明は最後に
'------------------------------------------------------
Const tblName = "T1"　'操作したいテーブル名の定数

Function getColCount() As Long　'最大の分割数取得
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim t As Long

　　Set db = CurrentDb
　　Set rs = db.OpenRecordset(tblName, dbOpenSnapshot)

　　If rs.EOF = False Then
　　　　t = UBound(Split(rs!F1, "-"))
　　　　Do Until rs.EOF
　　　　　　If getColCount < t Then
　　　　　　　　getColCount = t
　　　　　　End If
　　　　　　rs.MoveNext
　　　　Loop
　　End If

　　getColCount = getColCount + 1
　　rs.Close: Set rs = Nothing
　　db.Close: Set db = Nothing
End Function

Sub makeTable()　 'テーブル操作
Dim db As DAO.Database
Dim rsFrom As DAO.Recordset, rsTo As DAO.Recordset
Dim tdf As DAO.TableDef
Dim strSql As String
Dim i As Integer
Dim tVar As Variant

　　Set db = Application.CurrentDb

'既存テーブルにフィールド追加
　　i = getColCount + 1
　　strSql = "alter table " & tblName & " add column F"
　　For i = 1 To i
　　　　db.Execute strSql & CStr(i + 1) & " text(20) ", dbFailOnError
　　Next i
　　db.TableDefs.Refresh

'各フィールドにF1フィールドの分割した値を格納
　　Set rsFrom = db.OpenRecordset(tblName, dbOpenSnapshot)
　　Set rsTo = db.OpenRecordset(tblName, dbOpenDynaset)
　　Do Until rsFrom.EOF
　　　　tVar = Split(rsFrom!F1, "-")
　　　　rsTo.Edit
　　　　For i = 0 To UBound(tVar)
　　　　　　rsTo.Fields("F" & CStr(i + 2)) = tVar(i)
　　　　Next i
　　　　rsTo.Update
　　　　rsFrom.MoveNext: rsTo.MoveNext
　　Loop

　　rsFrom.Close: Set rsFrom = Nothing
　　rsTo.Close: Set rsTo = Nothing
　　db.Close: Set db = Nothing
End Sub
'------------------------------------------------------
データが入っているテーブルの複製をコピペして、テーブル名を、T1 に
データがあるフィールド名を、F1 に変更

DAOに参照設定がされていなければ・・
Alt + F11 を押してVBEの画面にして
メニュー→ツールから参照設定を選択
参照可能なライブラリから、Microsoft DAO 3.6 Object Library を探して
チェックボックスにチェックを入れます

メニュー→挿入から標準モジュールを選択
新たな窓が出てくるので、上記の点線で囲んだ部分をコピペ
Ctrl ＋ G を押してイミディエイトウィンドウを出して
そこに maketable と入力し Enter

Alt + F11 で Access の 窓に切り替え
先ほどの T1 テーブルを開いてみてください。
なお、DAOのメンバを使うように変数宣言してますので、ADO との共存可能也
また、T1 テーブルにはフィールドは一つしかないものと仮定
文字数ぎり