accessでDBからデータを検索して出力するということをしたいです。
現状ではボタンとテキストボックスがあって、ボタンを押すとテキストボックスにDBのデータが一覧表示されるだけになっています。これにテキストボックスとボタンを一つずつ追加する。 テキストボックスに文字を入れたら、それに一致するデータが表示されるようにしたいです。
VBA
1Private Sub b01_Click() 2 3Dim oDB As Database 4Dim oRS As DAO.Recordset 5Dim str As String 6 7Set oDB = CurrentDb 8Set oRS = oDB.OpenRecordset("SELECT * FROM 学生管理テーブル;") 9 10str = "" 11t01.Value = str 12 13Do Until oRS.EOF 14 str = str & "学籍番号:" & oRS!学籍番号 & " / 名前:" & oRS!名前 & " / 学年:" & oRS!学年 & " / コース:" & oRS!コース & vbCrLf 15 oRS.MoveNext 16Loop 17 18t01.Value = str 19 20 21End Sub
回答1件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。