inp

ファイル指定　ダイアログ

Private Sub cmdInp_Click()

Dim fName As String
Dim strSQL As String

   If MsgBox("AAAデータ.txtをインポートしますか？", vbYesNo + vbQuestion) = vbYes Then

       'ここから「ファイル指定　ダイアログ」
           If Not fncOpenFileDialog(fName) Then
               Exit Sub
           End If
           
           Do Until fName Like "*AAAデータ*"
       
               MsgBox "「AAAデータ」のテキストを選択してください"
               If Not fncOpenFileDialog(fName) Then
                   Exit Sub
               End If
               
           Loop
       
       'ここまで「ファイル指定　ダイアログ」
       
           'インポート前に全[[レコード]]を削除
               DoCmd.SetWarnings False
               strSQL = "DELETE * FROM t_1"
               DoCmd.RunSQL strSQL
      
       'インポート
       　Dim MyPath, MyCSV
       
           MyPath = fName
       
               DoCmd.TransferText acImportDelim, "*** インポート定義", _
               "t_1", MyPath, False
   
       'データ作成
        DoCmd.SetWarnings False
       DoCmd.OpenQuery "q_更新", acViewNormal, acEdit

       MsgBox "インポート完了。"

end sub