hi to all
combo1.additem "male"
cobmo1.additem"female"
combo2.additem" Educated"
combo2.additem"Uneducated"
even i have added in LIST property of combobox.
my problem is when i retrieve records from database for Find command button i am geting error as "Text" property is read-only. runtime error '383'. i want to dislplay FIND record details and rest LIST Items also, so that i can update the reocrd.
private sub cmdfind_click()
num = InputBox("Enter The Slno To Find The Kafill Details?", "Find")
rs1.Open "Select * from employee where EMP_NO='" & num & "'", con, adOpenStatic, adLockOptimistic
If rs1.RecordCount > 0 Then
Text2.Text = rs1.Fields(0) ' emp_no
Text3.Text = rs1.Fields(1) 'emp_firstname
Combo1.Text = rs1.Fields(7) 'gender
Combo2.Text = rs1.Fields(8) 'religion
Else
MsgBox "Record Not Found Please Try Next Time", vbCritical, "No-Records..."
Exit Sub
End If
rs1.Close
End Sub