こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

sql select文について

access2000 でテーブル名が座席、
フィールド1 - ID(オートナンバー)
フィールド2 - 座席コード
フィールド3 - 座席番号

フォームはどのテーブルにも連結されておらず
テキストボックス(バーコード)にバーコードで読ませた情報(座席コード)
から座席番号を別のテキストボックス(座席番号)
に表示させるにはどうすればいいですか?
以前こちらで教えていただいたのを元に自分で考えたのですが、うまくいきません。
コードは下記のとおりです。

何分初心者で見当違いの部分もあると思いますが、
ご了承ください。


Private Sub バーコード_AfterUpdate()

Dim rst As New ADODB.Recordset

Set rst = New ADODB.Recordset
rst.Open "select * from 座席 where 座席コード = '" &
Me.バーコード & "'", CurrentProject.Connection, adOpenKeyset, adlockpotimistic

rst.Filter = "座席番号=" & "'" & txtバーコード & "'"

If rst.EOF Then
MsgBox ("座席情報がありません。")
Me.バーコード = ""

Else
 Me.座席番号 = rst![座席番号]
Me.バーコード = ""

End If

rst.Close
Set rst = Nothing

End Sub

投稿日時 - 2002-10-31 09:41:12

QNo.393691

すぐに回答ほしいです

質問者が選んだベストアンサー

こんにちは。

とりあえず、adlockpotimisticはadLockOptimisticの間違いでしょうね。
これで、コンパイルは通ると思いますが、

ほかにエラーの個所があれば、
どのようなエラーがでているのか、補足してください。

ソースを見ていると、座席番号、座席コード、バーコードがごっちゃになっているような気がします。
バーコード=座席コード=座席番号を拾ってきていますが、これでOKですか?
(Filterで)

投稿日時 - 2002-10-31 12:36:53

補足

遅くなってすいません。
バーコード=座席コードで
座席テーブル内に
座席コード
座席番号
の2つのフィールドがあります。
座席コードを読み込ませて(バーコードで)
テキストボックスに座席番号を表示させたいのですが、
どこが間違っているんでしょうか?
どうも初心者で混乱してしまいました。
ぜひアドバイスを、、

投稿日時 - 2002-11-05 14:45:24

お礼

ありがとうございます。
おかげさまでできました。
またよろしくお願い致します。

投稿日時 - 2002-11-07 09:18:59

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(1)

あなたにオススメの質問