0

此代码用于填充文本框，其中 sql 查询代表 hr_id 从表 RR_info 中获取数据。它将 rr_info 的 hr_id 与列表框的有界值进行比较。 

 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
4

1 回答 1

2

您不需要字符串“DoCmd.RunSQL SQL”。最好使用 .Text 的 .Value insted

于 2013-09-17T20:33:46.057 回答