CODEWITHSUNDEEP
ms-accessms-access-2007vbams-access-2010ms-access-2003
Rizwan Safdar
Rizwan Safdar

Reputation: 135

how can i fix following VBA code

this code is to populate textboxes in form where sql query is fatching data from table RR_info on the behalf of hr_id. it compare hr_id of rr_info with the bounded value of 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

Upvotes: 0

Views: 119

Answers (1)

4dmonster
4dmonster

Reputation: 3031

You dont need string "DoCmd.RunSQL SQL". And it is better to use .Value insted of .Text

Upvotes: 2

Related Questions