VBモーダルでのエラーハンドリング方法

前へ 次へ
このQ&Aのポイント
  • VB6.0でFormAからFormBをモーダルで開き、さらにFormBからFormDをモーダルで開く一連の操作を行う際、FormDを表示せずにアンロードする方法についての質問です。
  • 現在のコードでは、FormDを開く際にFormB内のデータが存在しない場合に、FormDが表示されたままになってしまいます。
  • エラーフラグを立ててアンロード処理を行おうとしても、プログラムが終了してしまう問題が発生しています。モーダルでアンロード処理までいくにはどのような処理を加えたらよいでしょうか。
回答を見る
  • ベストアンサー

vbモーダルについて

VB6.0について質問です。 FormAからFormBをモーダルで開き、さらにFormBからFormDをモーダルで開く という一連の操作を行いたいのですがうまくいきません＞＜ エラー内容は、FromDを開く際にFormB内のデータが存在しなかったら FormDを表示せずにアンロードしたいのに表示されたままになってしまいます。 以下のコードで処理を行ってるのですがエラーのフラグを立ててアンロード処理を 行おうとしてもExitに移った瞬間にプログラムが終了してしまいます。 FormDをモーダレスで開くとアンロード処理まで普通に処理されます。 モーダルでアンロード処理までいくにはどのような処理を加えたらよいでしょうか？ If i = 0 Then MsgBox "データありません。" Err_Flg = 1 Exit Sub End If ---------------------------- If Err_Flg = 1 Then Err_Flg = 0 Unload FormD End If

質問者が選んだベストアンサー

  • ベストアンサー
  • Kuppycat
  • ベストアンサー率50% (109/216)
回答No.1

FormDをLoadする前にFormB内データをチェックして、存在したらFormDをLoad、Showするほうがよいと思います。 <FormB側> Private Sub callFormD() if i = 0 then 　MsgBox "データありません。" else 　FormD.Load 　FormD.Show vbModal End If End Sub

その他の回答 (2)

回答No.3

Form_Loadではなく、Form_Activateでunloadすれば大丈夫かと思います。

  • jyamo
  • ベストアンサー率13% (16/121)
回答No.2

先にFORMBをhideにしてモードレスで開いてFROMDを開くとか・・・だめか。

  1. カテゴリ
  2. [技術者向] コンピューター
  3. プログラミング・開発
  4. Visual Basic

