こんばんは。
ACCESS VBAにて、MSGBOXの返り値がVBNOの際に以降の処理を中止したいと思っています。
以前はEndと記載していましたが、グローバル変数の値が初期化されたり弊害があると言われたためExit functionやExit subに置き換えた所、そのFunction以降のFunction(元々コマンドボタンクリックでいくつかのPublic Functionが動くようになっています)に処理が移ってしまい困っています。
そもそも書き方に問題があるのかもしれませんが、ご存知の方いたら教えてください。連休中の宿題って感じです。(涙)よろしくお願いします。
No.1ベストアンサー
- 回答日時:
大規模に現状のコードを修正しないで済みそうな方法としては、エラー
トラップを利用する方法かと思います。
下記のコードはあくまでテスト用なので、関数は中身のない適当なものです。
読み取ってほしいのは、MsgBox で No が選択された場合にエラーを発生させ、
MainProc のエラーハンドラに戻している点です。
10回「Resume?」に Yes をクリックすると、コード中のコメント(A)により
"SampleFuncA を抜けます" と表示されますが、途中 No をクリックした場合
これが表示されません。つまり、SampleFuncA の実行は途中で終了されます。
Public Const FORCE_BREAK_CODE As Long = 50000
Public gsTest As String
Sub MainProc()
Dim n As Long
On Error GoTo Err_
gsTest = "テストです"
MsgBox "完走しましたよ N:=" & CStr(SampleFuncA(1))
Bye_:
MsgBox "Public 変数 gsTest:=" & gsTest
Exit Sub
Err_:
Select Case Err.Number
Case FORCE_BREAK_CODE
MsgBox "ユーザーキャンセル", vbInformation
Case Else
MsgBox Err.Description, vbCritical
End Select
Resume Bye_
End Sub
' // サンプル関数A
Public Function SampleFuncA(ByVal n As Long) As Long
While n < 10
n = SampleFuncB(n)
Wend
SampleFuncA = n
MsgBox "SampleFuncA を抜けます" ' // (A)
End Function
' // サンプル関数B
Public Function SampleFuncB(ByVal n As Long) As Long
If MsgBox("N:=" & CStr(n), vbYesNo, "Resume?") = vbNo Then
Err.Raise FORCE_BREAK_CODE '// <--- ココでエラーを発生させる
End If
SampleFuncB = n + 1
End Function
No.2
- 回答日時:
前回の質問で回答した者です。
http://oshiete1.goo.ne.jp/qa3398452.html
MsgBoxでvbNoを選択した場合に、Functionの戻り値を変えることはできないでしょうか。
とりあえず、ごく簡単なサンプルを以下に書きます。
内容としては、
・コマンドボタンをクリックすると、ParentFunc関数が呼び出される
・ParentFunc関数は、さらにChildFunc1及びChildFunc2関数を呼び出す
・ChildFunc1関数は、引数がNullだった場合、0に置換するかを確認・実行する
・ChildFunc2関数は、2つの引数の大小をMsgBoxで表示する
となっています。
「テキスト1=1」「テキスト2=Null」の状態でコマンド1をクリックすると、「0とみなしますか」の
MsgBoxが表示されます。
これに対してvbNoを選択した場合・・・
・現状のコード:
ChildFunc2がそのまま続行され、Nullには等号・不等号の関係が成り立たないので
評価結果は「Else」となるため、 「ともに等しい」のMsgBoxが表示されます。
・変更後のコード:
処理が途中で中止され、大小関係についてのMsgBoxは表示されなくなります。
<現状の例>
Private Sub コマンド1_Click()
On Error Resume Next
Call ParentFunc(テキスト1,テキスト2)
End Sub
Public Function ParentFunc(IntA, IntB)
On Error Resume Next
Call ChildFunc1(IntA, IntB)
Call ChildFunc2(IntA, IntB)
End Function
Private Function ChildFunc1(IntA, IntB)
On Error Resume Next
If IsNull(IntA)=False And IsNull(IntB)=False Then Exit Function
If MsgBox("Nullを0とみなしますか?",vbYesNo,"確認")=vbYes Then
IntA=Nz(IntA,0)
IntB=Nz(IntB,0)
End If
End Function
Private Function ChildFunc2(IntA,IntB)
On Error Resume Next
If IntA > IntB Then
MsgBox "前者が大"
ElseIf IntA < IntB Then
MsgBox "後者が大"
Else
MsgBox "ともに等しい"
End If
End Function
<変更後の例>
ParentFunc関数とChildFunc1関数を、以下のように変更します。
Public Function ParentFunc(IntA, IntB)
On Error Resume Next
'ChildFunc1関数の戻り値を記録する変数Contを宣言
Dim Cont As Integer
'ChildFunc1関数の戻り値を変数Contに記録
Cont=ChildFunc1(IntA, IntB)
'ChildFunc関数の戻り値が0(→MsgBoxでvbNoを選択)なら処理を中止
If Cont=0 Then Exit Function
Call ChildFunc2(IntA, IntB)
End Function
Private Function ChildFunc1(IntA, IntB) As Integer
On Error Resume Next
If IsNull(IntA)=False And IsNull(IntB)=False Then Exit Function
If MsgBox("Nullを0とみなしますか?",vbYesNo,"確認")=vbYes Then
IntA=Nz(IntA,0)
IntB=Nz(IntB,0)
'vbYes選択時は、ChildFunc1の戻り値を-1(True相当)に設定
ChildFunc1=-1
Else
'vbNo選択時は、ChildFunc1の戻り値を0(False相当)に設定
ChildFunc1=0
End If
End Function
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/07/03 09:11
- Visual Basic(VBA) エクセルのマクロについて教えてください。 7 2023/07/04 09:18
- Visual Basic(VBA) ファイル全てを .xlsm に変更したところ、プログラムが途中で落ちてしまっています 17 2022/12/07 12:03
- Visual Basic(VBA) Excel-VBAでのファイルの開き方 4 2023/02/14 11:01
- Visual Basic(VBA) 別シートから年齢別の件数をカウントしたいの続き 5 2023/01/24 00:16
- Visual Basic(VBA) 【変更】ファイルを閉じてダイアログで保存した時、更新したシートだけの処理の実行をする 5 2022/03/26 18:31
- Visual Basic(VBA) 【Excel VBA】自動メール送信の機能追加 5 2022/09/29 12:53
- Visual Basic(VBA) 複数のcsvファイルをExcelに一括変換したい 2 2023/03/03 12:44
- Visual Basic(VBA) こんにちは。ExcelVBA初心者につき困っています。Functionで始まっている処理の中で、処理 1 2022/06/18 21:40
- Visual Basic(VBA) 【追加】ファイルを閉じてダイアログで保存した時だけ処理の実行をする 3 2022/03/23 15:43
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
UserForm1.Showでエラーになり...
-
VBAでfunctionを利用しようとし...
-
実行時エラー'-2147467259(8000...
-
String""から型'Double'への変...
-
お助けください!VBAのファイル...
-
ADO 「認証に失敗しました」
-
エクセルVBA 「On Error GoTo...
-
エクセルVBAで#N/Aのようなエ...
-
SQLでエラーです。
-
インポート時のエラー「データ...
-
実行時エラー 438 の解決策をお...
-
Excel実行時エラー[80004005]に...
-
数式は残し値をクリアするマク...
-
マクロの「SaveAs」でエラーが...
-
「実行時エラー '3167' レコー...
-
日付書式のString型からData型...
-
Filter関数を用いた結果、何も...
-
VBSCRIPTで返されるErr.Number...
-
VBAで時間(00:00形式)を積算...
-
VBAで変数を含むSQL文を使用し...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
UserForm1.Showでエラーになり...
-
String""から型'Double'への変...
-
On ErrorでエラーNoが0
-
VBAでfunctionを利用しようとし...
-
マクロで"#N/A"のエラー行を削...
-
VBA データ(特定値)のある最...
-
実行時エラー 438 の解決策をお...
-
お助けください!VBAのファイル...
-
文字列内で括弧を使うには
-
エクセルVBA 「On Error GoTo...
-
【VBA】ワークブックを開く時に...
-
マクロの「SaveAs」でエラーが...
-
ACCESSで値を代入できないとは?
-
実行時エラー'-2147467259(8000...
-
インポート時のエラー「データ...
-
【VB.NET】 パワポ操作を非表示で
-
Filter関数を用いた結果、何も...
-
UBoundに配列がありませんとエ...
-
Excel vbaについての質問
-
メールの件名のセットでエラー...
おすすめ情報