szk********

2022/4/1 23:04

22回答

「名前を付けて保存」ダイアログで、キャンセルを押したときにExit subする方法を教えてください。 Access2016でマクロを使用して、名前を付けてExcel保存しています。

「名前を付けて保存」ダイアログで、キャンセルを押したときにExit subする方法を教えてください。 Access2016でマクロを使用して、名前を付けてExcel保存しています。 こちらのサイトで見つけた方法にて実行していますが、（ https://www.feedsoft.net/access/tips/tips183.html ）、ファイル保存までの間に別の処理を追加したため、保存ダイアログにて「キャンセル」を押してもマクロ処理が止まらず、マクロ記述が一通り終わるまで待つことになってしまいました。 「sFina = SaveFile_FileDialog（クエリ１）」の後にキャンセルを押した場合の処理を入れればよいと分かってはいるのですが、何を書いたらいいのか分かりません。 調べたところ、ExcelVBAは見つかるのですが、その方法だとAccessで動作保証されていないようで採用できませんでした。 お知恵をお貸しいただけると有難いです。 よろしくお願いします。 --------------------------------------- Sub クエリ処理() Dim sFina As String sFina = SaveFile_FileDialog（クエリ１） DoCmd.OpenQuery "クエリ２", acViewNomal, acEdit If sFina <> "" Then DoCmd.TransferSpreadsheet acExport, _ acSpreadsheetTypeExcel9, _ "クエリ３", _ sFina End If End Sub

Microsoft Access | Visual Basic・570閲覧・xmlns="http://www.w3.org/2000/svg">50

ベストアンサー

た

2022/4/1 23:55

SaveFile_FileDialog関数の中では、「If sfile = "False" Then SaveFile_FileDialog = ""」と書かれているので、ダイアログをキャンセルした場合はSaveFile_FileDialog関数の戻り値が空白になるという事になっています。 そしたら「sFina = SaveFile_FileDialog（クエリ１）」で戻り値を受け取ると、sFinaの中身が空白であればキャンセルされた事と見なせます。 という事は、「if sFina="" then exit sub」と書けます。 クエリ処理関数だけでなくマクロを完全に停止したければ「if sFina="" then end」と書けばできます。

NEW! この回答はいかがでしたか？ リアクションしてみよう

ThanksImg質問者からのお礼コメント

ありがとうございます。 逆を書けばよいのですね 式を理解していなかったようでお恥ずかしいです。 またマクロを完全に停止する方法も教えてくださり、ありがとうございました。

お礼日時：2022/4/6 21:23

その他の回答（1件）

porihiko3

2022/4/2 6:58

こんにちは。 Sub クエリ処理() Dim sFina As String sFina = SaveFile_FileDialog（クエリ１） If sFina <> "" Then DoCmd.OpenQuery "クエリ２", acViewNomal, acEdit DoCmd.TransferSpreadsheet acExport, _ acSpreadsheetTypeExcel9, _ "クエリ３", _ sFina End If End Sub と、コードの順番をいれかえたらいいです。