関連するQ&A

  • Accessフォームの作成

    Accessで作成されているシステムの ファイル取り込みフォームにある実行ボタンを押下すると、 下記のメッセージが表示されます。 「select case に対応する case がみつからない。」 どこかで指定しないといけないのでしょうか？ Private Sub Cmd実行_Click() On Error GoTo Err Dim StrSql As String Dim IntNDCnt As Integer Dim IntNTCnt As Integer '確認メッセージの出力 If MsgBox("処理を開始します。よろしいですか？", vbInformation + vbYesNo, "データ取込処理") = vbNo Then Exit Sub End If '対象データ別の処理実行 Select Case Me.Cmb対象.ListIndex Case -1 'エラー MsgBox "読込むデータを指定してください", vbCritical, "データ取込処理" Exit Sub Case 0 '全データ If F_手数料明細読込() = False Then Exit Sub End If If F_奨励金読込() = False Then Exit Sub End If If F_減額読込() = False Then Exit Sub End If If F_預り金読込() = False Then Exit Sub End If Case 1 '手数料データ If F_手数料明細読込() = False Then Exit Sub End If Case 2 '奨励金データ If F_奨励金読込() = False Then Exit Sub End If Case 3 '減額データ If F_減額読込() = False Then Exit Sub Case 4 '預り金データ If F_預り金読込() = False Then Exit Sub End If End Select 今は、Case 4が黄色に反転します。

  • VB2005 DataGrid1初期化について

    はじめまして。 VB2005 DataGrid1の初期化について質問があります。 下記処理を実行すると、 一度目のFormBを表示ではDataGridに正しく表示されます。 FormBにてボタンEndを押し、再度FormBを表示すると DataGridの表示が化けてしまいます。 (縦・横のスクロールバーが表示されなくなり、 　列・行の幅も小さくなっている) DataGrid自体は何も設定していなく、 表示内容に対して自動でDataGridを調整してくれる ものだと思っておりました。 何か初期化(Me.DataGrid1.Refresh)などが問題なので しょうか？ 長文になりましたが、何か少しでも解決策をお願いします。 Private Sub Form_Load 'FormBを表示 　FormB.ShowDialog 　'再度FormBを表示 　FormB.ShowDialog Exit Sub Private Sub FormB_Load 　Dim Aclone As New ADODB.Recordset 　'Aclone設定 　If Aclone .State = ADODB.ObjectStateEnum.adStateOpen Then 　　Aclone .Close() 　End If 　'DataGrid初期化 　Me.DataGrid1.Refresh() 　'XXXX(接続・テーブル情報)の内容をAcloneにセット) 　Aclone = XXXX.clone 　'AcloneをDataGridにセット 　Me.DataGrid1.DataSource = Aclone Exit Sub Private Sub FormB_Btn_End 　Me.Hide Exit Sub

  • セルの入力後の常時自動処理

    どちらかのA1の値を入力しEnterキーを押したあとに下記の処理を自動実行するには どうしたら良いでしょうか？　お教え願えませんでしょうか。 Windows7・SP1 Office2010 Option Explicit(標準モジュールに書いてあります。) Private Flg As Boolean Sub 処理() If Flg Then Exit Sub Application.OnTime Now + TimeValue("00:00:05"), "処理" If Flg Then Exit Sub If Worksheets("メイン・1").Range("A1") <> Worksheets("祝祭日").Range("A1") Then MsgBox ("祝祭日の日付を反映させるために年度を同じにしてください。") Else: Exit Sub End If(中断モードで実行することはできません。)ここで止まります。 End Sub Sub ストップ() Flg = True End Sub

  • 実行時エラー９２　ｆｏｒループが初期化されていませ

    エクセルVBAでFor Eachを使ってるのですが、 Nextの部分で 実行時エラー９２ ｆｏｒループが初期化されていません。 というエラーになります。 On Error GoTo ERR1 For Each myObj In objIE.Document.all.tags("ul") If myObj.className = "" Then '○○の場合 Exit Sub ERR1: If Err.Number = 424 Then On Error GoTo 0 'エラーを解除 '▲▲の場合 If strカテゴリ Like "" Then Exit Sub End If End If End If Next というコードなのですが、どこかおかしいですか？

  • Access VBA エラートラップでの終了処理

    お世話様です。 Access2003 VBA にて、各プロシージャに貼ったエラートラップで、 メッセージを出力した後にAccessを終了したいと考えております。 ここで、通常終了時(フォームの×ボタン押下時)の 終了確認メッセージをForm_Unloadイベントで記述しているのですが、 エラートラップでの終了時にも、このメッセージが表示されてしまいます。 エラートラップでの終了時は、終了確認メッセージを表示させたくないので、 標準モジュールにパブリック変数のエラーフラグを用意し、 それで判断しようと考えたのですが、 エラートラップ内でエラーフラグに値を設定しても保持されず、 Form_Unloadイベントで終了確認メッセージがどうしても表示されてしまいます。 何か良い方法はありますでしょうか？よろしくお願いいたします。 例： '***ボタンAクリックイベント******************* Private Sub btn_A_Click() On Error GoTo ERR_LINE 　　＜何らかの処理＞ Exit Sub ERR_LINE: 　　MsgBox "予期せぬエラーが発生しました。終了します。" & Chr(13) & _ 　　　　　　"エラー番号：　" & Err.Number & Chr(13) & _ 　　　　　　"エラー内容：　" & Err.Description, vbCritical + vbOKOnly, "例外エラー" 　　bl_ErrFlg = True 'エラーフラグ設定←保持されない 　　Application.Quit End Sub '***フォームアンロードイベント******************* Private Sub Form_Unload(Cancel As Integer) 　　If bl_ErrFlg = False Then 　　　　Cancel = MsgBox("終了します。よろしいですか？",vbQuestion + vbYesNo, "終了確認") = vbNo 　　End If End Sub

  • showdialogを使わずにモーダル表示したい。

    VB2005環境です。 FormAから、FormBをShowしています。 FormB画面がある時は、FormAを触らせたくないので、 モーダル表示にしたいと考えているのですが、元々Showして 作っており、更にFormAがFormBのCloseイベントをハンドルして いろいろ処理を書いたせいか、原因が特定できないのですが、 ShowDialogしてcloseすると ystem.NullReferenceException: オブジェクト参照がオブジェクト インスタンスに設定されていません。 とのエラーが出ます。 ShowでFormBを起動する作りのまま、FormAだけ触れないように したいのですが、Showでモーダル表示にできるような方法が ありましたら教えていただけないでしょうか？ 宜しくお願いします。

  • VB6,Ifから抜けるには?

    If a = b then 　　xxx 　If c = d then 　　　ここ！ 　End If 　　yyy End If zzz 上のここ！から抜け、zzz以降の処理を継続するにはどうすればよいでしょうか？ Exit Subをやってしまうとプロシージャ自体から抜けてしまいます。

  • vb コンボボックスのイベントについて

    こんばんわ。 コンボボックスで、 指定の値をマウス操作でクリックしたときと、 キーボードの上下で、移動後returnを押したときだけ、 MsgBox "処理実行" を実行したいです。 keystateを使ってみたのですが、前の情報が残っているのかうまくいきません。keystateの情報をクリアさせるか、シンプルに上記を動作させる何かよい方法はありますでしょうか。 Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer Dim flg1 As Boolean Private Sub form_load() Combo1.AddItem (11) Combo1.AddItem (22) Combo1.AddItem (33) Combo1.AddItem (44) End Sub Private Sub Combo1_Keyup(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then 'return flg1 = True Call Combo1_click End If End Sub Private Sub Combo1_click() If (GetKeyState(&H26) <> 0) Or (GetKeyState(&H28) <> 0) Then ' ↑↓ If flg1 = False Then Exit Sub End If End If MsgBox "処理実行" flg1 = False End Sub

  • access2000"社員管理システム"を利用しています。

    access2000"社員管理システム"を利用しています。 社員マスタサブフォームがあり、レコードソースは社員履歴QUE（社員履歴TBL、所属TBL）です。 社員コード 開始日 終了日 社内区分 所属コード 役職名 内線電話番号 呼出詳細 所属名 部署名 を入力していて、以下がコードです。 Sub Form_Load() On Error GoTo Form_Load_Err If ParentFormIsOpen() Then Forms![社員マスタFRM]!ToggleLink = True Form_Load_Exit: Exit Sub Form_Load_Err: MsgBox Error$ Resume Form_Load_Exit End Sub Sub Form_Unload(Cancel As Integer) On Error GoTo Form_Unload_Err If ParentFormIsOpen() Then Forms![社員マスタFRM]!ToggleLink = False Form_Unload_Exit: Exit Sub Form_Unload_Err: MsgBox Error$ Resume Form_Unload_Exit End Sub Private Function ParentFormIsOpen() ParentFormIsOpen = (SysCmd(acSysCmdGetObjectState, acForm, "社員マスタFRM") And acObjStateOpen) <> False End Function Private Sub 終了_Click() On Error GoTo Err_終了_Click DoCmd.Close Exit_終了_Click: Exit Sub Err_終了_Click: MsgBox Err.Description Resume Exit_終了_Click End Sub 終了日を入力したら次のレコードの開始日に終了日の翌日が自動的に入力されるようにしたいです。 宜しくお願いします！！

  • マクロのコーディング

    すいません、下のコード（マクロなんですが）同じ処理を4回も繰り返しているので、(入りきらないので、2回にしました)ひとつにまとめたいです。どうすればいいでしょうか？教えて下さい。 '●業務番号チェック 'エラー時は青 If Range("H39:I39").Select <> "" Then If .Cells(43, 5).Value = "" Then Total_Check_Flg = True '色付の範囲の設定 Range("A43:B43").Select 'セルの色の設定（青） With Selection.Interior .ColorIndex = 41 End With Err_Kazu_4 = Err_Kazu_4 + 1 End If End If If Range("K39:L39").Select <> "" Then If .Cells(44, 5).Value = "" Then Total_Check_Flg = True '色付の範囲の設定 Range("A44:B44").Select 'セルの色の設定（青） With Selection.Interior .ColorIndex = 41 End With Err_Kazu_4 = Err_Kazu_4 + 1 End If

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する