ms-access - 次のVBAコードを修正するにはどうすればよいですか

Question

このコードは、SQL クエリが hr_id に代わってテーブル RR_info からデータを取得する形式でテキスト ボックスに入力することです。rr_info の hr_id を listbox の境界値と比較します。

 Private Sub Form_Load()
 Dim SQL As String
 Dim db As Database
 Dim rs As DAO.Recordset

 SQL = "select * from RR_info where hr_id = " & Forms![hhrrr]![List38] & ";"
 Set db = CurrentDb
 Set rs = db.OpenRecordset(SQL)
                                'DoCmd.RunSQL SQL 'at this point it gives me error 2342
 Me.RR_ID.value = rs!RR_ID
 Me.HR_ID.value = rs!HR_ID 
 Me.Room_No.value = rs![Room No] 
 Me.No_of_Beds.value = rs!No_of_Beds
 Me.Room_Category.value = rs!Room_Category

 Set rs = Nothing
 Set db = Nothing
 End Sub

Answer 1

文字列「DoCmd.RunSQL SQL」は必要ありません。また、.Text の代わりに .Value を使用することをお勧めします。