投稿日 | : 2002/09/04(Wed) 11:14 |
投稿者 | : コロン |
Eメール | : |
URL | : |
タイトル | : Re^2: データベースを照合してNAMEを表示させる方法。 |
↓のようにかいてみました。
入力された物件番号と品種コードがデータベースと一致しなければエラーが出て、
一致すればそれにともなった物件名がラベルに表示される。。。というようにしたいのです。
エラーは何も出ないのですが、物件名も表示されません。
どうしてなんでしょうか?
Private Function check物件NO() As Boolean
Dim SQL As String, RS As New ADODB.Recordset
SQL = "Select 物件番号, 品種コード From KZBUKKEN"
SQL = SQL & " Where 物件番号=" & Val(txt物件NO)
SQL = SQL & " And 品種コード=" & STR2Q(txt品種コード)
RS.Open SQL, cn, adOpenStatic, adLockReadOnly
If RS.EOF = False Then
check物件NO = False
txt物件NO.SetFocus
MsgBox "物件NOの入力が正しくありません。", vbCritical
Exit Function
Else
While RS.EOF = False
check物件NO = True
lbl物件NO = GET物件名(RS("物件名"), RS("品種コード"))
Wend
RS.Close
End If
End Function