Excel ★AccessのVBAでメッセージボックスで

Excel ★AccessのVBAでメッセージボックスで。>MsgBox。★AccessのVBAでメッセージボックスで処理を中止を選択した場合に処理を中止したい★

いつも質問させていただいております
Access初心者の者です Accessのフォームボタンを押したら、
メッセージボックスが表示され、
『いいえ』を選択すると、
「処理を中止します」というメッセージボックスが表示されるようになっているのですが、実際は処理が中止されません

今の式はこちらです↓

Private Sub コマンド29_Click()
Const xlMinimized = 4140
Dim excel As Object
Dim sFolder As String
Dim dFolder As String
Dim file As String
On Error Resume Next

rc = MsgBox("フォルダに、" & Chr(13) & "入れましたか ", vbYesNo + vbQuestion)
If rc = vbYes Then
MsgBox "Excel形式で、" & Chr(13) & "5枚目までにトリミングします ", vbInformation
Else
MsgBox "処理を中止します", vbCritical

End If
& x27;
Set excel = CreateObject("Excel Application") & x27;excel
excel WindowState = xlMinimized & x27;最小化
excel Visible = True & x27;Excel可視(もしものため)
sFolder = CreateObject("WScript Shell") SpecialFolders("Desktop") & "\mini★\【★フォルダ】\" & x27;元フォルダ
dFolder = CreateObject("WScript Shell") SpecialFolders("Desktop") & "\mini★\【Excel形式】5枚目\" & x27;保存フォルダ
file = Dir(sFolder & "* xlsx") & x27;Excelを探す
Do While file <> "" & x27;ファイルがある間
excel Workbooks Open sFolder & file & x27;ブックを開く
Do While excel ActiveWorkbook Sheets Count >= 6 & x27;シート数が6枚以上なら
excel DisplayAlerts = False & x27;警告禁止
excel ActiveWorkbook Sheets(6) Delete & x27;6枚目削除
excel DisplayAlerts = True & x27;警告許可
Loop

excel ActiveWorkbook SaveAs dFolder & file & x27;【Excel形式】5枚目フォルダに保存
excel ActiveWorkbook Close False & x27;ブックを保存せず閉じる
file = Dir & x27;次のファイル名
Loop & x27;繰り返す
excel Quit & x27;Excel終了

MsgBox "完了"

End Sub

どこに何を追加したらいいか、
どう作り変えたらいいのかなど、
教えていただけますと幸いです(;_:)

何卒、宜しくお願いいたします(;_:)MsgBox関数の使い方2。関数の使い方 – ユーザーが選択したボタンの処理|
+ = 処理を続けます,
処理を中止します, 戻り値
を受け取る

Excel。で。どんなときに括弧を使うのかと。メッセージを改行する改行コード
について。詳しい解説を動画で公開しています。ぜひ。 結果 が
ボタン だったら 処理をする 処理を中止する 関数

>MsgBox 処理を中止します, vbCriticalの後にExit Subを追加してみて下さい。


Leave a Reply

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です