ＡＣＣＥＳＳ ダイアログ キャンセルボタン押下するとエラーに

ＡＣＣＥＳＳ２０１０

教えてgooでダイアログからテキストファイルを取り込む方法を教えて頂きました。
ダイアログが表示された後、「キャンセル」ボタンを押下すると「パス名が無効です」のメッセージが表示されてしまいます。
「キャンセル」ボタンを押下したら、元のフォーム画面（名前：F_main）に戻るようにしたいのですが、strPath = ""　にどのような追加をすればよろしいでしょうか。


Private Sub コマンド0_Click()
Dim i As Integer
Dim strSQL As String
Dim dbs As DAO.Database
Dim rst As DAO.Recordset
Dim OutData As String
Dim kind As String
Dim strPath As String


strSQL = "SELECT * from M159 ORDER BY 組店コード,行番号"
Set dbs = CurrentDbjavascript:void 0;
Set rst = dbs.OpenRecordset(strSQL, dbOpenForwardOnly)

kind = ""
OutData = ""


With Application.FileDialog(msoFileDialogFolderPicker)
If .Show = True Then
strPath = .SelectedItems(1)
Else
strPath = "" 　←ここ
End If
End With

Open strPath & "\M159(変換後）.csv" For Output As #1


With rst
Do While Not .EOF
If !組店コード <> kind Then
If OutData <> "" Then
Print #1, Mid(OutData, 2)
End If
kind = !組店コード
OutData = ""
End If
For i = 0 To .Fields.Count - 1
OutData = OutData & "," & .Fields(i)
Next
.MoveNext
Loop
If OutData <> "" Then
Print #1, Mid(OutData, 2)
End If
End With
MsgBox "ファイル出力が終了しました。"
Close #1 ' ファイルを閉じます。
End Sub

No.1 ベストアンサー 回答者： ShowMeHow 回答日時： 2016/07/15 15:03

strPath = "" 　

を
rst.close: Set rst = Nothing
exit sub
の2行に置きかえれば、
そのまま、終了する。

最後の
close #1の後にも、
rst.close: Set rst = Nothing
と書いておいたほうが、お行儀良いかも。

この回答へのお礼

ShowMeHowさん。
早速やってみたら、できました。
ありがとうございます（助かりました）

お礼日時：2016/07/15 15:39