tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
[ツリー表示へ]  [ワード検索]  [Home]

タイトル 実行時エラー’5’
投稿日: 2009/03/02(Mon) 11:21
投稿者Tsu
ロジックは・・・
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 = 得意先名1  
    lblJyuusho1_1.Caption = 住所1
    lblJyuusho1_2.Caption = 住所2
    lblJyuusho1_3.Caption = 住所3
Else                                                    'データが無ければエラー
    txtSum1.ForeColor = vbRed
    txtSum1.SetFocus
    MsgBox "得意先コードがありません", vbCritical + vbOKOnly, "エラー"
End If

上記ロジックのようにエラーが発生した際に文字を赤で表示してエラーが発生した項目にカーソル
を位置づける処理なのですが・・・
txtSum1.SetFocusで実行時エラー'5'が表示されます。
※Elseの後の処理のそれぞれにメッセージ出力させてSetFocus直前のメッセージが表示された後に
 実行時エラーが発生したところまでは確認が取れた
実行時エラーが出る原因が判りません。
ちなみにtxtSum1はEnabled=Tureです。

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。