ロード時にエラーが発生した場合、閉じるには？ (ID:107363)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 またもや、みなさんありがとうございました。 無事、解決しました。本当にお世話になりました。 ソースを下記の通りです。 Private Sub Command1_Click() On Error Goto ERROR1 Form1.Show On Error GoTo 0 Exit Sub ERROR1: MsgBox Err.Description, vbExclamation End Sub (Form1) Private Sub Form_Load() Dim c As Integer Dim frm As Form On Error Goto ERROR2 C = 1 / 0 On Error GoTo 0 Exit Sub ERROR2: For Each frm In Forms If frm.Name = "Form1" Then Unload Form1 End If Next End Sub