投稿日 | : 2002/09/04(Wed) 13:43 |
投稿者 | : よねKEN |
Eメール | : |
URL | : |
タイトル | : Re^3: データベースを照合してNAMEを表示させる方法。 |
> If RS.EOF = False Then
> check物件NO = False
> txt物件NO.SetFocus
> MsgBox "物件NOの入力が正しくありません。", vbCritical
> Exit Function
> Else
このElseはRS.EOF=Falseでないとき、つまり、RS.EOF=Trueのときのみ実行されるのですから、
> While RS.EOF = False
このWhileの条件は絶対に成り立たないので、While〜Wend間が実行されることはありません。
>
> check物件NO = True
>
> lbl物件NO = GET物件名(RS("物件名"), RS("品種コード"))
>
> Wend
> RS.Close
>
> End If
Whileの行とWendの行は不要では?