Im using listbox with style = 1-checkbox. "project.mdb" is the database name "goods" is the table name.
"tabno" and "tabid" are fields in the table.
dim d as database dim table as recordset dim b as integer dim c as integer Private Sub Form_Load() Set d = OpenDatabase(App.Path & "\" & "project.mdb") Set table = d.OpenRecordset("goods") table.MoveLast c = table!tabno table.MoveFirst b = table!tabno Do While (b < c + 1) List1.AddItem (table!tabid) table.MoveNext b = b + 1 Loop End Sub
what I want is,when running application if I check any checkbox and click command button,then the tabid and tabno related to selected check box should desplay in a textbox.
hope any help..thank you