開発環境：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です
マルチ先
http://hanatyan.sakura.ne.jp/vb60bbs/wforum.cgi?no=13472&reno=no&oya=13472&mode=msgview&page=0