SetFocus時、実行時エラー’5’ (ID:141606)

名前

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

本文 開発環境：WIN2K DB：Oracle ロジックは・・・ SELECT_COLUMN(0) = "TOK_SUM_CD" SELECT_COLUMN(1) = "TOK_NAME" SELECT_COLUMN(2) = "TOK_ADR1" SELECT_COLUMN(3) = "TOK_ADR2" SELECT_COLUMN(4) = "TOK_ADR3" SELECT_TABLE(0) = "TOKUI_MST" SELECT_WHERE(0) = "TOK_SUM_CD = '" & txtSum1.Text & "'" If SelectSQL(5, 1, 1, 0) Then 'データがあれば内容表示 lblTokuimei1.Caption = TOK_NAME lblJyuusho1_1.Caption = TOK_ADR1 lblJyuusho1_2.Caption = TOK_ADR2 lblJyuusho1_3.Caption = TOK_ADR3 Else 'データが無ければエラー txtSum1.ForeColor = vbRed txtSum1.SetFocus MsgBox "得意先コードがありません", vbCritical + vbOKOnly, "エラー" End If 上記ロジックのようにエラーが発生した際に文字を赤で表示してエラーが発生した項目にカーソルを位置づける処理なのですが・・・ txtSum1.SetFocusで実行時エラー'5'が表示されます。 ※Elseの後の処理のそれぞれにメッセージ出力させてSetFocus直前のメッセージが表示された後に実行時エラーが発生したところまでは確認が取れた実行時エラーが出る原因が判りません。 ちなみにtxtSum1はEnabled=Tureです