accessのVBAの質問です

Question

accessでDBからデータを検索して出力するということをしたいです。

現状ではボタンとテキストボックスがあって、ボタンを押すとテキストボックスにDBのデータが一覧表示されるだけになっています。これにテキストボックスとボタンを一つずつ追加する。 テキストボックスに文字を入れたら、それに一致するデータが表示されるようにしたいです。

Private Sub b01_Click()

Dim oDB As Database     
Dim oRS As DAO.Recordset    
Dim str As String

Set oDB = CurrentDb     
Set oRS = oDB.OpenRecordset("SELECT * FROM 学生管理テーブル;")  

str = ""                
t01.Value = str        

Do Until oRS.EOF         
    str = str & "学籍番号:" & oRS!学籍番号 & " / 名前:" & oRS!名前 & " / 学年:" & oRS!学年 & " / コース:" & oRS!コース & vbCrLf      
    oRS.MoveNext           
Loop

t01.Value = str         


End Sub

Answer 1

テキストボックスに文字を入れたら、それに一致するデータが表示されるようにしたいです。

テーブルデータの何と一致するデータを表示するのでしょうか。

テキストボックスに名前をいれて、名前が一致するレコードを表示ですか。
学籍番号を入力して、それと学籍番号が一致するレコードですか。
それとも、・・・
各席番号、名前、学年、コース どれが入力されるかは不定ですか。

また、完全一致ですか。部分一致ですか。

これらの条件により方法は異なってきます。

とりあえず、名前を入力して、完全一致するレコードを表示するなら、
レコードセットを開くときのコードを下記に変更すればOKです。

Set oRS = oDB.OpenRecordset("SELECT * FROM 学生管理テーブル WHERE 名前='"  & Me.txt1 & "';")

テキストボックス名は txt1 と仮定してます。

他の条件の場合は、WHERE 以降を適宜変更すればいいでしょう。

ちなみに、テキストボックスに結果を表示してますが、フォームのデータシートビュー、帳票ビューで一覧表示できるということはご存知ですか。また、その一覧表示から、Filterプロパティで希望の抽出ができることもご存じですか。そのうえで、あえてテキストボックスを選択しているならいいのですが。