Access (VBA)

Access VBAに関するフォーラムです。
  • 解決済みのトピックにはコメントできません。
このトピックは解決済みです。
質問

 
(指定なし : Access 2016)
accessのフォーム画面からのデータ読み込みについて
投稿日時: 18/09/27 16:57:25
投稿者: たんしお

Accessのフォームからデータ読み込みについて
 
フォームにテキスト画面 横に参照ボタンを作成して、
参照ボタンを押すと任意でCSVファイルを選択し、
「読み込み」ボタンを押すと、テキストボックスのCSVを読み込んで、
テーブルにCSVファイルを反映させたいのですが、
DoCmd.TransferTextのCSVファイルの設定がよくわかりません。
教えていただけますでしょうか
 
参照ボタンクリック
Dim fn As String
Dim Res As Integer
 
WizHook.Key = 51488399
Res = WizHook.GetFileName(0, "", "", "", fn, "", "CSVファイル (*.csv)|*csv", 0, 0, 4, True)
WizHook.Key = 0
 
Me!ファイル名 = fn
 
Private Sub コマンド○○_Click()
 
DoCmd.TransferText acImportDelim, "インポート定義", "テーブル", ?,True
 
MsgBox "インポートが終了しました。

回答
投稿日時: 18/09/27 17:06:44
投稿者: Suzu

引用:
DoCmd.TransferText acImportDelim, "インポート定義", "テーブル", ?,True

 
Me!ファイル名
 
とか。。そういう話なのでしょうか??

投稿日時: 18/09/27 17:40:26
投稿者: たんしお

参考にさせていただいた内容をもとに使用してたので、Me!ファイル名の意味を理解しておりませんでした。勉強不足ですみません。
Me!ファイル名を記載することで、処理に影響がでるのでしょうか

回答
投稿日時: 18/09/27 19:05:32
投稿者: Suzu

引用:
Me!ファイル名を記載することで、処理に影響がでるのでしょうか

 
プログラムを変える事になるのですから、影響が出て当然ですよね。
 
テキストボックスに入力された ファイルパス を使用して、
CSVをインポートしたいのではないのでしょうか。

投稿日時: 18/09/27 20:24:59
投稿者: たんしお

おっしゃるとおり、テキストボックスのファイルパスを利用して、インポートをしたいです。

回答
投稿日時: 18/09/28 09:32:53
投稿者: Suzu

引用:
おっしゃるとおり、テキストボックスのファイルパスを利用して、インポートをしたいです。

 
すみません。
 
何をお聞きになりたいのでしょう。
 
その方法は既に回答しているつもりです。

投稿日時: 18/09/28 14:20:48
投稿者: たんしお

質問がわかりにくくてすみません。
 
Private Sub コマンド12_Click()
 
DoCmd.TransferText acImportDelim, "インポート定義", "テーブル",○○○csvファイル, True
 MsgBox "インポートが終了しました。
 
上記の○○○csvファイルの値をテキストボックスを参照にする記載方法がわかりませんでした。

回答
投稿日時: 18/09/28 14:58:38
投稿者: sk

たんしお さんの引用:
DoCmd.TransferText acImportDelim, "インポート定義", "テーブル", ,True

Suzu さんの引用:
Me!ファイル名

DoCmd.TransferText acImportDelim, "インポート定義", "テーブル", Me!ファイル名, True
 
------------------------------------------------------------------
 
また、TransferText メソッドを実行する前に
テキストボックス[ファイル名]の値が Null
(または空文字列)であるかどうかをチェックする
処理を追加された方がよいでしょう。

投稿日時: 18/09/29 09:20:53
投稿者: たんしお

sk様
ご回答ありがとうございました。

投稿日時: 18/10/02 20:12:53
投稿者: たんしお

たんしお さんの引用:
sk様
ご回答ありがとうございました。