掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
エラーを回避するには？ (ID：80159)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
・Initializeイベントを使う ・Load前に接続する ・呼び出し側でエラートラップする のいずれかになると思います。例えば、こんな感じですね。 '--- Form2 Option Explicit Friend Function ShowEx( _ Optional Mode As FormShowConstants = vbModeless, _ Optional Owner As Form) As Boolean 'DBへの接続処理 If ConnectDB() Then '接続成功 ShowEx = True Me.Show Mode, Owner Else '接続失敗 ShowEx = False End If End Function Private Sub Form_Load() 'DB接続後の処理 End Sub そして呼び出し側(Form1)は、Form2.Showの替わりに、 独自定義のShowExを使うようにします。 '戻り値判定が不要なら、『Form2.ShowEx vbModal』でも可 If Form2.ShowEx(vbModal) Then : : End If
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.