
Accessで以下のようなデータを“-”ハイフンで区切って、横のフィールドに格納したいのですが、
何かよい手法があったらおしえてください。
※下図の“,”はフィールドの区切りを示しています。
------------------------------------
場所,場所1,場所2,場所3,場所4
12
13-1
13-1-2
135-1-ロ-イ-A
--------------------------------------
というデータを
------------------------------------
場所,場所1,場所2,場所3,場所4
12,
13,1
13,1,2
135,1,ロ,イ,A
--------------------------------------
以上です。
どなたかよろしくお願いします。
No.1ベストアンサー
- 回答日時:
VBAでないとできないと思いますが。
以下を標準モジュールにコピペして実行
してみてください。
DAOで書いているので、参照設定で
Microsoft DAO xx Object Library
にチェックをいれてください。
なお、以下はあらかじめ必要なフィールド数が
確保されているものとします。
Sub test40()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim var As Variant
Dim i As Long
Set db = CurrentDb
Set rs = db.OpenRecordset("テーブル名", dbOpenDynaset)
Do Until rs.EOF
var = ""
var = Split(rs!場所, "-")
For i = 0 To UBound(var)
rs.Edit
rs.Fields(i) = var(i)
rs.Update
Next i
rs.MoveNext
Loop
rs.Close: Set rs = Nothing
db.Close: Set db = Nothing
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
バッファローのルーターに変え...
-
元パートナーの気持ちをどうや...
-
こちょこちょがきく人って感じ...
-
この写真の場所を教えてください。
-
リモートデスクトップ接続が頻...
-
死後5時間ほどのウナギは捌いて...
-
☆嫉妬ですか??☆
-
ユニクロの試着室で買わない商...
-
「場所」と「ところ」の違い
-
いたって精神状態普通です
-
前から思ってたことですがなぜ...
-
思い出の街を離れたくない心理...
-
金属製可とう電線管のD種接地工...
-
簡易防爆について
-
デートコースを選ぶとき元カノ...
-
パワーポイントへのリンクの貼り方
-
大阪のザ・バーレスクとバーレ...
-
温泉に行ってお風呂に入る回数
-
大阪城公園内かその周辺に自転...
-
長堀橋駅から四ツ橋駅まで徒歩...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
不幸な人が集まってる場所は、...
-
元パートナーの気持ちをどうや...
-
死後5時間ほどのウナギは捌いて...
-
☆嫉妬ですか??☆
-
この写真の場所を教えてください。
-
いたって精神状態普通です
-
バッファローのルーターに変え...
-
ユニクロの試着室で買わない商...
-
こちょこちょがきく人って感じ...
-
「場所」と「ところ」の違い
-
リモートデスクトップ接続が頻...
-
近年、蝶々が少なくなりました...
-
地形について
-
デートコースを選ぶとき元カノ...
-
幸せな場所 フランス語
-
スマホのIPアドレスによる位置...
-
Windows7-64bitで「Just-In-Tim...
-
銭湯で口論となりました
-
パワーポイントへのリンクの貼り方
-
数学A YOKOHAMAの8文字全てを1...
おすすめ情報