Access インポートしたファイル名の一部を各行の列に追加したい

Question

###実現したいこと
フォームでファイル選択→テーブルにインポート→ファイル名の上六桁を取得→
全ての行の最終列に取得した上六桁を追加(出来ていない部分)

Access初心者です。どのように処理すればよいのか分かりません。
このテーブルにはデータが追加されていく予定なので、空欄列のみ追加にしなくてはなりません。
インポートする時点で追加するものなのか、インポート後に処理したほうが良いのでしょうか。
どなたかご教示いただければと思います。

コード

Private Sub コマンド8_Click()
Dim msg As String

msg = getFilePicker
If msg = "" Then Exit Sub

Dim objFileSys As Object
Dim fileName As String
'ファイルシステムを扱うオブジェクトを作成
Set objFileSys = CreateObject("Scripting.FileSystemObject")
'拡張子無しのファイル名を取得
fileName = objFileSys.GetBaseName(msg)
Debug.Print Left(fileName, 6)
Set objFileSys = Nothing

On Error GoTo err_sample
DoCmd.TransferSpreadsheet acImport, , "Todoke", msg, True

err_sample:
Select Case Err.Number
Case 3011
MsgBox "ファイルが見つかりません。処理を終了します。"
Case Else
MsgBox Err.Number & ":" & Err.Description
End Select

End Sub

Answer 1

インポート後に、ALTER TABLE ADD COLUMNでカラム追加し、そのカラムにファイル名の上六桁を更新すれば良いかと思います。
※ADD COLUMNではテーブルの最後に追加されます。
ALTER TABLE ステートメント (Microsoft Access SQL)

Comments

[3939TJ55]

sazi様
回答ありがとうございます。
質問ですが、この場合だとデータを追加していく際、毎回カラムが生成されてしまいますよね？

[sazi]

インポート定義を使えないなら、しょうがないと思いますけど。

[sazi]

テーブルが定義済みでないから、本質問をされていると思っていますが、よく考えるとファイル名を持たせたいというのは複数のファイルを同じテーブルにインポート出来ているという事でしょうか？

もしそうなら、インポート定義を使用したインポートを行った後に更新すれば良いと思います。

[3939TJ55]

複数のファイルを同じテーブルにインポート出来ています。
インポート定義を使用したインポートでどのような処理を行うのでしょうか？
基本的な質問ばかりで恐縮ですが、宜しくお願い致します。

[sazi]

予め、テーブルに項目を追加します。その項目名はエクセルのヘッダーと被っては駄目です。
ヘッダーが無い場合は、インポート定義を使って項目名を定義します。

[3939TJ55]

情報の後出しで申し訳ないです。
テーブルには予め項目作成しているので、単純にインポートしたらファイル名の一部を作成した項目に追加という形がとれれば幸いです。

[sazi]

単純なインポートではインポート後に更新するしか思い付かないですね。

[3939TJ55]

結局のところ[ALTER TABLE ADD COLUMN]では毎回カラム名が追加されていくという認識でよいのでしょうか。

[sazi]

いいえ。既に定義されているとの事なので、追加は不要で、その項目への更新のみです。
インポート後に空欄の項目を条件に更新すれば良いと思います。

[3939TJ55]

やり方は具体的にご教示いただけないでしようか。

[sazi]

テーブルを更新する事は基本ですので、やり方は色々ありすぎます。
・更新クエリーを作成しておいて実行する
・update文をVBAで実行する。
等など。
「access テーブル更新」辺りで検索すれば色々と事例は見つかります。

[3939TJ55]

変数に入れた文字列（fileName = objFileSys.GetBaseName(msg)）を扱う場合にやりやすそうなのはなんでしょうか？

[sazi]

取得する値をVBAで扱っているので、VBAでupdate文を実行ですね。

[3939TJ55]

パラメーターが少なすぎます・・・のエラーになります。構文の間違いでしょうか。
Dim sql As String

DoCmd.SetWarnings WarningsOn:=False

sql = "UPDATE Todoke SET 店コード=" & Left(fileName, 6) & " WHERE 店コード=''"
DoCmd.RunSQL sql

DoCmd.SetWarnings WarningsOn:=True

[sazi]

ファイル名は文字列なので、'で括らないと駄目です。
後、店コードがNullの場合も考慮した方が良いですね。
sql = "UPDATE Todoke SET 店コード='" & Left(fileName, 6) & "' WHERE Nz(店コード)=''"

[3939TJ55]

ありがとうございました！勉強にもなりましたし、無事に解決することが出来ました！