hatena
hatena
2023/03/13 (月) 13:04:21
下記でどうでしょう。
'選択されたフルパスをテキストボックスへ表示
Me.テキスト1.Value = GetFileName
If GetFileName = "" Then Exit Sub 'これを追加してください。
DoCmd.TransferText acImportDelim, , "テーブル1", GetFileName, True
通報 ...